Merge remote-tracking branch 'origin/release-v4.6.1'
[WRF.git] / chem / KPP / kpp / kpp-2.1 / test / small_strato.def
blob6bad0625d3653efe85e5e0db58be72ead9597669
1 #include small_strato.spc
2 #include small_strato.eqn
5 //#LANGUAGE Fortran77 {Output Language}
6 //#DOUBLE ON {Double Precision}
7 //#JACOBIAN SPARSE_LU_ROW {Use Sparse DATA STRUCTURES}
9 //#INTEGRATOR rodas3
10 //#DRIVER general
13 #LOOKATALL {File Output}
14 #MONITOR O3;N;O2;O;NO;O1D;NO2; {Screen Output}
16 #CHECK O; N; {Check Mass Balance}
18 #INITVALUES {Initial Values}
20 CFACTOR = 1. ; {Conversion Factor}
21 O1D = 9.906E+01 ;
22 O = 6.624E+08 ;
23 O3 = 5.326E+11 ;
24 O2 = 1.697E+16 ;
25 NO = 8.725E+08 ;
26 NO2 = 2.240E+08 ;
27 M = 8.120E+16 ;
29 #INLINE F77_INIT
30 TSTART = (12*3600)
31 TEND = TSTART + (3*24*3600)
32 DT = 0.25*3600
33 TEMP = 270
34 #ENDINLINE
36 #INLINE F90_INIT
37 TSTART = (12*3600)
38 TEND = TSTART + (3*24*3600)
39 DT = 0.25*3600
40 TEMP = 270
41 #ENDINLINE
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
52 #INLINE C_INIT
53 TSTART = (12*3600);
54 TEND = TSTART + (3*24*3600);
55 DT = 0.25*3600;
56 TEMP = 270;
57 #ENDINLINE