Changeset 3606 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple

Timestamp:

Dec 7, 2018 11:48:57 AM (6 years ago)

Author:

forkel

Message:

bug fix for machanisms simple and simplep

Location:

palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple

Files:

• chem_gasphase_mod.f90 (modified) (12 diffs)
• simple.eqn (modified) (1 diff)

palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/chem_gasphase_mod.f90

@@ -113 +113 @@
 ! 
 ! File                 : chem_gasphase_mod_Parameters.f90
-! Time                 : Fri Nov 30 13:52:21 2018
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Dec  7 12:47:10 2018
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20181206/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -199 +199 @@
 ! 
 ! File                 : chem_gasphase_mod_Global.f90
-! Time                 : Fri Nov 30 13:52:21 2018
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Dec  7 12:47:10 2018
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20181206/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -266 +266 @@
 ! 
 ! File                 : chem_gasphase_mod_JacobianSP.f90
-! Time                 : Fri Nov 30 13:52:21 2018
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Dec  7 12:47:10 2018
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20181206/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -316 +316 @@
 ! 
 ! File                 : chem_gasphase_mod_Monitor.f90
-! Time                 : Fri Nov 30 13:52:21 2018
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Dec  7 12:47:10 2018
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20181206/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -385 +385 @@
 ! 
 ! File                 : chem_gasphase_mod_Initialize.f90
-! Time                 : Fri Nov 30 13:52:21 2018
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Dec  7 12:47:10 2018
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20181206/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -411 +411 @@
 ! 
 ! File                 : chem_gasphase_mod_Integrator.f90
-! Time                 : Fri Nov 30 13:52:21 2018
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Dec  7 12:47:10 2018
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20181206/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -469 +469 @@
 ! 
 ! File                 : chem_gasphase_mod_LinearAlgebra.f90
-! Time                 : Fri Nov 30 13:52:21 2018
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Dec  7 12:47:10 2018
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20181206/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -496 +496 @@
 ! 
 ! File                 : chem_gasphase_mod_Jacobian.f90
-! Time                 : Fri Nov 30 13:52:21 2018
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Dec  7 12:47:10 2018
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20181206/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -523 +523 @@
 ! 
 ! File                 : chem_gasphase_mod_Function.f90
-! Time                 : Fri Nov 30 13:52:21 2018
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Dec  7 12:47:10 2018
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20181206/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -552 +552 @@
 ! 
 ! File                 : chem_gasphase_mod_Rates.f90
-! Time                 : Fri Nov 30 13:52:21 2018
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Dec  7 12:47:10 2018
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20181206/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -578 +578 @@
 ! 
 ! File                 : chem_gasphase_mod_Util.f90
-! Time                 : Fri Nov 30 13:52:21 2018
-! Working directory    : /home/forkel-r/palmstuff/work/trunk20181130/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
+! Time                 : Fri Dec  7 12:47:10 2018
+! Working directory    : /home/forkel-r/palmstuff/work/trunk20181206/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
 ! Output root filename : chem_gasphase_mod
@@ -976 +976 @@
 
   rconst(1) = (phot(j_no2))
-  rconst(2) = (phot(j_o31d))
+  rconst(2) = (phot(j_o31d) * 0.1_dp)
   rconst(3) = (arr2(1.8e-12_dp , 1370.0_dp , temp))
   rconst(4) = (arr2(2.e-11_dp , 500.0_dp , temp))

palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/simple.eqn

@@ -10 +10 @@
 
   { 1.}  NO2 + hv = NO + O3 :                   phot(j_no2)  ;
-  { 2.}  O3 + hv = 2OH + O2 :                   phot(j_o31d)  ;
+  { 2.}  O3 + hv = 2OH + O2 :                   phot(j_o31d) * 0.1_dp ;
   { 3.}  NO + O3 = NO2 :                     arr2(1.8E-12_dp, 1370.0_dp, temp) ;
   { 4.}  RH + OH = RO2 + H2O :               arr2(2.E-11_dp, 500.0_dp, temp) ;