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

palm/trunk/SOURCE/multi_agent_system_mod.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
@@ -114 +117 @@
     USE control_parameters,                                                    &
         ONLY:  biometeorology,                                                 &
-               debug_output,                                                   &
-               debug_string,                                                   &
+               debug_output_timestep,                                          &
                dt_3d,                                                          &
                dt_write_agent_data,                                            &
@@ -396 +398 @@
     LOGICAL       ::  first_loop_stride   !< flag for first loop stride of agent sub-timesteps
     LOGICAL, SAVE ::  first_call = .TRUE. !< first call of mas flag for output
-!
-!-- Debug location message
-    IF ( debug_output )  THEN
-       WRITE( debug_string, * ) 'multi_agent_system'
-       CALL debug_message( debug_string, 'start' )
-    ENDIF
+
+
+    IF ( debug_output_timestep )  CALL debug_message( 'multi_agent_system', 'start' )
 
     CALL cpu_log( log_point(9), 'mas', 'start' )
@@ -622 +621 @@
 
     CALL cpu_log( log_point(9), 'mas', 'stop' )
-!
-!-- Debug location message
-    IF ( debug_output )  THEN
-       WRITE( debug_string, * ) 'multi_agent_system'
-       CALL debug_message( debug_string, 'end' )
-    ENDIF
+
+    IF ( debug_output_timestep )  CALL debug_message( 'multi_agent_system', 'end' )
+
 
  END SUBROUTINE multi_agent_system