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

Timestamp:

Feb 19, 2021 10:05:08 PM (4 years ago)

Author:

forkel

Message:

removed unused parameters and write statements in chemistry

File:

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

palm/trunk/SOURCE/chem_modules.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! removed unnecessarty namelist parameters
+!
+! 
+! 4828 2021-01-05 11:21:41Z Giersch
 ! Enable output of vertical fluxes of chemical species.
 ! 
@@ -224 +228 @@
     LOGICAL ::  bc_radiation_cs_s         = .FALSE.  !< flag for indicating a radiation/neumann
                                                      !< condition at the south boundary
-    LOGICAL ::  constant_top_csflux(99)   = .TRUE.   !< internal flag, set to .FALSE. if no
-                                                     !< top_csflux is prescribed
     LOGICAL ::  constant_csflux(99)       = .TRUE.   !< internal flag, set to .FALSE. if no
                                                      !< surface_csflux is prescribed
-    LOGICAL ::  call_chem_at_all_substeps = .FALSE.  !< namelist parameter: ....???
-    LOGICAL ::  chem_debug0               = .FALSE.  !< namelist parameter: flag for minimum print
-                                                     !< output
-    LOGICAL ::  chem_debug1               = .FALSE.  !< namelist parameter: flag for print output
-    LOGICAL ::  chem_debug2               = .FALSE.  !< namelist parameter: flag for further print
-                                                     !< output
+    LOGICAL ::  call_chem_at_all_substeps = .FALSE.  !< namelist parameter: Never set true 
+                                                     !< except for tests
     LOGICAL ::  chem_gasphase_on          = .TRUE.   !< namelist parameter: flag to switch off
                                                      !< chemical reactions
@@ -248 +246 @@
                                                      !< model
 
-    REAL(wp) ::  cs_surface_initial_change(99)     = 0.0_wp        !< namelist parameter: ...???
-    REAL(wp) ::  cs_vertical_gradient(99,10)       = 0.0_wp        !< namelist parameter: ...???
-    REAL(wp) ::  cs_vertical_gradient_level(99,10) = -999999.9_wp  !< namelist parameter: ...???
-    REAL(wp) ::  emiss_factor_main(99)             = -9999.0_wp    !< namelist parameter: ...???
-    REAL(wp) ::  emiss_factor_side(99)             = -9999.0_wp    !< namelist parameter: ...???
-    REAL(wp) ::  surface_csflux(99)                = 0.0_wp        !< namelist parameter: ...???
-    REAL(wp) ::  top_csflux(99)                    = 0.0_wp        !< namelist parameter: ...???
-    REAL(wp) ::  wall_csflux(99,0:5)               = 0.0_wp        !< namelist parameter: ...???
+    REAL(wp) ::  emiss_factor_main(99)             = -9999.0_wp  !< namelist parameter: weighting  factor
+                                                                 !< for LOD 0 parameterized emissions
+    REAL(wp) ::  emiss_factor_side(99)             = -9999.0_wp  !< namelist parameter: weighting  factor
+                                                                 !< for LOD 0 parameterized emissions
+    REAL(wp) ::  surface_csflux(99)                = 0.0_wp      !< namelist parameter: surface emission 
+                                                                 !< flux or LOD 0 parameterized emissions
+    REAL(wp) ::  wall_csflux(99,0:5)               = 0.0_wp      !< namelist parameter: ...???
 
     REAL(wp), DIMENSION(99)     ::  cs_surface = 0.0_wp        !< namelist parameter: chem species