Changeset 4843 for palm/trunk/SOURCE/chemistry_model_mod.f90

Timestamp:

Jan 15, 2021 3:22:11 PM (4 years ago)

Author:

raasch

Message:

local namelist parameter added to switch off the module although the respective module namelist appears in the namelist file, further copyright updates

File:

• palm/trunk/SOURCE/chemistry_model_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! local namelist parameter added to switch off the module although the respective module namelist
+! appears in the namelist file
+!
+! 4833 2021-01-07 08:57:54Z raasch
 ! openmp bugfix for time measurements of non advective processes 
 !
@@ -2506 +2510 @@
     USE chem_modules
     USE control_parameters
-
     USE pegrid
     USE statistics
-
 
     CHARACTER(LEN=100) ::  line                        !< dummy string that contains the current
@@ -2518 +2520 @@
     INTEGER(iwp) ::  io_status                         !< Status after reading the namelist file
     INTEGER(iwp) ::  max_pr_cs_tmp                     !<
+
+    LOGICAL ::  switch_off_module = .FALSE.  !< local namelist parameter to switch off the module
+                                             !< although the respective module namelist appears in
+                                             !< the namelist file
 
     REAL(wp), DIMENSION(nmaxfixsteps) ::   my_steps    !< List of fixed timesteps   my_step(1) = 0.0
@@ -2564 +2570 @@
          surface_csflux,                                                                           &
          surface_csflux_name,                                                                      &
+         switch_off_module,                                                                        &
          time_fac_type
 !
@@ -2594 +2601 @@
 !
 !      chemistry_parameters namelist was found and read correctly. Switch on chemistry model.
-       air_chemistry = .TRUE.
+       IF ( .NOT. switch_off_module )  air_chemistry = .TRUE.
 
     ELSEIF ( io_status > 0 )  THEN