source: palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+phstat/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

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