| 1 | MODULE mod_memory |
|---|
| 2 | ! |
|---|
| 3 | ! -- memory.h 23-08-95 Version 2.0 Author: Laurent Terray |
|---|
| 4 | ! ******** |
|---|
| 5 | ! 18-03-98 Version 2.5 changed in module |
|---|
| 6 | !@ |
|---|
| 7 | !@ Contents : variables related to pseudo-dynamic memory allocation |
|---|
| 8 | !@ -------- |
|---|
| 9 | !@ |
|---|
| 10 | !@ -- nsizold : size for each field sub-array (before interpolation) (1D) |
|---|
| 11 | !@ |
|---|
| 12 | !@ -- nsiznew : size for each field sub-array (after interpolation) (1D) |
|---|
| 13 | !@ |
|---|
| 14 | !@ -- nadrold : adress for each field sub-array (before interpolation) (1D) |
|---|
| 15 | !@ |
|---|
| 16 | !@ -- nadrold_grid : adress for each grid sub-array (before interpolation) (1D) |
|---|
| 17 | !@ |
|---|
| 18 | !@ -- nadrnew : adress for each field sub-array (after interpolation) (1D) |
|---|
| 19 | !@ |
|---|
| 20 | !@ -- nadrnew_grid : adress for each grid sub-array (after interpolation) (1D) |
|---|
| 21 | !@ |
|---|
| 22 | !@ -- mskold : macro array for masks (before interpolation) (1D) |
|---|
| 23 | !@ |
|---|
| 24 | !@ -- msknew : macro array for masks (after interpolation) (1D) |
|---|
| 25 | !@ |
|---|
| 26 | !@ -- nwork : integer work array (1D) |
|---|
| 27 | !@ |
|---|
| 28 | !@ -- fldold : macro array for fields (before interpolation) (1D) |
|---|
| 29 | !@ |
|---|
| 30 | !@ -- fldnew : macro array for fields (after interpolation) (1D) |
|---|
| 31 | !@ |
|---|
| 32 | !@ -- xgrold : macro array for longitudes (before interpolation) (1D) |
|---|
| 33 | !@ |
|---|
| 34 | !@ -- xgrnew : macro array for longitudes (after interpolation) (1D) |
|---|
| 35 | !@ |
|---|
| 36 | !@ -- ygrold : macro array for latitudes (before interpolation) (1D) |
|---|
| 37 | !@ |
|---|
| 38 | !@ -- ygrnew : macro array for latitudes (after interpolation) (1D) |
|---|
| 39 | !@ |
|---|
| 40 | !@ -- surold : macro array for mesh surfaces (before interpolation) (1D) |
|---|
| 41 | !@ |
|---|
| 42 | !@ -- surnew : macro array for mesh surfaces (after interpolation) (1D) |
|---|
| 43 | !@ |
|---|
| 44 | !@ -- work : real work array (1D) |
|---|
| 45 | !@ |
|---|
| 46 | ! ------------------------------------------------------------------- |
|---|
| 47 | ! |
|---|
| 48 | USE mod_kinds_oasis |
|---|
| 49 | USE mod_parameter |
|---|
| 50 | ! |
|---|
| 51 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nsizold, nsiznew |
|---|
| 52 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nadrold, nadrnew |
|---|
| 53 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nadrold_grid |
|---|
| 54 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nadrnew_grid |
|---|
| 55 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: mskold, msknew |
|---|
| 56 | INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nwork |
|---|
| 57 | ! |
|---|
| 58 | REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: fldold, fldnew |
|---|
| 59 | REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: xgrold, xgrnew |
|---|
| 60 | REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: ygrold, ygrnew |
|---|
| 61 | REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: surold, surnew |
|---|
| 62 | REAL (kind=ip_realwp_p), DIMENSION(:), ALLOCATABLE :: work |
|---|
| 63 | ! |
|---|
| 64 | ! ------------------------------------------------------------------- |
|---|
| 65 | ! |
|---|
| 66 | END MODULE mod_memory |
|---|
| 67 | |
|---|
| 68 | |
|---|
| 69 | |
|---|
