Changeset 3968 for palm/trunk/SOURCE/chem_modules.f90

Timestamp:

May 13, 2019 11:04:01 AM (5 years ago)

Author:

suehring

Message:

Updates from chemistriy branched merged into trunk: code cleaning and formatting, code structure optimizations

File:

• palm/trunk/SOURCE/chem_modules.f90 (modified) (3 diffs)

palm/trunk/SOURCE/chem_modules.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! - introduced namelist item chem_modules@emiss_lod as future
+! - replacement to chem_modules@mode_emis.  Currently keeping both
+!   for backward compatibility.  chem_modules@mode_emis will be
+!   depreciated upon migration of all dependent modules (e.g., salsa)
+!   to chem_modules@emiss_lod
+!
+! (ecc) 20190513 replaced nspec_out with n_matched_vars
+! 
+! 3877 2019-04-08 19:09:16Z knoop
 ! Formatting, clean-up, clarified/corrected comments
 ! 
@@ -102 +111 @@
     INTEGER(iwp) ::  cs_pr_count                           = 0      !< counter for chemical species profiles
     INTEGER(iwp) ::  cs_vertical_gradient_level_ind(99,10) = -9999  !< grid index values of cs_vertical_gradient_level
+    INTEGER(iwp) ::  emiss_lod                             = -1     !< namelist parameter: chem emission LOD (same as mode_emis)
+                                                                    !< -1 = unassigned, 0 = parameterized, 1 = default, 2 = pre-processed
     INTEGER(iwp) ::  ibc_cs_b                                       !< integer flag for bc_cs_b
     INTEGER(iwp) ::  ibc_cs_t                                       !< integer flag for bc_cs_t
@@ -107 +118 @@
     INTEGER(iwp) ::  max_pr_cs                             = 0      !< 
     INTEGER(iwp) ::  max_street_id                         = 0      !< namelist parameter: upper bound of main street IDs (OpenStreetMaps) for PARAMETERIZED mode      
-    INTEGER(iwp) ::  nspec_out                                      !< output of routine chem_emis_matching with.....???
+    INTEGER(iwp) ::  n_matched_vars                                 !< number of matched emissions variables
     INTEGER(iwp) ::  side_street_id                        = 0      !< namelist parameter: lower bound of side street IDs (OpenStreetMaps) for PARAMETERIZED mode