source: LMDZ6/branches/SETHET_DECOUPLE/libf/phymar/yoemeth.F90 @ 5325

Last change on this file since 5325 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR

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