Changeset 4016 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple

Timestamp:

Jun 6, 2019 8:39:23 AM (5 years ago)

Author:

forkel

Message:

fix in simple mechanisms: qvap connected to mechanism

Location:

palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple

Files:

• chem_gasphase_mod.f90 (modified) (12 diffs)
• chem_gasphase_mod.kpp (modified) (1 diff)

palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.f90

@@ -117 +117 @@
 ! 
 ! File                 : chem_gasphase_mod_Parameters.f90
-! Time                 : Fri May  3 17:24:14 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190503/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Mon Jun  3 17:42:38 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190603/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -205 +205 @@
 ! 
 ! File                 : chem_gasphase_mod_Global.f90
-! Time                 : Fri May  3 17:24:14 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190503/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Mon Jun  3 17:42:38 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190603/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -270 +270 @@
 ! 
 ! File                 : chem_gasphase_mod_JacobianSP.f90
-! Time                 : Fri May  3 17:24:14 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190503/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Mon Jun  3 17:42:38 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190603/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -322 +322 @@
 ! 
 ! File                 : chem_gasphase_mod_Monitor.f90
-! Time                 : Fri May  3 17:24:14 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190503/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Mon Jun  3 17:42:38 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190603/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -396 +396 @@
 ! 
 ! File                 : chem_gasphase_mod_Initialize.f90
-! Time                 : Fri May  3 17:24:14 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190503/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Mon Jun  3 17:42:38 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190603/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -422 +422 @@
 ! 
 ! File                 : chem_gasphase_mod_Integrator.f90
-! Time                 : Fri May  3 17:24:14 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190503/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Mon Jun  3 17:42:38 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190603/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -480 +480 @@
 ! 
 ! File                 : chem_gasphase_mod_LinearAlgebra.f90
-! Time                 : Fri May  3 17:24:14 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190503/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Mon Jun  3 17:42:38 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190603/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -507 +507 @@
 ! 
 ! File                 : chem_gasphase_mod_Jacobian.f90
-! Time                 : Fri May  3 17:24:14 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190503/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Mon Jun  3 17:42:38 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190603/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -534 +534 @@
 ! 
 ! File                 : chem_gasphase_mod_Function.f90
-! Time                 : Fri May  3 17:24:14 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190503/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Mon Jun  3 17:42:38 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190603/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -563 +563 @@
 ! 
 ! File                 : chem_gasphase_mod_Rates.f90
-! Time                 : Fri May  3 17:24:14 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190503/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Mon Jun  3 17:42:38 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190603/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -589 +589 @@
 ! 
 ! File                 : chem_gasphase_mod_Util.f90
-! Time                 : Fri May  3 17:24:14 2019
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20190503/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Mon Jun  3 17:42:38 2019
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20190603/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -742 +742 @@
 
 ! INLINED initializations
+
+  fix(indf_h2o) = qvap
 
 ! End INLINED initializations

palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_salsa+simple/chem_gasphase_mod.kpp

@@ -34 +34 @@
      'J_NO2          ','J_O31D         '/)
 #ENDINLINE
+
+#INLINE F90_INIT
+  fix(indf_h2o) = qvap
+#ENDINLINE