source: palm/trunk/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm/chem_gasphase_mod_Parameters.f90 @ 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: 2.8 KB
Line 
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
25MODULE 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
84END MODULE chem_gasphase_mod_Parameters
85
Note: See TracBrowser for help on using the repository browser.