source: palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.kpp @ 3298

Last change on this file since 3298 was 3298, checked in by kanani, 6 years ago

Merge chemistry branch at r3297 to trunk

  • Property svn:executable set to *
File size: 1.5 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      smog.spc
12#include      smog.eqn
13#INTEGRATOR rosenbrock
14#LANGUAGE   Fortran90
15#HESSIAN    on
16#STOICMAT   on
17//
18// *******************************************************************************************
19// *** adapt the lines below occurding to the photolysis reactions of your mechanism         *
20// *** adapt the number of photolysis frequencies NPHO                                       *
21// *** adapt/extend the indices in the INTEGER, PARAMETER,PUBLIC statement below             *
22// *** adapt/extend PHOT_NAMES: Note that the order of PHOT_NAMES and the indices must match *
23// *******************************************************************************************
24//
25#INLINE F90_DATA
26  !   INLINE F90_DATA: Declaration of global variables for photolysis
27  !   REAL(kind=dp) :: phot(nphot) must eventually be moved to GLOBAL later for vector version
28  INTEGER, PARAMETER :: nphot = 2
29  !   phot Photolysis frequencies
30  REAL(kind=dp) :: phot(nphot)
31
32  INTEGER, PARAMETER,PUBLIC :: j_no2 = 1
33  INTEGER, PARAMETER,PUBLIC :: j_rcho = 2
34
35  CHARACTER(LEN=15), PARAMETER, DIMENSION(NPHOT) :: phot_names =  (/ &
36     'J_NO2          ','J_RCHO         '/)
37#ENDINLINE
38
39#INLINE F90_INIT
40  fix(indf_h2o) = qvap
41  fix(indf_o2)  = 0.2e+6_dp *  fakt
42  fix(indf_co2) = 400.0_dp *  fakt
43#ENDINLINE
Note: See TracBrowser for help on using the repository browser.