| 1 | MODULE YOESRTM |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM |
|---|
| 4 | USE PARSRTM ,ONLY : JPGMAX |
|---|
| 5 | |
|---|
| 6 | IMPLICIT NONE |
|---|
| 7 | |
|---|
| 8 | PUBLIC |
|---|
| 9 | |
|---|
| 10 | SAVE |
|---|
| 11 | |
|---|
| 12 | ! ------------------------------------------------------------------ |
|---|
| 13 | ! Parameters relevant to AER's RRTM-SW radiation scheme: Part 2 |
|---|
| 14 | |
|---|
| 15 | ! 20110610 JJMorcrette |
|---|
| 16 | |
|---|
| 17 | ! Modified to allow possibilities of different g-point numbers. |
|---|
| 18 | ! ------------------------------------------------------------------ |
|---|
| 19 | |
|---|
| 20 | !INTEGER(KIND=JPIM) :: JPGPT |
|---|
| 21 | !INTEGER(KIND=JPIM) :: JPGSW |
|---|
| 22 | |
|---|
| 23 | !INTEGER(KIND=JPIM) :: NG16 |
|---|
| 24 | !INTEGER(KIND=JPIM) :: NG17 |
|---|
| 25 | !INTEGER(KIND=JPIM) :: NG18 |
|---|
| 26 | !INTEGER(KIND=JPIM) :: NG19 |
|---|
| 27 | !INTEGER(KIND=JPIM) :: NG20 |
|---|
| 28 | !INTEGER(KIND=JPIM) :: NG21 |
|---|
| 29 | !INTEGER(KIND=JPIM) :: NG22 |
|---|
| 30 | !INTEGER(KIND=JPIM) :: NG23 |
|---|
| 31 | !INTEGER(KIND=JPIM) :: NG24 |
|---|
| 32 | !INTEGER(KIND=JPIM) :: NG25 |
|---|
| 33 | !INTEGER(KIND=JPIM) :: NG26 |
|---|
| 34 | !INTEGER(KIND=JPIM) :: NG27 |
|---|
| 35 | !INTEGER(KIND=JPIM) :: NG28 |
|---|
| 36 | !INTEGER(KIND=JPIM) :: NG29 |
|---|
| 37 | |
|---|
| 38 | !-- NGnn : number of g-points in bands nn=16 to 29 |
|---|
| 39 | !- as used for the (operational) 112 g-points version of RRTM_SW |
|---|
| 40 | INTEGER(KIND=JPIM), PARAMETER :: JPGPT = 112 |
|---|
| 41 | INTEGER(KIND=JPIM), PARAMETER :: JPGSW = 112 |
|---|
| 42 | |
|---|
| 43 | INTEGER(KIND=JPIM), PARAMETER :: NG16 = 6 |
|---|
| 44 | INTEGER(KIND=JPIM), PARAMETER :: NG17 = 12 |
|---|
| 45 | INTEGER(KIND=JPIM), PARAMETER :: NG18 = 8 |
|---|
| 46 | INTEGER(KIND=JPIM), PARAMETER :: NG19 = 8 |
|---|
| 47 | INTEGER(KIND=JPIM), PARAMETER :: NG20 = 10 |
|---|
| 48 | INTEGER(KIND=JPIM), PARAMETER :: NG21 = 10 |
|---|
| 49 | INTEGER(KIND=JPIM), PARAMETER :: NG22 = 2 |
|---|
| 50 | INTEGER(KIND=JPIM), PARAMETER :: NG23 = 10 |
|---|
| 51 | INTEGER(KIND=JPIM), PARAMETER :: NG24 = 8 |
|---|
| 52 | INTEGER(KIND=JPIM), PARAMETER :: NG25 = 6 |
|---|
| 53 | INTEGER(KIND=JPIM), PARAMETER :: NG26 = 6 |
|---|
| 54 | INTEGER(KIND=JPIM), PARAMETER :: NG27 = 8 |
|---|
| 55 | INTEGER(KIND=JPIM), PARAMETER :: NG28 = 6 |
|---|
| 56 | INTEGER(KIND=JPIM), PARAMETER :: NG29 = 12 |
|---|
| 57 | |
|---|
| 58 | |
|---|
| 59 | INTEGER(KIND=JPIM) :: NGN(JPGMAX), NGBSW(JPGMAX) |
|---|
| 60 | |
|---|
| 61 | ! ------------------------------------------------------------------ |
|---|
| 62 | END MODULE YOESRTM |
|---|
| 63 | |
|---|
