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
! -------------------------------------------------------------------