1 | ! ================================================================================================================================= |
---|
2 | ! MODULE : stomate_wet_ch4_constantes_var |
---|
3 | ! |
---|
4 | ! CONTACT : orchidee-help _at_ listes.ipsl.fr |
---|
5 | ! |
---|
6 | ! LICENCE : IPSL (2006) |
---|
7 | ! This software is governed by the CeCILL licence see ORCHIDEE/ORCHIDEE_CeCILL.LIC |
---|
8 | ! |
---|
9 | !>\BRIEF CH4_calcul main module |
---|
10 | !! |
---|
11 | !!\n DESCRIPTION : None |
---|
12 | !! |
---|
13 | !! RECENT CHANGE(S) : None |
---|
14 | !! |
---|
15 | !! REFERENCE(S) : None |
---|
16 | !! |
---|
17 | !! SVN : |
---|
18 | !! $HeadURL: svn://forge.ipsl.jussieu.fr/orchidee/branches/ORCHIDEE-MICT/ORCHIDEE/src_stomate/stomate.f90 $ |
---|
19 | !! $Date: 2017-07-28 17:48:13 +0200 (Fri, 28 Jul 2017) $ |
---|
20 | !! $Revision: 4542 $ |
---|
21 | !! \n |
---|
22 | !_ ================================================================================================================================ |
---|
23 | MODULE stomate_wet_ch4_constantes_var |
---|
24 | ! modules used: |
---|
25 | USE ioipsl_para |
---|
26 | |
---|
27 | IMPLICIT NONE |
---|
28 | |
---|
29 | ! private & public routines |
---|
30 | |
---|
31 | PUBLIC |
---|
32 | ! |
---|
33 | ! stomate cste WETLAND |
---|
34 | ! |
---|
35 | ! Nb of vertical layers for CH4 diffussion |
---|
36 | INTEGER(i_std),SAVE :: nvert = 171 |
---|
37 | INTEGER(i_std),SAVE :: ns = 151 |
---|
38 | INTEGER(i_std),SAVE :: nday = 24 |
---|
39 | REAL(r_std),SAVE :: h = 0.1 |
---|
40 | REAL(r_std),SAVE :: rk = 1 |
---|
41 | REAL(r_std),PARAMETER :: rkh = 100 !rk/h**2 |
---|
42 | REAL(r_std),SAVE :: diffair = 7.2 |
---|
43 | REAL(r_std),SAVE :: pox = 0.5 |
---|
44 | REAL(r_std),SAVE :: dveg = 0.001 |
---|
45 | REAL(r_std),SAVE :: rkm = 5.0 |
---|
46 | REAL(r_std),SAVE :: xvmax = 20.0 |
---|
47 | REAL(r_std),SAVE :: oxq10 = 2.0 |
---|
48 | REAL(r_std),PARAMETER :: funit = 3.84 !3.84/rk |
---|
49 | REAL(r_std),SAVE :: scmax = 500. |
---|
50 | REAL(r_std),SAVE :: sr0pl = 600. |
---|
51 | |
---|
52 | !valeur de WTD pour les routines de calcul de densite de flux de CH4 |
---|
53 | REAL(r_std),SAVE :: pwater_wet1=-3 |
---|
54 | REAL(r_std),SAVE :: pwater_wet2=-9 |
---|
55 | REAL(r_std),SAVE :: pwater_wet3=-15 |
---|
56 | REAL(r_std),SAVE :: pwater_wet4=-21 |
---|
57 | |
---|
58 | REAL(r_std),SAVE :: rpv = 0.5 |
---|
59 | REAL(r_std),SAVE :: iother = -1.0 |
---|
60 | |
---|
61 | !!pour l instant je les mets constantes pour toutes les latitudes |
---|
62 | REAL(r_std),SAVE :: rq10 = 3.0 |
---|
63 | |
---|
64 | REAL(r_std),SAVE , DIMENSION(3) :: alpha_CH4 = (/0.006,0.004,0.028/) |
---|
65 | |
---|
66 | !FLAG for CH4 from wetland |
---|
67 | LOGICAL,SAVE :: CH4_WTD1, CH4_WTD2, CH4_WTD3, CH4_WTD4 |
---|
68 | |
---|
69 | !atmoshpere methane concentration/ near surface methane concentration |
---|
70 | REAL(r_std), SAVE :: CH4atmo_CONC |
---|
71 | |
---|
72 | CONTAINS |
---|
73 | |
---|
74 | |
---|
75 | END MODULE stomate_wet_ch4_constantes_var |
---|
76 | |
---|