Back to OASIS3 home

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

mod_extrapol : contains variables and arrays related to extrapolation
used in interp.F,

!@ WEIGHT --->>>
!@ -- aextra : weight for each gcm-1 mesh proportional to overlapped area (1D)
!@ -- nextra : neighbors adress on gcm-1 grid for a given gcm-2 grid point (1D)
!@ -- lextra : I/O initialization flag for each field
!@ NINENN --->>>
!@ -- niwtn : flag to read/write EXTRAP/NINENN parameters (1D)
!@ -- niwtng : flag to read/write EXTRAP/NINENN parameters when extrap is called by GLORED (1D)
!@ -- cwninenn : file name for NINENN parameter FILE
!@ -- nninnfl : flag to identify different EXTRAP/NINENN parameter sets within all NINENN/EXTRAP analyses (1D)
!@ -- nninnflg : flag to identify different EXTRAP/NINENN parameter sets WHEN extrap is called by GLORED within all NINENN/EXTRAP analyses (1D)
!@ COMMON --->>>
!@ -- lweight : flag indicating IF EXTRAP/NINENN parameter sets have already been calculated or read (.TRUE.) or not (.FALSE.)
!@ -- lextrapdone : logical indicating if EXTRAP analysis has been done for field
! -------------------------------------------------------------------
  USE mod_kinds_oasis
  INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nextra
  INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: niwtn, nninnfl
  INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: niwtng, nninnflg
  INTEGER (kind=ip_intwp_p), DIMENSION(:,:), ALLOCATABLE :: iincre
  INTEGER (kind=ip_intwp_p), DIMENSION(:,:,:), ALLOCATABLE :: iaddress
  REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: aextra
  REAL (kind=ip_realwp_p), DIMENSION(:,:,:), ALLOCATABLE :: zweights
  LOGICAL, DIMENSION(:), ALLOCATABLE :: lextra, lweight
  LOGICAL, DIMENSION(:), ALLOCATABLE :: lextrapdone
! -------------------------------------------------------------------