| 1 | MODULE YOMRDI15 |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! ----------------------------------------------------------------- |
|---|
| 10 | !* ** *YOMRDI15* - COEFFICIENTS WITHIN RADIATION INTERFACE |
|---|
| 11 | !* FROZEN VERSION (CYCLE 15) OF YOERDI |
|---|
| 12 | ! ----------------------------------------------------------------- |
|---|
| 13 | |
|---|
| 14 | REAL(KIND=JPRB) :: RSDTSN15 |
|---|
| 15 | REAL(KIND=JPRB) :: RRAE15 |
|---|
| 16 | REAL(KIND=JPRB) :: RMU0015 |
|---|
| 17 | REAL(KIND=JPRB) :: RALBICE15 |
|---|
| 18 | REAL(KIND=JPRB) :: RALBSEA15 |
|---|
| 19 | REAL(KIND=JPRB) :: RALBSNM15 |
|---|
| 20 | REAL(KIND=JPRB) :: RALBSNO15 |
|---|
| 21 | REAL(KIND=JPRB) :: RCARDI15 |
|---|
| 22 | REAL(KIND=JPRB) :: REMISS15 |
|---|
| 23 | REAL(KIND=JPRB) :: RSNOWAL15 |
|---|
| 24 | REAL(KIND=JPRB) :: RVLBDC15 |
|---|
| 25 | REAL(KIND=JPRB) :: RCH415 |
|---|
| 26 | REAL(KIND=JPRB) :: RN2O15 |
|---|
| 27 | REAL(KIND=JPRB) :: RCFC1115 |
|---|
| 28 | REAL(KIND=JPRB) :: RCFC1215 |
|---|
| 29 | REAL(KIND=JPRB) :: REPALB15 |
|---|
| 30 | REAL(KIND=JPRB) :: REPCLC15 |
|---|
| 31 | REAL(KIND=JPRB) :: REPH2O15 |
|---|
| 32 | |
|---|
| 33 | ! * E.C.M.W.F. PHYSICS PACKAGE * |
|---|
| 34 | |
|---|
| 35 | ! 96-11: Ph. Dandin. Meteo-France |
|---|
| 36 | ! J.-J. MORCRETTE E.C.M.W.F. 89/07/14 |
|---|
| 37 | |
|---|
| 38 | ! NAME TYPE PURPOSE |
|---|
| 39 | ! ---- : ---- : ------------------------------------------------- |
|---|
| 40 | ! RSDTSN15 : |
|---|
| 41 | ! RRAE15 : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE |
|---|
| 42 | ! RMU0015 : MINIMUM COSINE OF SOLAR ZENITH ANGLE DUE TO EARTH'S |
|---|
| 43 | ! CURVATURE |
|---|
| 44 | ! RALBICE15: FLOATING ICE ALBEDO (Unusefull for FMR in Arpege-climat) |
|---|
| 45 | ! RALBSEA15: OPEN SEA ALBEDO (Unusefull for FMR in Arpege-climat) |
|---|
| 46 | ! RALBSNM15: SNOW ALBEDO (Unusefull for FMR in Arpege-climat) |
|---|
| 47 | ! RALBSNO15: THICK SNOW ALBEDO (Unusefull for FMR in Arpege-climat) |
|---|
| 48 | |
|---|
| 49 | ! RCARDI15 : SPECIFIC ATMOSPHERIC CONTENT IN CO2 |
|---|
| 50 | ! REMISS15 : SURFACE LONGWAVE EMISSIVITY |
|---|
| 51 | |
|---|
| 52 | ! RSNOWAL15: SNOW DEPTH (IN EQUIVALENT WATER) FOR WHICH SNOW IS |
|---|
| 53 | ! CONSIDERED AS THICK |
|---|
| 54 | ! RVLBDC15 : SPECIFIES THE REDUCTION OF THERMAL DIFFUSION UNDER |
|---|
| 55 | ! VEGETATION |
|---|
| 56 | ! REPALB15 : SECURITY TO AVOID ZERO ALBEDOS. |
|---|
| 57 | ! REPCLC15 : SECURITY TO AVOID ZERO OR ONE CLOUD COVERS |
|---|
| 58 | ! REPH2O15 : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER |
|---|
| 59 | ! TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION. |
|---|
| 60 | ! ----------------------------------------------------------------- |
|---|
| 61 | !$OMP THREADPRIVATE(ralbice15,ralbsea15,ralbsnm15,ralbsno15,rcardi15,rcfc1115,rcfc1215,rch415) |
|---|
| 62 | !$OMP THREADPRIVATE(remiss15,repalb15,repclc15,reph2o15,rmu0015,rn2o15,rrae15,rsdtsn15,rsnowal15,rvlbdc15) |
|---|
| 63 | END MODULE YOMRDI15 |
|---|
