source: palm/trunk/UTIL/chemistry/gasphase_preproc/kpp/models/small_strato.def @ 3800

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

Merge of branch palm4u into trunk

File size: 1.2 KB
Line 
1#include small_strato.spc
2#include small_strato.eqn
3 
4
5//#LANGUAGE Fortran77          {Output Language}
6//#DOUBLE ON                   {Double Precision}
7//#JACOBIAN SPARSE_LU_ROW      {Use Sparse DATA STRUCTURES}
8 
9//#INTEGRATOR rodas3
10//#DRIVER general
11
12
13#LOOKATALL                     {File Output}
14#MONITOR O3;N;O2;O;NO;O1D;NO2; {Screen Output}
15
16#CHECK O; N;                   {Check Mass Balance}
17 
18#INITVALUES                    {Initial Values}
19 
20CFACTOR = 1.    ;              {Conversion Factor}
21O1D = 9.906E+01 ;
22O   = 6.624E+08 ;
23O3  = 5.326E+11 ;
24O2  = 1.697E+16 ;
25NO  = 8.725E+08 ;
26NO2 = 2.240E+08 ;
27M   = 8.120E+16 ;
28 
29#INLINE F77_INIT
30        TSTART = (12*3600)
31        TEND = TSTART + (3*24*3600)
32        DT = 0.25*3600 
33        TEMP = 270
34#ENDINLINE         
35 
36#INLINE F90_INIT
37        TSTART = (12*3600)
38        TEND = TSTART + (3*24*3600)
39        DT = 0.25*3600 
40        TEMP = 270
41#ENDINLINE         
42 
43#INLINE MATLAB_INIT
44  global TSTART TEND DT TEMP
45  TSTART = (12*3600);
46  TEND = TSTART + (3*24*3600);
47  DT = 0.25*3600; 
48  TEMP = 270;
49#ENDINLINE         
50
51
52#INLINE C_INIT
53        TSTART = (12*3600);
54        TEND = TSTART + (3*24*3600);
55        DT = 0.25*3600;
56        TEMP = 270;
57#ENDINLINE
58
59
Note: See TracBrowser for help on using the repository browser.