| [2089] | 1 | MODULE YOERAD |
|---|
| 2 | |
|---|
| 3 | |
|---|
| 4 | #include "tsmbkind.h" |
|---|
| 5 | |
|---|
| 6 | IMPLICIT NONE |
|---|
| 7 | |
|---|
| 8 | SAVE |
|---|
| 9 | |
|---|
| 10 | ! ------------------------------------------------------------------ |
|---|
| 11 | !* ** *YOERAD* - CONTROL OPTIONS FOR RADIATION CONFIGURATION |
|---|
| 12 | ! ------------------------------------------------------------------ |
|---|
| 13 | |
|---|
| 14 | INTEGER_M :: NAER |
|---|
| 15 | INTEGER_M :: NMODE |
|---|
| 16 | INTEGER_M :: NOZOCL |
|---|
| 17 | INTEGER_M :: NRADFR |
|---|
| 18 | INTEGER_M :: NRADPFR |
|---|
| 19 | INTEGER_M :: NRADPLA |
|---|
| 20 | INTEGER_M :: NRINT |
|---|
| 21 | INTEGER_M :: NRADNFR |
|---|
| 22 | INTEGER_M :: NRADSFR |
|---|
| 23 | INTEGER_M :: NRPROMA |
|---|
| 24 | INTEGER_M :: NRADF2C |
|---|
| 25 | INTEGER_M :: NRADC2F |
|---|
| 26 | INTEGER_M :: NLW |
|---|
| 27 | INTEGER_M :: NSW |
|---|
| 28 | INTEGER_M :: NTSW |
|---|
| 29 | INTEGER_M :: NCSRADF |
|---|
| 30 | INTEGER_M :: NHOWINH |
|---|
| 31 | INTEGER_M :: NOVLP |
|---|
| 32 | |
|---|
| 33 | INTEGER_M :: NICEOPT |
|---|
| 34 | INTEGER_M :: NLIQOPT |
|---|
| 35 | INTEGER_M :: NRADIP |
|---|
| 36 | INTEGER_M :: NRADLP |
|---|
| 37 | |
|---|
| 38 | LOGICAL LERAD6H |
|---|
| 39 | LOGICAL LERADHS |
|---|
| 40 | LOGICAL LEPO3RA |
|---|
| 41 | LOGICAL LRADLB |
|---|
| 42 | LOGICAL LONEWSW |
|---|
| 43 | |
|---|
| 44 | LOGICAL LOWASYF |
|---|
| 45 | LOGICAL LOWHSSS |
|---|
| 46 | LOGICAL LOIFUEC |
|---|
| 47 | |
|---|
| 48 | LOGICAL LECSRAD |
|---|
| 49 | LOGICAL LRRTM |
|---|
| 50 | LOGICAL LINHOM |
|---|
| 51 | LOGICAL LHVOLCA |
|---|
| 52 | LOGICAL LNEWAER |
|---|
| 53 | LOGICAL LRADLP |
|---|
| 54 | LOGICAL LTEMPDS |
|---|
| 55 | |
|---|
| 56 | LOGICAL LDICESR |
|---|
| 57 | REAL_B :: RMINICE |
|---|
| 58 | |
|---|
| 59 | REAL_B :: RAOVLP, RBOVLP |
|---|
| 60 | |
|---|
| 61 | |
|---|
| 62 | ! * E.C.M.W.F. PHYSICS PACKAGE * |
|---|
| 63 | |
|---|
| 64 | ! J.-J. MORCRETTE E.C.M.W.F. 89/07/14 |
|---|
| 65 | |
|---|
| 66 | ! NAME TYPE PURPOSE |
|---|
| 67 | ! ---- : ---- : --------------------------------------------------- |
|---|
| 68 | ! LERAD6H: LOGICAL : .T. TO ALLOW MORE FREQUENT RADIATION CALCULATIONS |
|---|
| 69 | ! : DURING FIRST 6 HOURS OF FORECAST |
|---|
| 70 | ! LERADHS: LOGICAL : .T. IF RAD.COMPUTED ON A COARSER SAMPLED GRID |
|---|
| 71 | ! LEPO3RA: LOGICAL : .T. IF PROGNOSTIC OZONE (EC) IS PASSED TO RADIATION |
|---|
| 72 | ! NAER : INTEGER : CONFIGURATION INDEX FOR AEROSOLS |
|---|
| 73 | ! NMODE : INTEGER : CONFIGURATION FOR RADIATION CODE: FLUX VS. RADIANCE |
|---|
| 74 | ! NOZOCL : INTEGER : CHOICE OF OZONE CLIMATOLOGY (0 old, 1 new) |
|---|
| 75 | ! NRADFR : INTEGER : FREQUENCY OF FULL RADIATION COMPUTATIONS |
|---|
| 76 | ! IF(NRADFR.GT.0): RAD EVERY 'NRADFR' TIME-STEPS |
|---|
| 77 | ! IF(NRADFR.LT.0): RAD EVERY '-NRADFR' HOURS |
|---|
| 78 | ! NRADPFR: INTEGER : PRINT FREQUENCY FOR RAD.STATISTICS (in RAD.T.STEPS) |
|---|
| 79 | ! NRADPLA: INTEGER : PRINT RAD.STATISTICS EVERY 'NRADPLA' ROWS |
|---|
| 80 | ! NRINT : INTEGER : INTERPOLATION DISTANCE (in points) |
|---|
| 81 | ! NRADNFR: INTEGER : NORMAL FREQUENCY OF RADIATION STEPS |
|---|
| 82 | ! NRADSFR: INTEGER : START-UP FREQUENCY OF RADIATION STEPS |
|---|
| 83 | ! NOVLP : INTEGER : CLOUD OVERLAP CONFIGURATION |
|---|
| 84 | ! NRPROMA: INTEGER : VECTOR LENGTH FOR RADIATION CALCULATIONS |
|---|
| 85 | ! NRADF2C: INTEGER : INTERPOLATION SCHEME FOR FINE TO COURSE GRID TO BE |
|---|
| 86 | ! : USED WHEN NRINT IS GREATER THAN 1 |
|---|
| 87 | ! NRADC2F: INTEGER : INTERPOLATION SCHEME FOR COURSE TO FINE GRID TO BE |
|---|
| 88 | ! : USED WHEN NRINT IS GREATER THAN 1 |
|---|
| 89 | ! NLW : INTEGER : NUMBER OF LONGWAVE SPECTRAL INTERVALS |
|---|
| 90 | ! NSW : INTEGER : NUMBER OF SHORTWAVE SPECTRAL INTERVALS |
|---|
| 91 | ! NTSW : INTEGER : MAXIMUM POSSIBLE NUMBER OF SW SPECTRAL INTERVALS |
|---|
| 92 | ! LRADLB : LOGICAL : .T. IF RADIATION COURSER GRID IS TO BE LOAD BALANCED |
|---|
| 93 | ! : OVER PROCESSORS (I.E. WHEN NRINT>1) |
|---|
| 94 | ! |
|---|
| 95 | ! LOWASYF: LOGICAL : .F. IF WATER CLOUDS AS FOUQUART (SW) |
|---|
| 96 | ! : .T. IF WATER CLOUDS AS SLINGO (SW) |
|---|
| 97 | ! LOWHSSS: LOGICAL : .F. IF WATER CLOUDS AS SMITH-SHI (LW) |
|---|
| 98 | ! : .T. IF WATER CLOUDS AS SAVIJARVI (LW) |
|---|
| 99 | ! LOIFUEC: LOGICAL : .F. IF ICE CLOUDS AS EBERT-CURRY (LW & SW) |
|---|
| 100 | ! : .T. IF ICE CLOUDS AS FU-LIOU / FU ET AL. (LW & SW) |
|---|
| 101 | ! |
|---|
| 102 | ! LONEWSW: LOGICAL : .T. IF NEW SW CODE IS ACTIVE |
|---|
| 103 | ! LECSRAD: LOGICAL : .T. IF CLEAR-SKY RADIATION IS ARCHIVED AS PEXTR2 |
|---|
| 104 | ! NCSRADF: INTEGER : 1 IF ACCUMULATED, 2 IF INSTANTANEOUS |
|---|
| 105 | ! LRRTM : LOGICAL : .T. IF RRTM140MR IS USED FOR LW RADIATION TRANSFER |
|---|
| 106 | ! LINHOM : LOGICAL : .T. INHOMOGENEITY EFFECT, ON BOTH LW & SW RADIATION |
|---|
| 107 | ! ON BOTH STRATIFORM & CONVECTIVE CLOUDS |
|---|
| 108 | ! LHVOLCA: LOGICAL : .T. IF GISS HISTORY OF VOLCANIC AEROSOLS IS ON |
|---|
| 109 | ! LNEWAER: LOGICAL : .T. IF AEROSOL MONTHLY DISTRIBUTIONS ARE USED |
|---|
| 110 | ! LRADLP : LOGICAL : .T. IF CLOUD WATER EFFECTIVE RADIUS IS COMPUTED |
|---|
| 111 | ! LRADIP : LOGICAL : .F. IF CHRIS'S 21R3 ICE EFFECTIVE RADIUS IS USED |
|---|
| 112 | ! LTEMPDS: LOGICAL : .T. ALLOWS FOR SURFACE T DISCONTINUITY IN RAD.COMP. |
|---|
| 113 | |
|---|
| 114 | ! LDICESR: LOGICAL : .T. ICE EFFECETIVE DIAMETER A LA SUN-RIKUS, 1999 |
|---|
| 115 | |
|---|
| 116 | ! RAOVLP : REAL : COEFFICIENTS FOR ALPHA1 FACTOR IN HOGAN & |
|---|
| 117 | ! RBOVLP : REAL : ILLINGWORTH's PARAMETRIZATION |
|---|
| 118 | ! ------------------------------------------------------------------ |
|---|
| 119 | END MODULE YOERAD |
|---|
