| 1 | MODULE mod_extrapol |
|---|
| 2 | ! |
|---|
| 3 | ! -- extrapol.h 16-12-97 Version 2.2 Author: Laurent Terray |
|---|
| 4 | ! ********** 30-03-99 Version 2.3 READ/WRITE flag, FILE and dataset |
|---|
| 5 | ! index for NINENN weights |
|---|
| 6 | ! 18-03-02 Version 2.5 changed in module |
|---|
| 7 | !@ |
|---|
| 8 | !@ Contents : variables and arrays related to extrapolation |
|---|
| 9 | !@ -------- |
|---|
| 10 | !@ |
|---|
| 11 | !@ WEIGHT --->>> |
|---|
| 12 | !@ |
|---|
| 13 | !@ -- aextra : weight for each gcm-1 mesh proportional to overlapped area (1D) |
|---|
| 14 | !@ |
|---|
| 15 | !@ -- nextra : neighbors adress on gcm-1 grid for a given gcm-2 grid point (1D) |
|---|
| 16 | !@ |
|---|
| 17 | !@ -- lextra : I/O initialization flag for each field |
|---|
| 18 | !@ |
|---|
| 19 | !@ NINENN --->>> |
|---|
| 20 | !@ |
|---|
| 21 | !@ -- niwtn : flag to read/write EXTRAP/NINENN parameters (1D) |
|---|
| 22 | !@ |
|---|
| 23 | !@ -- niwtng : flag to read/write EXTRAP/NINENN parameters when extrap |
|---|
| 24 | !@ is called by GLORED (1D) |
|---|
| 25 | !@ |
|---|
| 26 | !@ -- cwninenn : file name for NINENN parameter FILE |
|---|
| 27 | !@ |
|---|
| 28 | !@ -- nninnfl : flag to identify different EXTRAP/NINENN parameter sets |
|---|
| 29 | !@ within all NINENN/EXTRAP analyses (1D) |
|---|
| 30 | !@ |
|---|
| 31 | !@ -- nninnflg : flag to identify different EXTRAP/NINENN parameter sets |
|---|
| 32 | !@ WHEN extrap is called by GLORED within all NINENN/EXTRAP |
|---|
| 33 | !@ analyses (1D) |
|---|
| 34 | !@ |
|---|
| 35 | !@ COMMON --->>> |
|---|
| 36 | !@ |
|---|
| 37 | !@ -- lweight : flag indicating IF EXTRAP/NINENN parameter sets have |
|---|
| 38 | !@ already been calculated or read (.TRUE.) or not (.FALSE.) |
|---|
| 39 | !@ |
|---|
| 40 | !@ -- lextrapdone : logical indicating if EXTRAP analysis has been done |
|---|
| 41 | !@ for field |
|---|
| 42 | ! ------------------------------------------------------------------- |
|---|
| 43 | ! |
|---|
| 44 | USE mod_kinds_oasis |
|---|
| 45 | USE mod_parameter |
|---|
| 46 | ! |
|---|
| 47 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nextra |
|---|
| 48 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: niwtn, nninnfl |
|---|
| 49 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: niwtng, nninnflg |
|---|
| 50 | INTEGER (kind=ip_intwp_p), DIMENSION(:,:), ALLOCATABLE :: iincre |
|---|
| 51 | INTEGER (kind=ip_intwp_p), DIMENSION(:,:,:), ALLOCATABLE :: iaddress |
|---|
| 52 | ! |
|---|
| 53 | REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: aextra |
|---|
| 54 | REAL (kind=ip_realwp_p), DIMENSION(:,:,:), ALLOCATABLE :: zweights |
|---|
| 55 | ! |
|---|
| 56 | LOGICAL, DIMENSION(:), ALLOCATABLE :: lextra, lweight |
|---|
| 57 | LOGICAL, DIMENSION(:), ALLOCATABLE :: lextrapdone |
|---|
| 58 | ! |
|---|
| 59 | CHARACTER(len=8), PARAMETER :: cwninenn = 'nweights' |
|---|
| 60 | ! |
|---|
| 61 | ! |
|---|
| 62 | ! ------------------------------------------------------------------- |
|---|
| 63 | ! |
|---|
| 64 | END MODULE mod_extrapol |
|---|
| 65 | |
|---|
| 66 | |
|---|
