source: LMDZ6/branches/SETHET_DECOUPLE/libf/phylmd/YOEMETH.F90 @ 5441

Last change on this file since 5441 was 2136, checked in by lguez, 10 years ago

Add the module from ecmwf model for water production by methane oxydation
and photolysis. Activated if def file option: ok_qch4=y.
LG, D.Cugnet
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.