Changeset 3987 for palm/trunk/SOURCE/data_output_3d.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_3d.f90 (modified) (4 diffs)

palm/trunk/SOURCE/data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Introduce alternative switch for debug output during timestepping
+! 
+! 3885 2019-04-11 11:29:34Z kanani
 ! Changes related to global restructuring of location messages and introduction 
 ! of additional debug messages
@@ -262 +265 @@
 
     USE control_parameters,                                                    &
-        ONLY:  debug_output, debug_string,                                     &
+        ONLY:  debug_output_timestep,                                          &
                do3d, do3d_no, do3d_time_count, io_blocks, io_group,            &
                land_surface, message_string, ntdim_3d, nz_do3d, psolver,       &
@@ -341 +344 @@
     IF ( do3d_no(av) == 0 )  RETURN
 
-    IF ( debug_output )  THEN
-       WRITE( debug_string, * ) 'data_output_3d'
-       CALL debug_message( debug_string, 'start' )
-    ENDIF
+    IF ( debug_output_timestep )  CALL debug_message( 'data_output_3d', 'start' )
 
     CALL cpu_log (log_point(14),'data_output_3d','start')
@@ -876 +876 @@
     CALL cpu_log( log_point(14), 'data_output_3d', 'stop' )
 
-    IF ( debug_output )  THEN
-       WRITE( debug_string, * ) 'data_output_3d'
-       CALL debug_message( debug_string, 'end' )
-    ENDIF
+    IF ( debug_output_timestep )  CALL debug_message( 'data_output_3d', 'end' )
+
 
  END SUBROUTINE data_output_3d