| [2089] | 1 | MODULE YOERDI |
|---|
| 2 | |
|---|
| 3 | |
|---|
| 4 | #include "tsmbkind.h" |
|---|
| 5 | |
|---|
| 6 | IMPLICIT NONE |
|---|
| 7 | |
|---|
| 8 | SAVE |
|---|
| 9 | |
|---|
| 10 | ! ----------------------------------------------------------------- |
|---|
| 11 | !* ** *YOERDI* - COEFFICIENTS WITHIN RADIATION INTERFACE |
|---|
| 12 | ! ----------------------------------------------------------------- |
|---|
| 13 | |
|---|
| 14 | REAL_B :: RRAE |
|---|
| 15 | REAL_B :: RSUNDUR |
|---|
| 16 | REAL_B :: RALBSEAD |
|---|
| 17 | REAL_B :: RALBICEVS_AR(12) |
|---|
| 18 | REAL_B :: RALBICENI_AR(12) |
|---|
| 19 | REAL_B :: RALBICEVS_AN(12) |
|---|
| 20 | REAL_B :: RALBICENI_AN(12) |
|---|
| 21 | REAL_B :: RALBSFO |
|---|
| 22 | REAL_B :: REMISD |
|---|
| 23 | REAL_B :: REMISL |
|---|
| 24 | REAL_B :: REMISN |
|---|
| 25 | REAL_B :: REMISS |
|---|
| 26 | REAL_B :: RCARDI |
|---|
| 27 | REAL_B :: RCH4 |
|---|
| 28 | REAL_B :: RN2O |
|---|
| 29 | REAL_B :: RO3 |
|---|
| 30 | REAL_B :: RCFC11 |
|---|
| 31 | REAL_B :: RCFC12 |
|---|
| 32 | REAL_B :: REPALB |
|---|
| 33 | REAL_B :: REPCLC |
|---|
| 34 | REAL_B :: REPH2O |
|---|
| 35 | |
|---|
| 36 | ! * E.C.M.W.F. PHYSICS PACKAGE * |
|---|
| 37 | |
|---|
| 38 | ! Original J.-J. MORCRETTE E.C.M.W.F. 89/07/14 |
|---|
| 39 | ! Modified P. Viterbo 99/03/26 Surface tiling |
|---|
| 40 | |
|---|
| 41 | ! NAME TYPE PURPOSE |
|---|
| 42 | ! ---- : ---- : --------------------------------------------------- |
|---|
| 43 | ! RRAE : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE |
|---|
| 44 | ! RSUNDUR: MINIMUM DIRECT SOLAR FOR COMPUTING SOLAR DURATION |
|---|
| 45 | ! RALBSEAD: OPEN SEA ALBEDO FOR DIFFUSE RADIATION |
|---|
| 46 | ! RALBICEVS_AR: MONTHLY SEA ICE ALBEDO FOR VISIBLE RADIATION (ARCTIC) |
|---|
| 47 | ! RALBICENI_AR: MONTHLY SEA ICE ALBEDO FOR NEAR-INFRARED RADIATION (ARCTIC) |
|---|
| 48 | ! RALBICEVS_AN: MONTHLY SEA ICE ALBEDO FOR VISIBLE RADIATION (ANTARCTIC) |
|---|
| 49 | ! RALBICENI_AN: MONTHLY SEA ICE ALBEDO FOR NEAR-INFRARED RADIATION (ANTARCTIC) |
|---|
| 50 | ! RALBSFO: SNOW ALBEDO IN THE PRESENCE OF FOREST |
|---|
| 51 | |
|---|
| 52 | ! REMISD : LONGWAVE EMISSIVITY OF DESERT LAND SURFACE |
|---|
| 53 | ! REMISL : LONGWAVE EMISSIVITY OF LAND |
|---|
| 54 | ! REMISN : LONGWAVE EMISSIVITY OF SNOW |
|---|
| 55 | ! REMISS : LONGWAVE EMISSIVITY OF SEA |
|---|
| 56 | |
|---|
| 57 | ! RCARDI : SPECIFIC ATMOSPHERIC CONTENT IN CO2 |
|---|
| 58 | |
|---|
| 59 | ! REPALB : SECURITY TO AVOID ZERO ALBEDOS. |
|---|
| 60 | ! REPCLC : SECURITY TO AVOID ZERO OR ONE CLOUD COVERS |
|---|
| 61 | ! REPH2O : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER |
|---|
| 62 | ! TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION. |
|---|
| 63 | ! ----------------------------------------------------------------- |
|---|
| 64 | END MODULE YOERDI |
|---|
