source: palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.kpp @ 3582

Last change on this file since 3582 was 3566, checked in by monakurppa, 3 years ago

Branch salsa: included chemical mechanism including salsa gases

File size: 1.7 KB
Line 
1//chem_gasphase_mod.kpp
2//
3// Current revision
4// forkel 20.04.2018: added F90_INIT for initialization of fix compounds
5//
6//
7//Former revisions
8//----------------
9// $Id: chem_gasphase_mod.kpp 2459 2017-09-13 14:10:33Z forkel $
10//
11#include      salsa+simple.spc
12#include      salsa+simple.eqn
13#INTEGRATOR   rosenbrock
14#LANGUAGE     Fortran90
15#HESSIAN      on
16#STOICMAT     on
17#INLINE F90_GLOBAL
18! QVAP - Water vapor
19  REAL(dp)                                      :: qvap
20! FAKT - Conversion factor
21  REAL(dp)                                      :: fakt
22!   Declaration of global variable declarations for photolysis will come from INLINE F90_DATA
23#ENDINLINE
24//
25// *******************************************************************************************
26// *** adapt the lines below occurding to the photolysis reactions of your mechanism         *
27// *** adapt the number of photolysis frequencies NPHO                                       *
28// *** adapt/extend the indices in the INTEGER, PARAMETER,PUBLIC statement below             *
29// *** adapt/extend PHOT_NAMES: Note that the order of PHOT_NAMES and the indices must match *
30// *******************************************************************************************
31//
32#INLINE F90_DATA
33  !   INLINE F90_DATA: Declaration of global variables for photolysis
34  !   REAL(kind=dp) :: phot(nphot) must eventually be moved to GLOBAL later for vector version
35  INTEGER, PARAMETER :: nphot = 2
36  !   phot Photolysis frequencies
37  REAL(kind=dp) :: phot(nphot)
38
39  INTEGER, PARAMETER,PUBLIC :: j_no2 = 1
40  INTEGER, PARAMETER,PUBLIC :: j_o31d = 2
41
42  CHARACTER(LEN=15), PARAMETER, DIMENSION(NPHOT) :: phot_names =  (/ &
43     'J_NO2          ','J_O31D         '/)
44#ENDINLINE
45
Note: See TracBrowser for help on using the repository browser.