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

palm/trunk/SOURCE/dynamics_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $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
@@ -339 +343 @@
  SUBROUTINE dynamics_parin
 
-
     CHARACTER(LEN=100)  ::  line  !< dummy string that contains the current line of the parameter
                                   !< file
     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 /dynamics_parameters/  dynamics_module_enabled
-
-!
-!-- Set default module switch to true.
+    NAMELIST /dynamics_parameters/  switch_off_module
+
+
+!
+!-- For the time beeing (unless the dynamics module is further developed), set default module
+!-- switch to true.
     dynamics_module_enabled = .TRUE.
 
+!
 !-- Move to the beginning of the namelist file and try to find and read the namelist.
     REWIND( 11 )
@@ -357 +366 @@
 !
 !-- Action depending on the READ status
-    IF ( io_status > 0 )  THEN
+    IF ( io_status == 0 )  THEN
+!
+!--    dynamics_parameters namelist was found and read correctly.
+       IF ( .NOT. switch_off_module )  dynamics_module_enabled = .TRUE.
+
+    ELSEIF ( io_status > 0 )  THEN
 !
 !--    dynamics_parameters namelist was found, but contained errors. Print an error message