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

Timestamp:

Sep 21, 2018 1:45:37 PM (6 years ago)

Author:

sward

Message:

Fix in pointer assignment in MAS and MAS-Examples updated

File:

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

palm/trunk/SOURCE/multi_agent_system_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Cleaned up agent pointer assignment in output routine
+! 
+! 3248 2018-09-14 09:42:06Z sward
 ! Minor formating changes
 ! 
@@ -1365 +1368 @@
 
 #endif
-
-          DEALLOCATE(out_agents)
+          agents => NULL()
+#if defined( __parallel )
+          IF ( ALLOCATED( out_agents ) ) DEALLOCATE( out_agents )
+#endif
        ELSE
           CALL cpu_log( log_point_s(17), 'mas_data_output', 'stop' )
        ENDIF
 
+       IF ( ALLOCATED( trf_agents ) ) DEALLOCATE( trf_agents )
 
     END SUBROUTINE mas_data_output_agents