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
}
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
}
31 TEND
= TSTART
+ (3*24*3600)
38 TEND
= TSTART
+ (3*24*3600)
44 global TSTART TEND DT TEMP
46 TEND
= TSTART
+ (3*24*3600);
54 TEND
= TSTART
+ (3*24*3600);