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

palm/trunk/SOURCE/ocean_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
@@ -578 +582 @@
     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 /ocean_parameters/  bc_sa_t,                                                          &
@@ -590 +598 @@
                                  stokes_wavelength,                                                &
                                  surface_cooling_spinup_time,                                      &
+                                 switch_off_module,                                                &
                                  top_salinityflux,                                                 &
                                  wall_salinityflux,                                                &
@@ -606 +615 @@
 !--    ocean_parameters namelist was found and read correctly. Set switch that enables PALM's ocean
 !--    mode.
-       ocean_mode = .TRUE.
+       IF ( .NOT. switch_off_module )  ocean_mode = .TRUE.
 
     ELSEIF ( io_status > 0 )  THEN