Changeset 3833 for palm/trunk/SOURCE/chem_gasphase_mod.f90

Timestamp:

Mar 28, 2019 3:04:04 PM (5 years ago)

Author:

forkel

Message:

removed USE chem_gasphase_mod from chem_modules, apply USE chem_gasphase for nvar, nspec, cs_mech and spc_names instead

File:

• palm/trunk/SOURCE/chem_gasphase_mod.f90 (modified) (13 diffs)

palm/trunk/SOURCE/chem_gasphase_mod.f90

@@ -60 +60 @@
   !SAVE  ! note: occurs again in automatically generated code ...
 
-!  PUBLIC :: IERR_NAMES
- 
-! PUBLIC :: SPC_NAMES,EQN_NAMES,EQN_TAGS,REQ_HET,REQ_AEROSOL,REQ_PHOTRAT &
-!         ,REQ_MCFCT,IP_MAX,jname
-
+! Public variables
+  PUBLIC :: atol
   PUBLIC :: cs_mech
-  PUBLIC :: eqn_names, phot_names, spc_names
+  PUBLIC :: eqn_names
+  PUBLIC :: fakt
   PUBLIC :: nmaxfixsteps
-  PUBLIC :: atol, rtol
-  PUBLIC :: nspec, nreact
+  PUBLIC :: nphot
+  PUBLIC :: nreact
+  PUBLIC :: nspec
+  PUBLIC :: nvar
+  PUBLIC :: qvap
+  PUBLIC :: phot 
+  PUBLIC :: phot_names
+  PUBLIC :: rconst
+  PUBLIC :: rtol
+  PUBLIC :: spc_names
   PUBLIC :: temp
-  PUBLIC :: qvap
-  PUBLIC :: fakt
-  PUBLIC :: phot 
-  PUBLIC :: rconst
-  PUBLIC :: nvar
-  PUBLIC :: nphot
-  PUBLIC :: vl_dim                     ! PUBLIC to ebable other MODULEs to distiguish between scalar and vec
- 
-  PUBLIC :: initialize, integrate, update_rconst
+  PUBLIC :: vl_dim                     !< PUBLIC to enable other MODULEs to distiguish between scalar and vec
+ 
+! Public routines
   PUBLIC :: chem_gasphase_integrate
+  PUBLIC :: get_mechanism_name
+  PUBLIC :: initialize
   PUBLIC :: initialize_kpp_ctrl
-  PUBLIC :: get_mechanism_name
+  PUBLIC :: integrate
+  PUBLIC :: update_rconst
 
 ! END OF MODULE HEADER TEMPLATE
@@ -114 +117 @@
 ! 
 ! File                 : chem_gasphase_mod_Parameters.f90
-! Time                 : Wed Mar 27 09:51:40 2019
+! Time                 : Thu Mar 28 15:59:30 2019
 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
@@ -191 +194 @@
 ! 
 ! File                 : chem_gasphase_mod_Global.f90
-! Time                 : Wed Mar 27 09:51:40 2019
+! Time                 : Thu Mar 28 15:59:30 2019
 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
@@ -256 +259 @@
 ! 
 ! File                 : chem_gasphase_mod_JacobianSP.f90
-! Time                 : Wed Mar 27 09:51:40 2019
+! Time                 : Thu Mar 28 15:59:30 2019
 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
@@ -300 +303 @@
 ! 
 ! File                 : chem_gasphase_mod_Monitor.f90
-! Time                 : Wed Mar 27 09:51:40 2019
+! Time                 : Thu Mar 28 15:59:30 2019
 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
@@ -362 +365 @@
 ! 
 ! File                 : chem_gasphase_mod_Initialize.f90
-! Time                 : Wed Mar 27 09:51:40 2019
+! Time                 : Thu Mar 28 15:59:30 2019
 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
@@ -388 +391 @@
 ! 
 ! File                 : chem_gasphase_mod_Integrator.f90
-! Time                 : Wed Mar 27 09:51:40 2019
+! Time                 : Thu Mar 28 15:59:30 2019
 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
@@ -446 +449 @@
 ! 
 ! File                 : chem_gasphase_mod_LinearAlgebra.f90
-! Time                 : Wed Mar 27 09:51:40 2019
+! Time                 : Thu Mar 28 15:59:30 2019
 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
@@ -473 +476 @@
 ! 
 ! File                 : chem_gasphase_mod_Jacobian.f90
-! Time                 : Wed Mar 27 09:51:40 2019
+! Time                 : Thu Mar 28 15:59:30 2019
 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
@@ -500 +503 @@
 ! 
 ! File                 : chem_gasphase_mod_Function.f90
-! Time                 : Wed Mar 27 09:51:40 2019
+! Time                 : Thu Mar 28 15:59:30 2019
 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
@@ -529 +532 @@
 ! 
 ! File                 : chem_gasphase_mod_Rates.f90
-! Time                 : Wed Mar 27 09:51:40 2019
+! Time                 : Thu Mar 28 15:59:30 2019
 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
@@ -555 +558 @@
 ! 
 ! File                 : chem_gasphase_mod_Util.f90
-! Time                 : Wed Mar 27 09:51:40 2019
+! Time                 : Thu Mar 28 15:59:30 2019
 ! Working directory    : /home/forkel-r/palmstuff/work/trunk20190327/UTIL/chemistry/gasphase_preproc/tmp_kpp4palm
 ! Equation file        : chem_gasphase_mod.kpp
@@ -589 +592 @@
   INTEGER, PARAMETER, PUBLIC :: nkppctrl = 20
   !
-  INTEGER, DIMENSION(nkppctrl), PUBLIC     :: icntrl = 0
+  ! steering PARAMETERs for chemistry solver (see kpp domumentation)
+  INTEGER, DIMENSION(nkppctrl), PUBLIC      :: icntrl = 0
   REAL(dp), DIMENSION(nkppctrl), PUBLIC     :: rcntrl = 0.0_dp
+  ! t_steps: fixed time steps in vector mode
   REAL(dp), DIMENSION(nmaxfixsteps), PUBLIC :: t_steps = 0.0_dp