source: palm/trunk/UTIL/chemistry/gasphase_preproc/kpp/models/strato.def

Last change on this file was 2696, checked in by kanani, 6 years ago

Merge of branch palm4u into trunk

File size: 1.8 KB
Line 
1#include strato.spc
2#include strato.eqn
3
4{#LANGUAGE Fortran77
5#INTEGRATOR rodas3
6#DRIVER general}
7
8#LOOKATALL
9
10#MONITOR O;
11
12#INITVALUES
13
14CFACTOR =   8.12E+16 ;
15
16O       =    8.158574E-09 ; 
17O1D     =    2.773328E-15 ; 
18O3      =    6.560000E-06 ; 
19NO      =    1.074516E-08 ; 
20NO2     =    2.758840E-09 ;
21NO3     =    5.667175E-14 ; 
22N2O5    =    6.905712E-12 ; 
23HNO3    =    3.486344E-10 ; 
24HNO4    =    3.827485E-12 ; 
25H2O     =    6.100000E-06 ;
26H       =    4.190815E-14 ; 
27OH      =    2.041165E-10 ; 
28HO2     =    1.439703E-10 ; 
29H2O2    =    7.227409E-11 ; 
30H2      =    3.700000E-07 ;
31CH4     =    4.900000E-07 ; 
32CH3     =    3.984427E-17 ; 
33CH3O    =    2.496504E-15 ; 
34CH3O2   =    5.130799E-12 ; 
35CH3OOH  =    4.587317E-12 ;
36HCO     =    3.010774E-19 ; 
37CH2O    =    9.913988E-11 ; 
38CO      =    2.000000E-08 ; 
39Cl      =    8.756027E-12 ; 
40Cl2     =    8.665679E-14 ;
41ClO     =    1.011874E-09 ; 
42ClOO    =    2.659306E-15 ; 
43OClO    =    7.193558E-14 ; 
44Cl2O2   =    7.103997E-14 ; 
45HCl     =    2.157657E-09 ;
46HOCl    =    2.196369E-10 ; 
47ClONO2  =    2.166934E-11 ; 
48Br      =    4.025093E-12 ; 
49BrCl    =    5.843046E-14 ; 
50BrO     =    1.132088E-11 ;
51HBr     =    4.349534E-13 ;
52HOBr    =    5.066596E-12 ; 
53BrONO2  =    9.405408E-14 ;
54O2      =    0.209;
55N2      =    0.781;
56
57#INLINE F77_INIT
58        TSTART = 12.D0*3600.D0
59        TEND = TSTART + 24.D0*3600.D0 * 3
60        DT = 3600.D0
61        TEMP = 241.42
62#ENDINLINE
63
64#INLINE F90_INIT
65        TSTART = 12.D0*3600.D0
66        TEND = TSTART + 24.D0*3600.D0 * 3
67        DT = 3600.D0
68        TEMP = 241.42
69#ENDINLINE
70
71#INLINE MATLAB_INIT
72   global TSTART TEND DT TEMP
73   TSTART = 12.0*3600.0;
74   TEND = TSTART + 24.0*3600.0 * 3;
75   DT = 3600.0;
76   TEMP = 241.42;
77#ENDINLINE
78
79#INLINE C_INIT
80   TSTART = 12.0*3600.0;
81   TEND = TSTART + 24.0*3600.0 * 3;
82   DT = 3600.0;
83   TEMP = 241.42;
84#ENDINLINE
Note: See TracBrowser for help on using the repository browser.