Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/multi_agent_system_mod.f90

    r3248 r3268  
    2525! -----------------
    2626! $Id$
     27! Cleaned up agent pointer assignment in output routine
     28!
     29! 3248 2018-09-14 09:42:06Z sward
    2730! Minor formating changes
    2831!
     
    13651368
    13661369#endif
    1367 
    1368           DEALLOCATE(out_agents)
     1370          agents => NULL()
     1371#if defined( __parallel )
     1372          IF ( ALLOCATED( out_agents ) ) DEALLOCATE( out_agents )
     1373#endif
    13691374       ELSE
    13701375          CALL cpu_log( log_point_s(17), 'mas_data_output', 'stop' )
    13711376       ENDIF
    13721377
     1378       IF ( ALLOCATED( trf_agents ) ) DEALLOCATE( trf_agents )
    13731379
    13741380    END SUBROUTINE mas_data_output_agents
Note: See TracChangeset for help on using the changeset viewer.