source: LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/ifsrrtm/yoerdi.F90 @ 5428

Last change on this file since 5428 was 4728, checked in by idelkadi, 14 months ago

Update of ecrad in the LMDZ_ECRad branch of LMDZ:

  • version 1.6.1 of ecrad
  • files are no longer grouped in the same ecrad directory.
  • the structure of ecrad offline is preserved to facilitate updating in LMDZ
  • cfg.bld modified to take into account the new added subdirectories.
  • the interface routines and those added in ecrad are moved to the phylmd directory
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.