source: palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1/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.3 KB
Line 
1
2//chem_gasphase_mod.kpp
3//
4//Former revisions
5//----------------
6// $Id: chem_gasphase_mod.kpp 2459 2017-09-13 14:10:33Z forkel $
7//      initial revision branch chemistry rev 2973 (16.04.18 forkel)
8//
9#include      passive1.spc
10#include      passive1.eqn
11#INTEGRATOR rosenbrock
12#LANGUAGE   Fortran90
13#HESSIAN    on
14#STOICMAT   on
15//
16// *******************************************************************************************
17// *** adapt the lines below occurding to the photolysis reactions of your mechanism         *
18// *** adapt the number of photolysis frequencies NPHO                                       *
19// *** adapt/extend the indices in the INTEGER, PARAMETER,PUBLIC statement below             *
20// *** adapt/extend PHOT_NAMES: Note that the order of PHOT_NAMES and the indices must match *
21// *******************************************************************************************
22//
23#INLINE F90_DATA
24  !   INLINE F90_DATA: Declaration of global variables for photolysis
25  !   REAL(kind=dp) :: phot(nphot) must eventually be moved to GLOBAL later for vector version
26  INTEGER, PARAMETER :: nphot = 1
27  !   phot Photolysis frequencies
28  REAL(kind=dp) :: phot(nphot)
29
30  INTEGER, PARAMETER,PUBLIC :: j_no2 = 1
31
32  CHARACTER(LEN=15), PARAMETER, DIMENSION(NPHOT) :: phot_names =  (/ &
33     'J_NO2          '/)
34#ENDINLINE
35
Note: See TracBrowser for help on using the repository browser.