Changeset 3298 for palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms

Timestamp:

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

Author:

kanani

Message:

Merge chemistry branch at r3297 to trunk

Location:

palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms

Files:

• def_cbm4 (copied) (copied from palm/branches/chemistry/UTIL/chemistry/gasphase_preproc/mechanisms/def_cbm4)
• def_passive/chem_gasphase_mod.f90 (copied) (copied from palm/branches/chemistry/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive/chem_gasphase_mod.f90)
• def_passive/chem_gasphase_mod.kpp (modified) (1 diff)
• def_passive1 (copied) (copied from palm/branches/chemistry/UTIL/chemistry/gasphase_preproc/mechanisms/def_passive1)
• def_phstat (copied) (copied from palm/branches/chemistry/UTIL/chemistry/gasphase_preproc/mechanisms/def_phstat)
• def_simple/chem_gasphase_mod.f90 (copied) (copied from palm/branches/chemistry/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/chem_gasphase_mod.f90)
• def_simple/chem_gasphase_mod.kpp (modified) (2 diffs)
• def_simple/simple.eqn (modified) (2 diffs)
• def_simplep (copied) (copied from palm/branches/chemistry/UTIL/chemistry/gasphase_preproc/mechanisms/def_simplep)
• def_smog/chem_gasphase_mod.f90 (copied) (copied from palm/branches/chemistry/UTIL/chemistry/gasphase_preproc/mechanisms/def_smog/chem_gasphase_mod.f90)
• def_smog/chem_gasphase_mod.kpp (modified) (3 diffs)

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

@@ -11 +11 @@
 #HESSIAN    on
 #STOICMAT   on
-#INLINE F90_GLOBAL
-  !   Declaration of global variable declarations for photolysis will come from INLINE F90_DATA
-#ENDINLINE
 //
 // *******************************************************************************************

palm/trunk/UTIL/chemistry/gasphase_preproc/mechanisms/def_simple/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
 //
 // *******************************************************************************************

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

@@ -1 +1 @@
 {simple.eqn
-Former revisions
+Current revision
 ----------------
- $Id: smog.eqn 2459 2017-09-13 14:10:33Z forkel $
+ 201711   Created simple.eqn with 6 equations forkel
+ 20180316 Added equation no. 7                forkel
 }
 #EQUATIONS
 
-{ very simple mechanism - do NOT show to a chemist! }
+{ home made very simple mechanism - please do not show to a chemist! }
 
   { 1.}  NO2 + hv = NO + O3 :                   phot(j_no2)  ;
@@ -14 +15 @@
   { 5.}  RO2 + NO = NO2 + RCHO + HO2 :       arr2(4.2E-12_dp, -180.0_dp, temp);
   { 6.}  HO2 + NO = NO2 + OH :               arr2(3.7E-12_dp, -240.0_dp, temp) ;
+  { 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

@@ -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