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