Back to OASIS3 home
Modules used for the
coupler (in oasis3/src) :
mod_memory : contains variables related to pseudo-dynamic memory
allocation
used in driver.F, interp.F
!@ -- nsizold : size for each
field sub-array (before interpolation) (1D)
!@ -- nsiznew : size for each field sub-array (after interpolation) (1D)
!@ -- nadrold : adress for each field sub-array (before interpolation)
(1D)
!@ -- nadrold_grid : adress for each grid sub-array (before
interpolation) (1D)
!@ -- nadrnew : adress for each field sub-array (after interpolation)
(1D)
!@ -- nadrnew_grid : adress for each grid sub-array (after
interpolation) (1D)
!@ -- mskold : macro array for masks (before interpolation) (1D)
!@ -- msknew : macro array for masks (after interpolation) (1D)
!@ -- nwork : integer work array (1D)
!@ -- fldold : macro array for fields (before interpolation) (1D)
!@ -- fldnew : macro array for fields (after interpolation) (1D)
!@ -- xgrold : macro array for longitudes (before interpolation) (1D)
!@ -- xgrnew : macro array for longitudes (after interpolation) (1D)
!@ -- ygrold : macro array for latitudes (before interpolation) (1D)
!@ -- ygrnew : macro array for latitudes (after interpolation) (1D)
!@ -- surold : macro array for mesh surfaces (before interpolation)
(1D)
!@ -- surnew : macro array for mesh surfaces (after interpolation) (1D)
!@ -- work : real work array (1D)
!
-------------------------------------------------------------------
USE mod_kinds_oasis
INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nsizold,
nsiznew
INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nadrold,
nadrnew
INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE ::
nadrold_grid
INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE ::
nadrnew_grid
INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: mskold,
msknew
INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nwork
REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: fldold,
fldnew
REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: xgrold,
xgrnew
REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: ygrold,
ygrnew
REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: surold,
surnew
REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: work
!
-------------------------------------------------------------------