Changeset 3987 for palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

Timestamp:

May 22, 2019 9:52:13 AM (3 years ago)

Author:

kanani

Message:

clean up location, debug and error messages

File:

• palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Introduce alternative switch for debug output during timestepping
+! 
+! 3938 2019-04-29 16:06:25Z suehring
 ! Remove unused variables
 ! 
@@ -209 +212 @@
 
     USE control_parameters,                                                    &
-        ONLY:  debug_output,                                                   &
-               debug_string,                                                   &
+        ONLY:  debug_output_timestep,                                          &
                initializing_actions,                                           &
                message_string,                                                 &
@@ -1146 +1148 @@
     REAL(wp) :: volume_flow_l   !< local mass flux through lateral boundary
 
-!
-!-- Debug location message
-    IF ( debug_output )  THEN
-       WRITE( debug_string, * ) 'stg_main'
-       CALL debug_message( debug_string, 'start' )
-    ENDIF
+
+    IF ( debug_output_timestep )  CALL debug_message( 'stg_main', 'start' )
 !
 !-- Calculate time step which is needed for filter functions
@@ -1493 +1491 @@
 !-- Finally, set time counter for calling STG to zero
     time_stg_call = 0.0_wp
-!
-!-- Debug location message
-    IF ( debug_output )  THEN
-       WRITE( debug_string, * ) 'stg_main'
-       CALL debug_message( debug_string, 'end' )
-    ENDIF
+
+    IF ( debug_output_timestep )  CALL debug_message( 'stg_main', 'end' )
 
  END SUBROUTINE stg_main
@@ -1900 +1894 @@
     IMPLICIT NONE
 
-!
-!-- Debug location message
-    IF ( debug_output )  THEN
-       WRITE( debug_string, * ) 'stg_adjust'
-       CALL debug_message( debug_string, 'start' )
-    ENDIF
+
+    IF ( debug_output_timestep )  CALL debug_message( 'stg_adjust', 'start' )
 !
 !-- Compute mean boundary layer height according to Richardson-Bulk
@@ -1938 +1928 @@
 !-- Reset time counter for controlling next adjustment to zero
     time_stg_adjust = 0.0_wp
-!
-!-- Debug location message
-    IF ( debug_output )  THEN
-       WRITE( debug_string, * ) 'stg_adjust'
-       CALL debug_message( debug_string, 'end' )
-    ENDIF
+
+    IF ( debug_output_timestep )  CALL debug_message( 'stg_adjust', 'end' )
     
  END SUBROUTINE stg_adjust