source: LMDZ6/branches/contrails/libf/phylmd/YOEMETH.f90 @ 5440

Last change on this file since 5440 was 5268, checked in by abarral, 2 months ago

.f90 <-> .F90 depending on cpp key use
File size: 1.4 KB
Line 
1MODULE YOEMETH
2
3IMPLICIT NONE
4
5SAVE
6
7!     -----------------------------------------------------------------
8!     ** YOEMETH - CONTROL PARAMETERS FOR METHANE OXIDATION
9!     -----------------------------------------------------------------
10
11!     * E.C.M.W.F. PHYSICS PACKAGE *
12
13!     C. JAKOB        E.C.M.W.F.          98/04/07
14!     D. Cugnet       Adapted for LMDZ    12/02/24
15
16!      NAME     TYPE      PURPOSE
17!      ----     ----      -------
18
19!     *RALPHA1* REAL      CONSTANT IN TIME SCALE 1 CALCULATIONS
20!     *RALPHA2* REAL      CONSTANT IN TIME SCALE 2 CALCULATIONS
21!     *RQLIM*   REAL      UPPERLIMIT OD SPECIFIC HUMIDITY FOR
22!                         METHANE OXIDATION TO BE ACTIVE
23!     *RPBOTOX* REAL      PRESSURE BELOW WHICH METHANE OXIDATION
24!                         IS CONSIDERED ACTIVE
25!     *RPBOTPH* REAL      PRESSURE BELOW WHICH H2O PHOTOLYSIS
26!                         IS CONSIDERED ACTIVE
27!     *RPTOPOX* REAL      PRESSURE BELOW WHICH SHORTEST TIME SCALE
28!                         IS USED IN METHANE OXIDATION
29!     *RPTOPPH* REAL      PRESSURE BELOW WHICH SHORTEST TIME SCALE
30!                         IS USED IN H2O PHOTOLYISIS
31!     *RALPHA3* REAL      CONSTANT IN TIME SCALE 2 CALCULATIONS
32!     *RLOGPPH* REAL      CONSTANT IN TIME SCALE 2 CALCULATIONS
33
34REAL :: RALPHA1
35REAL :: RALPHA2
36REAL :: RQLIM
37REAL :: RPBOTOX
38REAL :: RPBOTPH
39REAL :: RPTOPOX
40REAL :: RPTOPPH
41REAL :: RALPHA3
42REAL :: RLOGPPH
43
44END MODULE YOEMETH
45
46
Note: See TracBrowser for help on using the repository browser.