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

Timestamp:

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

Author:

kanani

Message:

clean up location, debug and error messages

File:

• palm/trunk/SOURCE/data_output_2d.f90 (modified) (4 diffs)

palm/trunk/SOURCE/data_output_2d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Introduce alternative switch for debug output during timestepping
+! 
+! 3943 2019-05-02 09:50:41Z maronga
 ! Added output of qsws for green roofs.
 ! 
@@ -306 +309 @@
         ONLY:  data_output_2d_on_each_pe,                                      &
                data_output_xy, data_output_xz, data_output_yz,                 &
-               debug_output, debug_string,                                     &
+               debug_output_timestep,                                          &
                do2d,                                                           &
                do2d_xy_last_time, do2d_xy_time_count,                          &
@@ -404 +407 @@
 
 
-    IF ( debug_output )  THEN
-       WRITE( debug_string, * ) 'data_output_2d'
-       CALL debug_message( debug_string, 'start' )
-    ENDIF
+    IF ( debug_output_timestep )  CALL debug_message( 'data_output_2d', 'start' )
 !
 !-- Immediate return, if no output is requested (no respective sections
@@ -2284 +2284 @@
     CALL cpu_log( log_point(3), 'data_output_2d', 'stop' )
 
-    IF ( debug_output )  THEN
-       WRITE( debug_string, * ) 'data_output_2d'
-       CALL debug_message( debug_string, 'end' )
-    ENDIF
+    IF ( debug_output_timestep )  CALL debug_message( 'data_output_2d', 'end' )
+
 
  END SUBROUTINE data_output_2d