Changeset 3298 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.kpp

Timestamp:

Oct 2, 2018 12:21:11 PM (6 years ago)

Author:

kanani

Message:

Merge chemistry branch at r3297 to trunk

File:

• palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.kpp (modified) (3 diffs)

palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.kpp

@@ -1 +1 @@
 //chem_gasphase_mod.kpp
+//
+// Current revision
+// forkel 20.04.2018: added F90_INIT for initialization of fix compounds
+//
 //
 //Former revisions
@@ -11 +15 @@
 #HESSIAN    on
 #STOICMAT   on
-#INLINE F90_GLOBAL
-  !   Declaration of global variable declarations for photolysis will come from INLINE F90_DATA
-#ENDINLINE
 //
 // *******************************************************************************************
@@ -36 +37 @@
 #ENDINLINE
 
+#INLINE F90_INIT
+  fix(indf_h2o) = qvap
+  fix(indf_o2)  = 0.2e+6_dp *  fakt
+  fix(indf_co2) = 400.0_dp *  fakt
+#ENDINLINE