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

palm/trunk/SOURCE/user_module.f90

@@ -25 +25 @@
 ! -----------------
 ! $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
 ! Enable 3D data output also with 64-bit precision
 ! 
@@ -249 +253 @@
     INTEGER(iwp) ::  j          !<
 
-
-    NAMELIST /user_parameters/                                                                     &
-       data_output_masks_user,                                                                     &
-       data_output_pr_user,                                                                        &
-       data_output_user,                                                                           &
-       region
+    LOGICAL ::  switch_off_module = .FALSE.  !< local namelist parameter to switch off the module
+                                             !< although the respective module namelist appears in
+                                             !< the namelist file
+
+    NAMELIST /user_parameters/  data_output_masks_user,                                            &
+                                data_output_pr_user,                                               &
+                                data_output_user,                                                  &
+                                region,                                                            &
+                                switch_off_module
 
 !
@@ -281 +288 @@
 !--    User namelist found and correctly read. Set default module switch to true. This activates
 !--    calls of the user-interface subroutines.
-       user_module_enabled = .TRUE.
+       IF ( .NOT. switch_off_module )  user_module_enabled = .TRUE.
 
     ELSEIF ( io_status > 0 )  THEN