Changeset 4851 for palm/trunk/SOURCE/dynamics_mod.f90

Timestamp:

Jan 22, 2021 9:25:05 AM (3 years ago)

Author:

gronemeier

Message:

bugfix: deactivated header output (dynamics_mod); change: formatting clean-up (synthetic_turbulence_generator_mod)

File:

• palm/trunk/SOURCE/dynamics_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/dynamics_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! bugfix: deactivated header output
+!
+! 4845 2021-01-18 11:15:37Z raasch
 ! radiation boundary condition always uses maximum phase velocity, respective code for calculating
 ! the phase velocity is removed
@@ -352 +355 @@
                                              !< although the respective module namelist appears in
                                              !< the namelist file
-    
+
     NAMELIST /dynamics_parameters/  switch_off_module
 
@@ -639 +642 @@
 
 
-    INTEGER(iwp) ::  io   !<
-
-!
-!-- If no module-specific variables are read from the namelist-file, no information will be printed.
-    IF ( .NOT. dynamics_module_enabled )  THEN
-       WRITE ( io, 100 )
-       RETURN
-    ENDIF
-
-!
-!-- Printing the information.
-    WRITE ( io, 110 )
+    INTEGER(iwp) ::  io   !< output-file id
+
+!
+!-- Write dynamics module header
+!-- NOTE: Deactivated because no relevant information to write so far
+    IF ( .FALSE. )  WRITE ( io, 100 )
 
 !
 !-- Format-descriptors
-100 FORMAT (//' *** dynamic module disabled'/)
-110 FORMAT (//1X,78('#')                                                                           &
-            //' User-defined variables and actions:'/                                              &
+100 FORMAT (//' Dynamics module information:'/                                              &
               ' -----------------------------------'//)