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

Timestamp:

Jan 15, 2021 3:22:11 PM (3 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/biometeorology_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/biometeorology_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! local namelist parameter added to switch off the module although the respective module namelist
+! appears in the namelist file
+!
+! 4828 2021-01-05 11:21:41Z Giersch
 ! reading of namelist file and actions in case of namelist errors revised so that statement labels
 ! and goto statements are not required any more
@@ -1391 +1395 @@
     INTEGER(iwp) ::  io_status   !< Status after reading the namelist file
 
+    LOGICAL ::  switch_off_module = .FALSE.  !< local namelist parameter to switch off the module
+                                             !< although the respective module namelist appears in
+                                             !< the namelist file
+
     NAMELIST /biometeorology_parameters/  clothing,                                                &
                                           consider_obstructions,                                   &
                                           orientation_angle,                                       &
                                           sun_in_south,                                            &
+                                          switch_off_module,                                       &
                                           thermal_comfort,                                         &
                                           turn_to_sun,                                             &
@@ -1410 +1419 @@
 !--    biometeorology_parameters namelist was found and read correctly. Set flag that
 !--    biometeorology_mod is switched on.
-       biometeorology = .TRUE.
+       IF ( .NOT. switch_off_module )  biometeorology = .TRUE.
 
     ELSEIF ( io_status > 0 )  THEN