Ignore:
Timestamp:
Feb 26, 2019 4:23:41 PM (3 years ago)
Author:
raasch
Message:

unused_variables removed, bugfix in im_define_netcdf_grid argument list, trim added to avoid truncation compiler warnings, save attribute added to local targets to avoid outlive pointer target warning, first argument removed from module_interface_rrd_*, file module_interface reformatted with respect to coding standards, bugfix in surface_data_output_rrd_local (variable k removed)

File:
1 edited

Legend:

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

    r3665 r3766  
    2525! -----------------
    2626! $Id$
     27! save attribute added to local targets to avoid outlive pointer target warning
     28!
     29! 3665 2019-01-10 08:28:24Z raasch
    2730! unused variables removed
    2831!
     
    12391242
    12401243       INTEGER(iwp), DIMENSION(0:numprocs-1) ::  noa_arr !< number of agents on each PE
    1241 
    1242        TYPE(agent_type), DIMENSION(:), ALLOCATABLE, TARGET ::  trf_agents !< all agents on current PE
    1243        TYPE(agent_type), DIMENSION(:), ALLOCATABLE, TARGET ::  out_agents !< all agents in entire domain
     1244!
     1245!--    SAVE attribute required to avoid compiler warning about pointer outlive the pointer target
     1246       TYPE(agent_type), DIMENSION(:), ALLOCATABLE, TARGET, SAVE ::  trf_agents !< all agents on current PE
     1247       TYPE(agent_type), DIMENSION(:), ALLOCATABLE, TARGET, SAVE ::  out_agents !< all agents in entire domain
    12441248
    12451249       LOGICAL, INTENT (INOUT) :: ftest
     
    14451449
    14461450#endif
    1447           NULLIFY( agents )
     1451
    14481452#if defined( __parallel )
    14491453          IF ( ALLOCATED( out_agents ) ) DEALLOCATE( out_agents )
Note: See TracChangeset for help on using the changeset viewer.