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

Timestamp:

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

Author:

kanani

Message:

restructure/add location/debug messages

File:

• palm/trunk/SOURCE/multi_agent_system_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/multi_agent_system_mod.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 2016 Leibniz Universitaet Hannover
+! Copyright 2016-2019 Leibniz Universitaet Hannover
 !------------------------------------------------------------------------------!
 !
@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changes related to global restructuring of location messages and introduction 
+! of additional debug messages
+! 
+! 3876 2019-04-08 18:41:49Z knoop
 ! replaced nspec by nvar: only variable species should bconsidered, fixed species are not relevant 
 ! 
@@ -109 +113 @@
 
     USE control_parameters,                                                    &
-        ONLY:  biometeorology, dt_3d, dt_write_agent_data, message_string,     &
+        ONLY:  biometeorology,                                                 &
+               debug_output,                                                   &
+               debug_string,                                                   &
+               dt_3d,                                                          &
+               dt_write_agent_data,                                            &
+               message_string,                                                 &
                time_since_reference_point
 
@@ -387 +396 @@
     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
 
     CALL cpu_log( log_point(9), 'mas', 'start' )
@@ -607 +622 @@
 
     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
 
  END SUBROUTINE multi_agent_system