Back to OASIS4 home

Type Userdef : defined in oasis4/lib/psmile_oa4/src/psmile.F90, to store info on the Userdef.


Type Userdef

        Integer :: var_id                                                                     ! global index in the Fields array of the geographic variable
        Integer :: igl_grid_id                                                             ! grid id of the gridless grid built from the user defined links
        Integer :: status
        Integer :: ig_transi_side                                                        ! 0 for the source side (Tranient Out) ; 1 for the target side (Transient In)
        Integer :: ig_nb_links                                                           ! number of links defined in the weight and addresses file
        Integer :: ig_celldim                                                             ! number of dimensions of geographical cells (can be 1, 2 or 3, and depend on side)
        Integer :: ig_nb_ppp                                                             ! number of links relevant to the partition of this PE
        Integer :: ig_nbr_fields                                                         ! number of "bundles" of geographic function (>= 1)
        integer :: ig_nbr_blocks                                                       ! number of local blocks of the gridless
        Logical :: lg_nolink                                                             ! obsolete
        Integer, pointer                  :: iga_igl(:,:)                              ! list of indexes of geographical grid (local to partition) : the list of indexes stored in iga_igl concerns only one side
                                                                                                      !                     either the source side (for the prism_put)
                                                                                                      !                     or the target side (for the prism_get)
        Real (PSMILe_float_kind), pointer :: dga_wght(:)             ! weights
        REAL, pointer   :: real_gridless(:,:,:,:)
        DOUBLE PRECISION, pointer   :: dble_gridless(:,:,:,:)

End Type Userdef