Changeset 3833 for palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm

Timestamp:

Mar 28, 2019 3:04:04 PM (6 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

Location:

palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm

Files:

• src/create_kpp_module.C (modified) (1 diff)
• templates/initialize_kpp_ctrl_template.f90 (modified) (1 diff)
• templates/module_header (modified) (1 diff)

palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/create_kpp_module.C

@@ -13 +13 @@
 //Former revisions:
 //-----------------
-// renamed get_mechanismname to get_mechanism_name                        (26.03.2019, forkel):w
+// alphabetic ordering of PUBLIC statments in templates/module_header     (28.03.2019, forkel)
+//
+// renamed get_mechanismname to get_mechanism_name                        (26.03.2019, forkel)
 //
 //

palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/initialize_kpp_ctrl_template.f90

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

palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/templates/module_header

@@ -56 +56 @@
   !SAVE  ! NOTE: OCCURS AGAIN IN AUTOMATICALLY GENERATED CODE ...
 
-!  PUBLIC :: IERR_NAMES
+! Public variables
+  PUBLIC :: atol
+  PUBLIC :: cs_mech
+  PUBLIC :: eqn_names
+  PUBLIC :: fakt
+  PUBLIC :: nmaxfixsteps
+  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 :: vl_dim                     !< PUBLIC to enable other modules to distiguish between scalar and vec
  
-! PUBLIC :: SPC_NAMES, EQN_NAMES, EQN_TAGS, REQ_HET, REQ_AEROSOL, REQ_PHOTRAT &
-!         , REQ_MCFCT, IP_MAX, jname
-
-  PUBLIC :: cs_mech
-  PUBLIC :: eqn_names,  phot_names, spc_names
-  PUBLIC :: nmaxfixsteps
-  PUBLIC :: atol, rtol
-  PUBLIC :: nspec, nreact
-  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 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