doc-doxygen/html/mod__extrapol_8_f90_source.html

00001 MODULE mod_extrapol
00002 !
00003 ! -- extrapol.h   16-12-97   Version 2.2   Author: Laurent Terray
00004 !    **********   30-03-99   Version 2.3   READ/WRITE flag, FILE and dataset
00005 !                                           index for NINENN weights
00006 !                 18-03-02   Version 2.5   changed in module
00007 !@
00008 !@  Contents : variables and arrays related to extrapolation
00009 !@  --------
00010 !@
00011 !@ WEIGHT --->>>
00012 !@
00013 !@ -- aextra : weight for each gcm-1 mesh proportional to overlapped area (1D)
00014 !@
00015 !@ -- nextra : neighbors adress on gcm-1 grid for a given gcm-2 grid point (1D)
00016 !@
00017 !@ -- lextra : I/O initialization flag for each field
00018 !@
00019 !@ NINENN --->>>
00020 !@
00021 !@ -- niwtn : flag to read/write EXTRAP/NINENN parameters (1D)
00022 !@
00023 !@ -- niwtng : flag to read/write EXTRAP/NINENN parameters when extrap
00024 !@             is called by GLORED (1D)
00025 !@
00026 !@ -- cwninenn : file name for NINENN parameter FILE
00027 !@
00028 !@ -- nninnfl : flag to identify different EXTRAP/NINENN parameter sets
00029 !@              within all NINENN/EXTRAP analyses (1D)
00030 !@
00031 !@ -- nninnflg : flag to identify different EXTRAP/NINENN parameter sets
00032 !@               WHEN extrap is called by GLORED within all NINENN/EXTRAP
00033 !@               analyses (1D)
00034 !@
00035 !@ COMMON --->>>
00036 !@
00037 !@ -- lweight : flag indicating IF EXTRAP/NINENN parameter sets have
00038 !@              already been calculated or read (.TRUE.) or not (.FALSE.)
00039 !@
00040 !@ -- lextrapdone : logical indicating if EXTRAP analysis has been done
00041 !@                  for field
00042 ! -------------------------------------------------------------------
00043 !
00044   USE mod_kinds_oasis
00045 !
00046   INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nextra
00047   INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: niwtn, nninnfl
00048   INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: niwtng, nninnflg
00049   INTEGER (kind=ip_intwp_p), DIMENSION(:,:), ALLOCATABLE :: iincre
00050   INTEGER (kind=ip_intwp_p), DIMENSION(:,:,:), ALLOCATABLE :: iaddress
00051 !
00052   REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: aextra
00053   REAL (kind=ip_realwp_p), DIMENSION(:,:,:), ALLOCATABLE :: zweights
00054 !
00055   LOGICAL, DIMENSION(:), ALLOCATABLE :: lextra, lweight
00056   LOGICAL, DIMENSION(:), ALLOCATABLE :: lextrapdone
00057 !
00058 ! -------------------------------------------------------------------
00059 !
00060 END MODULE mod_extrapol
00061
00062