source: palm/trunk/UTIL/chemistry/gasphase_preproc/kpp/models/saprcnov.def @ 4620

Last change on this file since 4620 was 2696, checked in by kanani, 7 years ago

Merge of branch palm4u into trunk

File size: 1.4 KB
Line 
1#include saprcnov.spc
2#include saprcnov.eqn
3
4{#LANGUAGE Fortran77
5#INTEGRATOR rodas3
6#DRIVER general}
7
8#LOOKATALL
9#MONITOR O3; NO; NO2; SO2;
10
11#INITVALUES
12
13   CFACTOR = 2.4476E+13;
14
15   ALl_SPEC = 0.0E0;
16   NO = 1.0E-1;
17   NO2 = 5.0E-2;
18   HONO = 1.E-3;
19   SO2 = 5.E-2;
20   ISOPRENE = 4.33E-4;
21   TERP = 8.20E-4;
22   ETHENE = 1.89E-2;
23   MEOH = 5.89E-3;
24   HCOOH = 6.77E-4;
25   CCO_OH = 1.16E-3;
26   RCO_OH = 3.92E-4;
27   HCHO = 1.12E-2;
28   CCHO = 2.32E-3;
29   RCHO = 1.72E-3;
30   GLY = 1.21E-4;
31   MGLY = 8.37E-5;
32   METHACRO = 1.30E-3;
33   ISOPROD = 8.93E-5;
34   BALD = 7.51E-5;
35   ACET = 5.07E-3;
36   MEK = 3.26E-3;
37   PROD2 = 1.93E-3;
38   PHEN = 6.06E-4;
39   CRES = 5.60E-4;
40   ALK3 = 4.69E-2;
41   ALK4 = 4.17E-2;
42   ALK5 = 3.06E-2;
43   ARO1 = 1.18E-2;
44   ARO2 = 8.74E-3;
45   OLE1 = 1.04E-2;
46   OLE2 = 7.97E-3;
47   CH4 = 0.07E0;
48   H2O = 2.0E+04;
49   O2  = 2.09E+5;
50   AIR = 1.0E6; 
51   
52#INLINE F77_INIT
53        TSTART = 0.0D0
54        TEND = TSTART + 2*24*3600.0D0 ! 2160.0D0*60.0D0
55        DT = 3600.D0
56        TEMP = 300.0D0
57#ENDINLINE   
58
59#INLINE F90_INIT
60        TSTART = 0.0D0
61        TEND = TSTART + 2*24*3600.0D0 ! 2160.0D0*60.0D0
62        DT = 3600.D0
63        TEMP = 300.0D0
64#ENDINLINE   
65 
66#INLINE MATLAB_INIT
67   global TSTART TEND DT TEMP
68   TSTART = 0.0;
69   TEND = TSTART  + 2*24*3600.0D0;
70   DT = 3600.0;
71   TEMP = 300.00;
72#ENDINLINE   
73 
74#INLINE C_INIT
75   TSTART = 0.0;
76   TEND = TSTART  + 2*24*3600.0D0; /*+ 2160.0*60.0;*/
77   DT = 3600.0;
78   TEMP = 300.00;
79#ENDINLINE   
Note: See TracBrowser for help on using the repository browser.