Ignore:
Timestamp:
Oct 2, 2018 12:21:11 PM (4 years ago)
Author:
kanani
Message:

Merge chemistry branch at r3297 to trunk

Location:
palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms
Files:
4 edited
7 copied

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/chem_gasphase_mod.kpp

    r2696 r3298  
    1111#HESSIAN    on
    1212#STOICMAT   on
    13 #INLINE F90_GLOBAL
    14   !   Declaration of global variable declarations for photolysis will come from INLINE F90_DATA
    15 #ENDINLINE
    1613//
    1714// *******************************************************************************************
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/chem_gasphase_mod.kpp

    r2696 r3298  
    11//chem_gasphase_mod.kpp
     2//
     3// Current revision
     4// forkel 20.04.2018: added F90_INIT for initialization of fix compounds
     5//
    26//
    37//Former revisions
     
    1115#HESSIAN    on
    1216#STOICMAT   on
    13 #INLINE F90_GLOBAL
    14   !   Declaration of global variable declarations for photolysis will come from INLINE F90_DATA
    15 #ENDINLINE
    1617//
    1718// *******************************************************************************************
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/simple.eqn

    r2696 r3298  
    11{simple.eqn
    2 Former revisions
     2Current revision
    33----------------
    4  $Id: smog.eqn 2459 2017-09-13 14:10:33Z forkel $
     4 201711   Created simple.eqn with 6 equations forkel
     5 20180316 Added equation no. 7                forkel
    56}
    67#EQUATIONS
    78
    8 { very simple mechanism - do NOT show to a chemist! }
     9{ home made very simple mechanism - please do not show to a chemist! }
    910
    1011  { 1.}  NO2 + hv = NO + O3 :                   phot(j_no2)  ;
     
    1415  { 5.}  RO2 + NO = NO2 + RCHO + HO2 :       arr2(4.2E-12_dp, -180.0_dp, temp);
    1516  { 6.}  HO2 + NO = NO2 + OH :               arr2(3.7E-12_dp, -240.0_dp, temp) ;
     17  { 7.}  NO2 + OH = HNO3     :               arr2(1.15E-11_dp, 0.0_dp, temp) ;
  • palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.kpp

    r2696 r3298  
    11//chem_gasphase_mod.kpp
     2//
     3// Current revision
     4// forkel 20.04.2018: added F90_INIT for initialization of fix compounds
     5//
    26//
    37//Former revisions
     
    1115#HESSIAN    on
    1216#STOICMAT   on
    13 #INLINE F90_GLOBAL
    14   !   Declaration of global variable declarations for photolysis will come from INLINE F90_DATA
    15 #ENDINLINE
    1617//
    1718// *******************************************************************************************
     
    3637#ENDINLINE
    3738
     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 TracChangeset for help on using the changeset viewer.