source: LMDZ6/branches/cirrus/libf/phylmd/ecrad/ifsrrtm/yoerdi.F90

Last change on this file was 4773, checked in by idelkadi, 12 months ago
  • Update of Ecrad in LMDZ The same organization of the Ecrad offline version is retained in order to facilitate the updating of Ecrad in LMDZ and the comparison between online and offline results. version 1.6.1 of Ecrad (​https://github.com/lguez/ecrad.git)
  • Implementation of the double call of Ecrad in LMDZ


File size: 1.7 KB
Line 
1MODULE YOERDI
2
3USE PARKIND1  ,ONLY : JPRB
4
5IMPLICIT NONE
6
7PUBLIC
8
9SAVE
10
11!     -----------------------------------------------------------------
12!*    ** *YOERDI* - COEFFICIENTS WITHIN RADIATION INTERFACE
13!     -----------------------------------------------------------------
14
15REAL(KIND=JPRB) :: RRAE
16REAL(KIND=JPRB) :: RSUNDUR
17REAL(KIND=JPRB) :: RCARDI
18REAL(KIND=JPRB) :: RCH4
19REAL(KIND=JPRB) :: RN2O
20REAL(KIND=JPRB) :: RNO2
21REAL(KIND=JPRB) :: RO3
22REAL(KIND=JPRB) :: RCCL4
23REAL(KIND=JPRB) :: RCFC11
24REAL(KIND=JPRB) :: RCFC12
25REAL(KIND=JPRB) :: RCFC22
26REAL(KIND=JPRB) :: REPCLC
27REAL(KIND=JPRB) :: REPH2O
28REAL(KIND=JPRB) :: RCCO2, RCCH4, RCN2O, RCNO2, RCCFC11, RCCFC12, RCCFC22, RCCCL4
29REAL(KIND=JPRB) :: RSOLINC
30
31!        * E.C.M.W.F. PHYSICS PACKAGE *
32
33!     Original  J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
34!     Modified  P. Viterbo    99/03/26    Surface tiling
35!     Modified  P. Viterbo    24/05/2004  surf library
36!     Modified JJMorcrette    2005/01/19  GHG and Solar constant variability
37
38!  NAME     TYPE     PURPOSE
39!  ----  :  ----   : ---------------------------------------------------
40! RRAE   : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE
41! RSUNDUR: MINIMUM DIRECT SOLAR FOR COMPUTING SOLAR DURATION
42! RCARDI : SPECIFIC ATMOSPHERIC CONTENT IN CO2
43! RCH4, RN2O, RNO2, RO3, RCFC11, RCFC12 MASS MIXING RATIO OF VARIOUS TRACE GASES
44! RCCH4, RCN2O, ... MASS MIXING RATIO OF VARIOUS TRACE GASES IN CLIMATE MODE
45! REPCLC : SECURITY TO AVOID ZERO OR ONE CLOUD COVERS
46! REPH2O : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER
47!          TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
48!     -----------------------------------------------------------------
49END MODULE YOERDI
Note: See TracBrowser for help on using the repository browser.