1 | ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
---|
2 | ! |
---|
3 | ! Parameter Module File |
---|
4 | ! |
---|
5 | ! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor |
---|
6 | ! (http://www.cs.vt.edu/~asandu/Software/KPP) |
---|
7 | ! KPP is distributed under GPL, the general public licence |
---|
8 | ! (http://www.gnu.org/copyleft/gpl.html) |
---|
9 | ! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa |
---|
10 | ! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech |
---|
11 | ! With important contributions from: |
---|
12 | ! M. Damian, Villanova University, USA |
---|
13 | ! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany |
---|
14 | ! |
---|
15 | ! File : chem_gasphase_mod_Parameters.f90 |
---|
16 | ! Time : Fri Dec 1 18:10:53 2017 |
---|
17 | ! Working directory : /data/kanani/branches/palm4u/GASPHASE_PREPROC/tmp_kpp4palm |
---|
18 | ! Equation file : chem_gasphase_mod.kpp |
---|
19 | ! Output root filename : chem_gasphase_mod |
---|
20 | ! |
---|
21 | ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ |
---|
22 | |
---|
23 | |
---|
24 | |
---|
25 | MODULE chem_gasphase_mod_Parameters |
---|
26 | |
---|
27 | USE chem_gasphase_mod_Precision |
---|
28 | PUBLIC |
---|
29 | SAVE |
---|
30 | |
---|
31 | |
---|
32 | ! NSPEC - Number of chemical species |
---|
33 | INTEGER, PARAMETER :: NSPEC = 3 |
---|
34 | ! NVAR - Number of Variable species |
---|
35 | INTEGER, PARAMETER :: NVAR = 3 |
---|
36 | ! NVARACT - Number of Active species |
---|
37 | INTEGER, PARAMETER :: NVARACT = 3 |
---|
38 | ! NFIX - Number of Fixed species |
---|
39 | INTEGER, PARAMETER :: NFIX = 1 |
---|
40 | ! NREACT - Number of reactions |
---|
41 | INTEGER, PARAMETER :: NREACT = 3 |
---|
42 | ! NVARST - Starting of variables in conc. vect. |
---|
43 | INTEGER, PARAMETER :: NVARST = 1 |
---|
44 | ! NFIXST - Starting of fixed in conc. vect. |
---|
45 | INTEGER, PARAMETER :: NFIXST = 4 |
---|
46 | ! NONZERO - Number of nonzero entries in Jacobian |
---|
47 | INTEGER, PARAMETER :: NONZERO = 3 |
---|
48 | ! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian |
---|
49 | INTEGER, PARAMETER :: LU_NONZERO = 3 |
---|
50 | ! CNVAR - (NVAR+1) Number of elements in compressed row format |
---|
51 | INTEGER, PARAMETER :: CNVAR = 4 |
---|
52 | ! CNEQN - (NREACT+1) Number stoicm elements in compressed col format |
---|
53 | INTEGER, PARAMETER :: CNEQN = 4 |
---|
54 | ! NHESS - Length of Sparse Hessian |
---|
55 | INTEGER, PARAMETER :: NHESS = 1 |
---|
56 | ! NLOOKAT - Number of species to look at |
---|
57 | INTEGER, PARAMETER :: NLOOKAT = 0 |
---|
58 | ! NMONITOR - Number of species to monitor |
---|
59 | INTEGER, PARAMETER :: NMONITOR = 0 |
---|
60 | ! NMASS - Number of atoms to check mass balance |
---|
61 | INTEGER, PARAMETER :: NMASS = 1 |
---|
62 | |
---|
63 | ! Index declaration for variable species in C and VAR |
---|
64 | ! VAR(ind_spc) = C(ind_spc) |
---|
65 | |
---|
66 | INTEGER, PARAMETER :: ind_CO = 1 |
---|
67 | INTEGER, PARAMETER :: ind_PM10 = 2 |
---|
68 | INTEGER, PARAMETER :: ind_PM25 = 3 |
---|
69 | |
---|
70 | ! Index declaration for fixed species in C |
---|
71 | ! C(ind_spc) |
---|
72 | |
---|
73 | |
---|
74 | ! Index declaration for fixed species in FIX |
---|
75 | ! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) |
---|
76 | |
---|
77 | |
---|
78 | ! NJVRP - Length of sparse Jacobian JVRP |
---|
79 | INTEGER, PARAMETER :: NJVRP = 3 |
---|
80 | |
---|
81 | ! NSTOICM - Length of Sparse Stoichiometric Matrix |
---|
82 | INTEGER, PARAMETER :: NSTOICM = 1 |
---|
83 | |
---|
84 | END MODULE chem_gasphase_mod_Parameters |
---|
85 | |
---|