Back to OASIS3-MCT home

In oasis3-mct/lib/psmile/src :

mod_oasis_var.F90 :
definition of the global structure prism_var
  public :: prism_var_type

  integer(kind=ip_i4_p),parameter :: mvar = 100
  integer(kind=ip_i4_p),parameter :: mvarcpl = 10

  type prism_var_type
     character(len=ic_lvar):: name
     integer(kind=ip_i4_p) :: part
     integer(kind=ip_i4_p) :: ndim
     integer(kind=ip_i4_p) :: num
     integer(kind=ip_i4_p) :: ops
     integer(kind=ip_i4_p) :: type
     integer(kind=ip_i4_p) :: size
     integer(kind=ip_i4_p) :: ncpl
     integer(kind=ip_i4_p) :: cpl(mvarcpl)
  end type prism_var_type

  integer(kind=ip_intwp_p),public :: prism_nvar = 0
  type(prism_var_type),public :: prism_var(mvar)