doc-doxygen/html/mod__scrip_8_f90_source.html

00001 MODULE mod_scrip
00002 !
00003 ! -- scrip.h      09-11-16   Version 3.3   Author: S. Mocavero(CMCC)
00004 !@
00005 !@  Contents : variables and arrays related to SCRIP remapping
00006 !@  --------
00007 !@
00008 !@ -- snum_links : number of intersections array
00009 !@
00010 !@ -- snum_wgts : number of weights array
00011 !@
00012 !@ -- sweight_flag : allocation flag array
00013 !@
00014 !@ -- wp : weigth array
00015 !@
00016 !@ -- sp : source addresses array
00017 !@
00018 !@ -- dp : destination addresses array
00019 !@
00020 ! -------------------------------------------------------------------
00021 !
00022
00023 ! -------------------------------------------------------------------
00024 !
00025   USE mod_kinds_oasis
00026 !
00027   INTEGER, DIMENSION (:), ALLOCATABLE :: snum_links, snum_wgts
00028   LOGICAL, DIMENSION (:), ALLOCATABLE :: sweight_flag
00029
00030   TYPE wp
00031     REAL(kind=ip_realwp_p), POINTER :: warray(:,:)
00032   END TYPE wp
00033   type(wp), allocatable :: sweigth(:)
00034
00035   TYPE sp
00036     INTEGER, POINTER :: srcarray(:)
00037   END TYPE sp
00038   type(sp), allocatable :: ssrc_addr(:)
00039
00040   TYPE dp
00041     INTEGER, POINTER :: dstarray(:)
00042   END TYPE dp
00043   type(dp), allocatable :: sdst_addr(:)
00044
00045 !
00046 !
00047 ! -------------------------------------------------------------------
00048 !
00049 END MODULE mod_scrip
00050
00051