Changeset 3235 for palm/trunk/SOURCE/palm.f90

Timestamp:

Sep 7, 2018 2:06:15 PM (6 years ago)

Author:

sward

Message:

Bugfix in MAS output, added related messages, reworked MAS cpu logging

File:

• palm/trunk/SOURCE/palm.f90 (modified) (3 diffs)

palm/trunk/SOURCE/palm.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added mas_last_actions call and multi_agent_system_mod dependency
+! 
+! 3232 2018-09-07 12:21:44Z raasch
 ! references to mrun replaced by palmrun, and updated
 ! 
@@ -254 +257 @@
     USE indices,                                                               &
         ONLY:  nbgp
+
+    USE multi_agent_system_mod,                                                &
+        ONLY:  agents_active, mas_last_actions
 
     USE netcdf_data_input_mod,                                                 &
@@ -536 +542 @@
 !-- unit in routine user_last_actions.
     CALL cpu_log( log_point(4), 'last actions', 'start' )
-          
+
+    IF ( myid == 0 .AND. agents_active ) CALL mas_last_actions
     CALL user_last_actions
     CALL close_file( 0 )