Ignore:
Timestamp:
May 13, 2019 11:04:01 AM (2 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/chem_modules.f90

    r3877 r3968  
    2727! -----------------
    2828! $Id$
     29! - introduced namelist item chem_modules@emiss_lod as future
     30! - replacement to chem_modules@mode_emis.  Currently keeping both
     31!   for backward compatibility.  chem_modules@mode_emis will be
     32!   depreciated upon migration of all dependent modules (e.g., salsa)
     33!   to chem_modules@emiss_lod
     34!
     35! (ecc) 20190513 replaced nspec_out with n_matched_vars
     36!
     37! 3877 2019-04-08 19:09:16Z knoop
    2938! Formatting, clean-up, clarified/corrected comments
    3039!
     
    102111    INTEGER(iwp) ::  cs_pr_count                           = 0      !< counter for chemical species profiles
    103112    INTEGER(iwp) ::  cs_vertical_gradient_level_ind(99,10) = -9999  !< grid index values of cs_vertical_gradient_level
     113    INTEGER(iwp) ::  emiss_lod                             = -1     !< namelist parameter: chem emission LOD (same as mode_emis)
     114                                                                    !< -1 = unassigned, 0 = parameterized, 1 = default, 2 = pre-processed
    104115    INTEGER(iwp) ::  ibc_cs_b                                       !< integer flag for bc_cs_b
    105116    INTEGER(iwp) ::  ibc_cs_t                                       !< integer flag for bc_cs_t
     
    107118    INTEGER(iwp) ::  max_pr_cs                             = 0      !<
    108119    INTEGER(iwp) ::  max_street_id                         = 0      !< namelist parameter: upper bound of main street IDs (OpenStreetMaps) for PARAMETERIZED mode     
    109     INTEGER(iwp) ::  nspec_out                                      !< output of routine chem_emis_matching with.....???
     120    INTEGER(iwp) ::  n_matched_vars                                 !< number of matched emissions variables
    110121    INTEGER(iwp) ::  side_street_id                        = 0      !< namelist parameter: lower bound of side street IDs (OpenStreetMaps) for PARAMETERIZED mode
    111122
Note: See TracChangeset for help on using the changeset viewer.