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

Last change on this file since 3944 was 3944, checked in by maronga, 5 years ago

fix for last commit

File size: 1.7 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//      initial revision from branch salsa rev 3576 (29.11.2018, monakurppa)
7//
8#include      salsa+simple.spc
9#include      salsa+simple.eqn
10#INTEGRATOR   rosenbrock
11#LANGUAGE     Fortran90
12#HESSIAN      on
13#STOICMAT     on
14#INLINE F90_GLOBAL
15! QVAP - Water vapor
16  REAL(dp)                                      :: qvap
17! FAKT - Conversion factor
18  REAL(dp)                                      :: fakt
19!   Declaration of global variable declarations for photolysis will come from INLINE F90_DATA
20#ENDINLINE
21//
22// *******************************************************************************************
23// *** adapt the lines below occurding to the photolysis reactions of your mechanism         *
24// *** adapt the number of photolysis frequencies NPHO                                       *
25// *** adapt/extend the indices in the INTEGER, PARAMETER,PUBLIC statement below             *
26// *** adapt/extend PHOT_NAMES: Note that the order of PHOT_NAMES and the indices must match *
27// *******************************************************************************************
28//
29#INLINE F90_DATA
30  !   INLINE F90_DATA: Declaration of global variables for photolysis
31  !   REAL(kind=dp) :: phot(nphot) must eventually be moved to GLOBAL later for vector version
32  INTEGER, PARAMETER :: nphot = 2
33  !   phot Photolysis frequencies
34  REAL(kind=dp) :: phot(nphot)
35
36  INTEGER, PARAMETER,PUBLIC :: j_no2 = 1
37  INTEGER, PARAMETER,PUBLIC :: j_o31d = 2
38
39  CHARACTER(LEN=15), PARAMETER, DIMENSION(NPHOT) :: phot_names =  (/ &
40     'J_NO2          ','J_O31D         '/)
41#ENDINLINE
42
Note: See TracBrowser for help on using the repository browser.