source: LMDZ5/branches/testing/libf/phylmd/rrtm/yoerdu.F90 @ 1999

Last change on this file since 1999 was 1999, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1920:1997 into testing branch
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 1.7 KB
Line 
1MODULE YOERDU
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    ** *YOERDU* - CONTROL, PARAMETERS AND SECURITY IN RADIATION
11!     ------------------------------------------------------------------
12
13INTEGER(KIND=JPIM) :: NUAER
14INTEGER(KIND=JPIM) :: NTRAER
15INTEGER(KIND=JPIM) :: NIMP
16INTEGER(KIND=JPIM) :: NOUT
17REAL(KIND=JPRB) :: RCDAY
18REAL(KIND=JPRB) :: R10E
19REAL(KIND=JPRB) :: REPLOG
20REAL(KIND=JPRB) :: REPSC
21REAL(KIND=JPRB) :: REPSCO
22REAL(KIND=JPRB) :: REPSCQ
23REAL(KIND=JPRB) :: REPSCT
24REAL(KIND=JPRB) :: REPSCW
25REAL(KIND=JPRB) :: DIFF
26
27!        * E.C.M.W.F. PHYSICS PACKAGE *
28
29!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
30
31!  NAME     TYPE     PURPOSE
32!  ----  :  ----   : ---------------------------------------------------
33! NUAER  : INTEGER   NUMBER OF ABSORBER AMOUNTS        W OR W/O AEROSOLS
34! NTRAER : INTEGER   NUMBER OF TRANSMISSION FUNCTIONS  W OR W/O AEROSOLS
35! NIMP   : INTEGER   INDEX FOR EXTRA PRINTS WITHIN RADIATION CODE
36! NOUT   : INTEGER   UNIT NUMBER FOR THE EXTRA PRINTS
37! RCDAY  : REAL
38! CCO2   : REAL      CONVERSION COEFFICIENT FOR CO2 IN S.W. CODE
39! CH2O   : REAL      CONVERSION COEFFICIENT FOR H2O IN S.W. CODE
40! R10E   : REAL      DECIMAL/NATURAL LOG.FACTOR
41! DIFF   : REAL      DIFFUSIVITY FACTOR
42!-SECURITY THRESHOLDS
43! REPLOG : REAL      SEC. EPSILON FOR ABS.AMOUNT IN LAPLACE TRANSFORM
44! REPSC  : REAL      SEC. EPSILON FOR CLOUD COVER
45! REPSCO : REAL      SEC. EPSILON FOR OZONE AMOUNT
46! REPSCQ : REAL      SEC. EPSILON FOR WATER VAPOR
47! REPSCT : REAL      SEC. EPSILON FOR SHORTWAVE OPTICAL THICKNESS
48! REPSCW : REAL      SEC. EPSILON FOR CLOUD LIQUID WATER PATH
49
50!     -----------------------------------------------------------------
51END MODULE YOERDU
Note: See TracBrowser for help on using the repository browser.