Changeset 4843 for palm/trunk/SOURCE/urban_surface_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/urban_surface_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! local namelist parameter added to switch off the module although the respective module namelist
+! appears in the namelist file
+!
+! 4842 2021-01-14 10:42:28Z raasch
 ! reading of namelist file and actions in case of namelist errors revised so that statement labels
 ! and goto statements are not required any more
@@ -5821 +5825 @@
     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 /urban_surface_parameters/                                                            &
                         building_type,                                                             &
@@ -5827 +5835 @@
                         roughness_concrete,                                                        &
                         soil_inner_temperature,                                                    &
+                        switch_off_module,                                                         &
                         urban_surface,                                                             &
                         usm_wall_mod,                                                              &
@@ -5834 +5843 @@
 
 
-
 !
 !-- Move to the beginning of the namelist file and try to find and read the namelist.
@@ -5846 +5854 @@
 !--    urban_surface_parameters namelist was found and read correctly. Set flag that indicates that
 !--    the urban surface model is switched on.
-       urban_surface = .TRUE.
+       IF ( .NOT. switch_off_module )  urban_surface = .TRUE.
 
     ELSEIF ( io_status > 0 )  THEN