Back to OASIS3 home

Modules used for the coupler (in oasis3/src) :

mod_parameter : contains parameter file for OASIS
used in couple.F, driver.F, interp.F, scriprmp.F (oasis3/lib/scrip/src),

!@ -- ig_total_nfield : number of coupling fields
!@ -- ig_direct_nfield : number of fields not going through Oasis
!@ -- ig_nfield : number of fields going through Oasis
!@ -- lg_oasis_field : logical true if at least one field goes through Oasis (.false. if all fields are exchanged directly)
!@ -- ig_nmodel : maximum number of models
!@ -- ig_maxcomb : maximum number of fields to be combined in the BLASxxx analyses
!@ -- ig_maxold : Memory size of the macro arrays handling fields values
!@ -- ig_maxnew : Memory size of the macro arrays handling fields values
!@ -- ig_maxold_grid : Memory size of the arrays handling field grid-related data before interpolation
!@ -- ig_maxnew_grid : Memory size of the arrays handling field grid-related data after interpolation
!@ -- ig_nwork : Size of "nwork" array
!@ -- ig_work : Size of "work" array
!@ -- ig_maxgrd : maximum grid size of indirect fields
!@ -- ig_total_maxgrd : maximum grid size of all fields defined in the namcouple (direct and indirect fields)
!@ -- ig_maxwoa : maximum number of underlying neighbors for SURFMESH interpolation
!@ -- ig_maxnoa : number of neighbors for GAUSSIAN interpolation
!@ -- ig_maxmoa : maximum number of underlying neighbors for MOZAIC interpolation
!@ -- ig_maxsoa : maximum number of overlaying neighbors for SUBGRID interpolation
!@ -- ig_maxnfm : maximum number of different SURFMESH interpolations
!@ -- ig_maxnfg : maximum number of different GAUSSIAN interpolations
!@ -- ig_maxnfp : maximum number of different MOZAIC interpolations
!@ -- ig_maxnfs : maximum number of different SUBGRID interpolations
!@ -- ig_maxnfn : maximum number of different NINENN extrapolations
!@ -- ig_maxext : maximum number of neighbors for extrapolation
!@ -- ig_maxnbn : maximum number of different extrapolation
!@ -- sco_myfield : array containing fields to be processed by the current process
!@ -- sco_num_myf : size of "sco_myfield" array
!     -------------------------------------------------------------------
!* Useful numerical values
  USE mod_kinds_oasis
  INTEGER (kind=ip_intwp_p),PARAMETER :: jpeight = 8, jpfour = 4, jpeighty = 80
!-----Field status!
  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_exported  = 1
  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_ignored   = 2
  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_input     = 3
  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_output    = 4
  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_expout    = 5
  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_ignout    = 6
  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_auxilary  = 7
!* Essential parameters to dimension the simulation
  INTEGER (kind=ip_intwp_p) :: ig_nmodel, ig_nfield, ig_direct_nfield, ig_total_nfield
  LOGICAL :: lg_oasis_field
  INTEGER (kind=ip_intwp_p) :: ig_maxcomb
!* Parameters to dimension the main big arrays
  INTEGER (kind=ip_intwp_p) :: ig_nwork, ig_work
  INTEGER (kind=ip_intwp_p) :: ig_maxold, ig_maxnew
  INTEGER (kind=ip_intwp_p) :: ig_maxold_grid, ig_maxnew_grid
!* Parameters related to maxima of grid-dimension
  INTEGER (kind=ip_intwp_p) :: ig_maxgrd, ig_total_maxgrd
!* Parameters related to ANAIS(M-G), MOZAIC and SUBGRID interpolation
  INTEGER (kind=ip_intwp_p) :: ig_maxwoa, ig_maxnoa, ig_maxmoa, ig_maxsoa
  INTEGER (kind=ip_intwp_p) :: ig_maxnfm, ig_maxnfg, ig_maxnfp, ig_maxnfs, ig_maxnfn
!* Parameters related to extrapolation method WEIGHT
  INTEGER (kind=ip_intwp_p) :: ig_maxext, ig_maxnbn
#if defined use_oasis_para || defined use_oasis_cmcc_para
!* Rank of oasis instance (for pseudo-parallel use of oasis)
  INTEGER (kind=ip_intwp_p) :: ig_indexoa
#if defined use_oasis_cmcc_para
!* CMCC – Parameters related to fields scheduling
  INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: sco_myfield
  INTEGER (kind=ip_intwp_p) :: sco_num_myf
#endif
#endif
!     -------------------------------------------------------------------