Changeset 3885 for palm/trunk/SOURCE/data_output_3d.f90

Timestamp:

Apr 11, 2019 11:29:34 AM (5 years ago)

Author:

kanani

Message:

restructure/add location/debug messages

File:

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

palm/trunk/SOURCE/data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changes related to global restructuring of location messages and introduction 
+! of additional debug messages
+! 
+! 3814 2019-03-26 08:40:31Z pavelkrc
 ! unused variables removed
 ! 
@@ -258 +262 @@
 
     USE control_parameters,                                                    &
-        ONLY:  do3d, do3d_no, do3d_time_count, io_blocks, io_group,            &
+        ONLY:  debug_output, debug_string,                                     &
+               do3d, do3d_no, do3d_time_count, io_blocks, io_group,            &
                land_surface, message_string, ntdim_3d, nz_do3d, psolver,       &
                time_since_reference_point, urban_surface, varnamelength
@@ -335 +340 @@
 !-- Return, if nothing to output
     IF ( do3d_no(av) == 0 )  RETURN
+
+    IF ( debug_output )  THEN
+       WRITE( debug_string, * ) 'data_output_3d'
+       CALL debug_message( debug_string, 'start' )
+    ENDIF
 
     CALL cpu_log (log_point(14),'data_output_3d','start')
@@ -866 +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
+
  END SUBROUTINE data_output_3d