source:
palm/trunk/UTIL/chemistry/gasphase_preproc/kpp/int/sdirk.def
@
4446
Last change on this file since 4446 was 2696, checked in by kanani, 7 years ago | |
---|---|
File size: 262 bytes |
Rev | Line | |
---|---|---|
[2696] | 1 | |
2 | #FUNCTION AGGREGATE | |
3 | #JACOBIAN SPARSE_LU_ROW | |
4 | ||
5 | #DOUBLE ON | |
6 | #INTFILE sdirk | |
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.