Back to OASIS3-MCT home

In oasis3-mct/lib/psmile/src :

mod_oasis_part.F90 :
definition of the global structure prism_part

   public :: prism_part_type

   integer(kind=ip_intwp_p),parameter :: mpart = 100

   type prism_part_type
      type(mct_gsmap)        :: gsmap
      integer(kind=ip_i4_p)  :: gsize
      integer(kind=ip_i4_p)  :: nx
      integer(kind=ip_i4_p)  :: ny
      character(len=ic_med)  :: gridname
   end type prism_part_type

   integer(kind=ip_intwp_p),public :: prism_npart = 0
   type(prism_part_type),public :: prism_part(mpart)

mct_gsmap => GlobalSegMap in m_GlobalSegMap.F90