source: palm/trunk/UTIL/chemistry/gasphase_preproc/kpp/int.modified_WCOPY/atm_odessa_ddm.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: 615 bytes
Line 
1 
2#FUNCTION AGGREGATE
3#JACOBIAN FULL
4#DOUBLE ON
5#INTFILE atm_odessa_ddm
6
7#INLINE F77_GLOBAL
8      INTEGER Autonomous
9      COMMON /INTGDATA/ Autonomous
10      REAL*8 STEPSTART
11      COMMON /GDATA/ STEPSTART
12#ENDINLINE
13
14#INLINE F77_INIT
15        STEPMIN=0.0001
16        STEPMAX=3600.
17        Autonomous = 0
18        STEPSTART=STEPMIN
19#ENDINLINE
20
21
22
23#INLINE C_GLOBAL
24extern int Autonomous;
25extern double STEPSTART;
26#ENDINLINE
27
28#INLINE C_DATA_INT
29int Autonomous;
30double STEPSTART;
31#ENDINLINE
32
33
34
35#INLINE C_INIT
36        STEPMIN=0.0001;
37        STEPMAX=3600.0;
38        Autonomous = 0;
39        STEPSTART=STEPMIN;
40#ENDINLINE
41
42
Note: See TracBrowser for help on using the repository browser.