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

palm/trunk/SOURCE/spectra_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $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,
@@ -159 +163 @@
     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 /spectra_parameters/                                                                  &
@@ -166 +173 @@
                             dt_dosp,                                                               &
                             skip_time_dosp,                                                        &
-                            spectra_direction
+                            spectra_direction,                                                     &
+                            switch_off_module
 !
 !-- Position the namelist-file at the beginning (it was already opened in parin), and try to read
@@ -177 +185 @@
     IF ( io_status == 0 )  THEN
 !
-!--    spectra_parameters namelist was found and read correctly.
-!--    Default setting of dt_dosp here (instead of check_parameters), because its current value is
-!--    needed in init_pegrid.
-       IF ( dt_dosp == 9999999.9_wp )  dt_dosp = dt_data_output
-!
-!--    Set general switch that spectra shall be calculated.
-       calculate_spectra = .TRUE.
+!--    spectra_parameters namelist was found and read correctly. Set flag to indicate that spectra
+!--    have to be calculated.
+       IF ( .NOT.  switch_off_module )  THEN
+          calculate_spectra = .TRUE.
+!--       Default setting of dt_dosp here (instead of check_parameters), because its current value
+!--       is needed in init_pegrid.
+          IF ( dt_dosp == 9999999.9_wp )  dt_dosp = dt_data_output
+       ENDIF
 
     ELSEIF ( io_status > 0 )  THEN