Back to OASIS3 home

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

mod_scrip : contains variables and arrays related to SCRIP remapping
used in scriprmp (oasis3/lib/scrip/src),

!@ -- snum_links : number of intersections array
!@ -- snum_wgts : number of weights array
!@ -- sweight_flag : allocation flag array
!@ -- wp : weigth array
!@ -- sp : source addresses array
!@ -- dp : destination addresses array
! -------------------------------------------------------------------
  USE mod_kinds_oasis
  INTEGER, DIMENSION (:), ALLOCATABLE :: snum_links, snum_wgts
  LOGICAL, DIMENSION (:), ALLOCATABLE :: sweight_flag
  TYPE wp
    REAL(kind=ip_realwp_p), POINTER :: warray(:,:)
  END TYPE wp
  type(wp), allocatable :: sweigth(:)
  TYPE sp
    INTEGER, POINTER :: srcarray(:)
  END TYPE sp
  type(sp), allocatable :: ssrc_addr(:)
  TYPE dp
    INTEGER, POINTER :: dstarray(:)
  END TYPE dp
  type(dp), allocatable :: sdst_addr(:)
! -------------------------------------------------------------------