source: LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/ecrad/yoerdi.F90 @ 4109

Last change on this file since 4109 was 3880, checked in by idelkadi, 3 years ago

Online implementation of the radiative transfer code ECRAD in LMDZ.

  • Inclusion of the ecrad directory containing the sources of the ECRAD code
  • Adaptation of compilation scripts (CPP_ECRAD keys)
  • Call of ecrad in radlwsw_m.F90 under the logical key iflag_rrtm = 2
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.