source: LMDZ6/branches/cirrus/libf/phylmd/ecrad.v1.5.1/yoerdi.F90 @ 5435

Last change on this file since 5435 was 3908, checked in by idelkadi, 4 years ago

Online implementation of the radiative transfer code ECRAD in the LMDZ model.

  • Inclusion of the ecrad directory containing the sources of the ECRAD code
    • interface routine : radiation_scheme.F90
  • Adaptation of compilation scripts :
    • compilation under CPP key CPP_ECRAD
    • compilation with option "-rad ecard" or "-ecard true"
    • The "-rad old/rtm/ecran" build option will need to replace the "-rrtm true" and "-ecrad true" options in the future.
  • Runing LMDZ simulations with ecrad, you need :
    • logical key iflag_rrtm = 2 in physiq.def
    • namelist_ecrad (DefLists?)
    • the directory "data" containing the configuration files is temporarily placed in ../libfphylmd/ecrad/
  • Compilation and execution are tested in the 1D case. The repository under svn would allow to continue the implementation work: tests, verification of the results, ...
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.