Original WRF subgrid support version from John Michalakes without fire
[wrffire.git] / wrfv2_fire / chem / KPP / kpp / kpp-2.1 / int / oldies / ros1.def
blob63de92d4c1e323c8b3ecedc84a58b3263c514e0e
2 #FUNCTION AGGREGATE
3 #JACOBIAN SPARSE_LU_ROW
5 #DOUBLE ON
6 #INTFILE ros1
8 #INLINE F77_DECL_INT
9 INTEGER Autonomous
10 COMMON /INTGDATA/ Autonomous
11 REAL*8 STEPSTART
12 COMMON /GDATA/ STEPSTART
13 #ENDINLINE
15 #INLINE F77_INIT_INT
16 STEPMIN=30.0
17 STEPMAX=30.0
18 Autonomous = 0
19 STEPSTART=STEPMIN
20 #ENDINLINE
23 #INLINE F90_DECL_INT
24 INTEGER :: Autonomous
25 DOUBLE PRECISION :: STEPSTART
26 #ENDINLINE
28 #INLINE F90_INIT_INT
29 STEPMIN=30.0
30 STEPMAX=30.0
31 Autonomous = 0
32 STEPSTART=STEPMIN
33 #ENDINLINE
35 #INLINE C_DECL_INT
36 extern int Autonomous;
37 extern double STEPSTART;
38 #ENDINLINE
40 #INLINE C_DATA_INT
41 int Autonomous;
42 double STEPSTART;
43 #ENDINLINE
45 #INLINE C_INIT_INT
46 STEPMIN = 30.0;
47 STEPMAX = 30.0;
48 Autonomous = 0;
49 STEPSTART = STEPMIN;
50 #ENDINLINE