source: palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstat/chem_gasphase_mod.kpp @ 3698

Last change on this file since 3698 was 3698, checked in by suehring, 6 years ago

Fix bad commit in gasphase_preproc

  • Property svn:executable set to *
File size: 1.3 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 branch chemistry rev 2931 (23.03.2018, forkel)
7//
8#include      phstat.spc
9#include      phstat.eqn
10#INTEGRATOR rosenbrock
11#LANGUAGE   Fortran90
12#HESSIAN    on
13#STOICMAT   on
14//
15// *******************************************************************************************
16// *** adapt the lines below occurding to the photolysis reactions of your mechanism         *
17// *** adapt the number of photolysis frequencies NPHO                                       *
18// *** adapt/extend the indices in the INTEGER, PARAMETER,PUBLIC statement below             *
19// *** adapt/extend PHOT_NAMES: Note that the order of PHOT_NAMES and the indices must match *
20// *******************************************************************************************
21//
22#INLINE F90_DATA
23  !   INLINE F90_DATA: Declaration of global variables for photolysis
24  !   REAL(kind=dp) :: phot(nphot) must eventually be moved to GLOBAL later for vector version
25  INTEGER, PARAMETER :: nphot = 1
26  !   phot Photolysis frequencies
27  REAL(kind=dp) :: phot(nphot)
28
29  INTEGER, PARAMETER,PUBLIC :: j_no2 = 1
30
31  CHARACTER(LEN=15), PARAMETER, DIMENSION(NPHOT) :: phot_names =  (/ &
32     'J_NO2          '/)
33#ENDINLINE
Note: See TracBrowser for help on using the repository browser.