source: palm/trunk/UTIL/chemistry/gasphase_preproc/kpp/int.modified_WCOPY/kpp_sdirk4.def @ 2696

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

Merge of branch palm4u into trunk

File size: 267 bytes
Line 
1 
2#FUNCTION AGGREGATE
3#JACOBIAN SPARSE_LU_ROW
4
5#DOUBLE ON
6#INTFILE kpp_sdirk4
7
8#INLINE F77_GLOBAL
9      REAL*8 STEPSTART
10      COMMON /GDATA/ STEPSTART
11#ENDINLINE
12
13#INLINE F77_INIT
14        STEPMIN=0.0001
15        STEPMAX=3600.
16        STEPSTART=STEPMIN
17#ENDINLINE
18
19
20
Note: See TracBrowser for help on using the repository browser.