| [2089] | 1 | MODULE PARRTM1D |
|---|
| 2 | |
|---|
| 3 | #include "tsmbkind.h" |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! ------------------------------------------------------------------ |
|---|
| 10 | ! Parameters for 1-D radiation only computations from operational |
|---|
| 11 | ! library routines |
|---|
| 12 | ! 991007 JJMorcrette |
|---|
| 13 | ! ------------------------------------------------------------------ |
|---|
| 14 | |
|---|
| 15 | INTEGER_M, PARAMETER :: JP_LON = 13538 |
|---|
| 16 | INTEGER_M, PARAMETER :: JP_IDIA = 1 |
|---|
| 17 | INTEGER_M, PARAMETER :: JP_FDIA = JP_LON-JP_IDIA+1 |
|---|
| 18 | INTEGER_M, PARAMETER :: JP_TDIA = 1 |
|---|
| 19 | |
|---|
| 20 | !-- standard tropical INTEGER_M, PARAMETER :: JP_LEV = 64 |
|---|
| 21 | !-- ATEX INTEGER_M, PARAMETER :: JP_LEV = 83 |
|---|
| 22 | !-- BOMEX INTEGER_M, PARAMETER :: JP_LEV = 84 |
|---|
| 23 | !-- OPEN_CELLS INTEGER_M, PARAMETER :: JP_LEV = 63 |
|---|
| 24 | !-- GATE_A,B,C INTEGER_M, PARAMETER :: JP_LEV = 46 |
|---|
| 25 | |
|---|
| 26 | INTEGER_M, PARAMETER :: JP_LEV = 39 |
|---|
| 27 | |
|---|
| 28 | INTEGER_M, PARAMETER :: JP_LW = 6 |
|---|
| 29 | INTEGER_M, PARAMETER :: JP_SW = 6 |
|---|
| 30 | INTEGER_M, PARAMETER :: JP_NUA = 24 |
|---|
| 31 | INTEGER_M, PARAMETER :: JP_MODE = 1 |
|---|
| 32 | INTEGER_M, PARAMETER :: JP_AER = 6 |
|---|
| 33 | INTEGER_M, PARAMETER :: JP_LEVP1= JP_LEV+1 |
|---|
| 34 | |
|---|
| 35 | ! ------------------------------------------------------------------ |
|---|
| 36 | END MODULE PARRTM1D |
|---|
