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/def_smog
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed
  • 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.