| 1 | MODULE mod_anais |
|---|
| 2 | ! |
|---|
| 3 | ! -- anais.h 01-11-95 Version 2.0 Author: Laurent Terray |
|---|
| 4 | ! ******* |
|---|
| 5 | ! 31-08-96 Version 2.1 : add new fields for anais package |
|---|
| 6 | ! |
|---|
| 7 | ! 18-03-02 Version 2.5 : changed in module |
|---|
| 8 | !@ |
|---|
| 9 | !@ Contents : variables and arrays related to the ANAIS interpolator |
|---|
| 10 | !@ -------- |
|---|
| 11 | !@ |
|---|
| 12 | !@ Anaism --->>> |
|---|
| 13 | !@ |
|---|
| 14 | !@ -- nmesh : number of ocean gcm-1 squares overlapped by a given gcm-2 |
|---|
| 15 | !@ square (1D) |
|---|
| 16 | !@ |
|---|
| 17 | !@ -- amint : weight for each gcm-1 mesh proportional to overlapped area (1D) |
|---|
| 18 | !@ |
|---|
| 19 | !@ -- nmint : neighbors adress on gcm-1 grid for a given gcm-2 grid point (1D) |
|---|
| 20 | !@ |
|---|
| 21 | !@ -- naismfl : flag to identify different ANAISM parameter sets (1D) |
|---|
| 22 | !@ |
|---|
| 23 | !@ -- naismvoi : maximum number of overlapped neighbors (1D) |
|---|
| 24 | !@ |
|---|
| 25 | !@ -- niwtm : flag to read/write ANAISM parameters (1D) |
|---|
| 26 | !@ |
|---|
| 27 | !@ -- cwanaism : file name for ANAISM parameter file |
|---|
| 28 | !@ |
|---|
| 29 | !@ Anaisg --->>> |
|---|
| 30 | !@ |
|---|
| 31 | !@ -- agint : weight for each gcm-1 grid point with gaussian distribution (1D) |
|---|
| 32 | !@ |
|---|
| 33 | !@ -- ngint : neighbors adress on gcm-1 grid for a given gcm-2 grid point (1D) |
|---|
| 34 | !@ |
|---|
| 35 | !@ -- varmul : variance multiplicator |
|---|
| 36 | !@ |
|---|
| 37 | !@ -- naisgfl : flag to identify different ANAISG parameter sets (1D) |
|---|
| 38 | !@ |
|---|
| 39 | !@ -- naisgvoi : maximum number of used neighbors (1D) |
|---|
| 40 | !@ |
|---|
| 41 | !@ -- niwtg : flag to read/write ANAISG parameters (1D) |
|---|
| 42 | !@ |
|---|
| 43 | !@ -- cwanaisg : file name for ANAISG parameter file |
|---|
| 44 | !@ |
|---|
| 45 | !@ Common --->>> |
|---|
| 46 | !@ |
|---|
| 47 | !@ -- linit : I/O initialization flag for each field |
|---|
| 48 | !@ |
|---|
| 49 | !@ -- cnaisout : ANAIS output file name |
|---|
| 50 | !@ |
|---|
| 51 | ! ------------------------------------------------------------------- |
|---|
| 52 | ! |
|---|
| 53 | USE mod_kinds_oasis |
|---|
| 54 | USE mod_parameter |
|---|
| 55 | ! |
|---|
| 56 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: ngint,nmint,nmesh |
|---|
| 57 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: naismfl, naisgfl |
|---|
| 58 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: naismvoi, naisgvoi |
|---|
| 59 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: niwtm, niwtg |
|---|
| 60 | ! |
|---|
| 61 | REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: agint, amint, varmul |
|---|
| 62 | ! |
|---|
| 63 | LOGICAL, DIMENSION(:), ALLOCATABLE :: linit |
|---|
| 64 | ! |
|---|
| 65 | CHARACTER(len=8), PARAMETER :: cwanaisg = 'gweights' |
|---|
| 66 | CHARACTER(len=8), PARAMETER :: cwanaism = 'mweights' |
|---|
| 67 | CHARACTER(len=8), PARAMETER :: cnaisout = 'anaisout' |
|---|
| 68 | ! |
|---|
| 69 | ! ------------------------------------------------------------------- |
|---|
| 70 | END MODULE mod_anais |
|---|
