source: LMDZ6/branches/cirrus/libf/phylmd/ecrad/ifs/yoerdu.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: 2.2 KB
Line 
1! (C) Copyright 1989- ECMWF.
2! (C) Copyright 1989- Meteo-France.
3!
4! This software is licensed under the terms of the Apache Licence Version 2.0
5! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
6!
7! In applying this licence, ECMWF does not waive the privileges and immunities
8! granted to it by virtue of its status as an intergovernmental organisation
9! nor does it submit to any jurisdiction.
10
11MODULE YOERDU
12
13USE PARKIND1  ,ONLY : JPIM     ,JPRB
14
15IMPLICIT NONE
16
17SAVE
18
19!     ------------------------------------------------------------------
20!*    ** *YOERDU* - CONTROL, PARAMETERS AND SECURITY IN RADIATION
21!     ------------------------------------------------------------------
22
23INTEGER(KIND=JPIM) :: NUAER
24INTEGER(KIND=JPIM) :: NTRAER
25INTEGER(KIND=JPIM) :: NIMP
26INTEGER(KIND=JPIM) :: NOUT
27
28REAL(KIND=JPRB) :: R10E
29REAL(KIND=JPRB) :: REPLOG = 1.0E-12_JPRB
30REAL(KIND=JPRB) :: REPSC
31REAL(KIND=JPRB) :: REPSCA
32REAL(KIND=JPRB) :: REPSCO
33REAL(KIND=JPRB) :: REPSCQ
34REAL(KIND=JPRB) :: REPSCT
35REAL(KIND=JPRB) :: REPSCW = 1.0E-12_JPRB
36REAL(KIND=JPRB) :: DIFF
37
38!        * E.C.M.W.F. PHYSICS PACKAGE *
39
40!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
41
42!  NAME     TYPE     PURPOSE
43!  ----  :  ----   : ---------------------------------------------------
44! NUAER  : INTEGER   NUMBER OF ABSORBER AMOUNTS        W OR W/O AEROSOLS
45! NTRAER : INTEGER   NUMBER OF TRANSMISSION FUNCTIONS  W OR W/O AEROSOLS
46! NIMP   : INTEGER   INDEX FOR EXTRA PRINTS WITHIN RADIATION CODE
47! NOUT   : INTEGER   UNIT NUMBER FOR THE EXTRA PRINTS
48! RCDAY  : REAL
49! CCO2   : REAL      CONVERSION COEFFICIENT FOR CO2 IN S.W. CODE
50! CH2O   : REAL      CONVERSION COEFFICIENT FOR H2O IN S.W. CODE
51! R10E   : REAL      DECIMAL/NATURAL LOG.FACTOR
52! DIFF   : REAL      DIFFUSIVITY FACTOR
53!-SECURITY THRESHOLDS
54! REPLOG : REAL      SEC. EPSILON FOR ABS.AMOUNT IN LAPLACE TRANSFORM
55! REPSC  : REAL      SEC. EPSILON FOR CLOUD COVER
56! REPSCO : REAL      SEC. EPSILON FOR OZONE AMOUNT
57! REPSCQ : REAL      SEC. EPSILON FOR WATER VAPOR
58! REPSCT : REAL      SEC. EPSILON FOR SHORTWAVE OPTICAL THICKNESS
59! REPSCW : REAL      SEC. EPSILON FOR CLOUD LIQUID WATER PATH
60
61!     -----------------------------------------------------------------
62END MODULE YOERDU
Note: See TracBrowser for help on using the repository browser.