Changeset 3201


Ignore:
Timestamp:
Aug 20, 2018 11:45:01 AM (3 years ago)
Author:
sward
Message:

Added missing preprocessor directive, corrected default value for restarts

File:
1 edited

Legend:

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

    r3198 r3201  
    2525! -----------------
    2626! $Id$
     27! Bugfix, missing pre-processor directive. Set default
     28! read_agents_from_restartfile = .FALSE. restarts not yet implemented.
     29!
     30! 3198 2018-08-15 09:23:10Z sward
    2731! Now using time_since_reference_point; moved multi_agent_system_start and
    2832! multi_agent_system_end to control_parameters; renamed NAMELIST agents_par to
     
    121125    LOGICAL ::  agents_active = .FALSE.                !< flag for agent system
    122126    LOGICAL ::  random_start_position_agents = .TRUE.  !< namelist parameter (see documentation)
    123     LOGICAL ::  read_agents_from_restartfile = .TRUE.  !< namelist parameter (see documentation)
     127    LOGICAL ::  read_agents_from_restartfile = .FALSE.  !< namelist parameter (see documentation)
    124128    LOGICAL ::  agent_own_timestep = .FALSE.           !< namelist parameter (see documentation)
    125129
     
    11651169          ENDDO
    11661170       ENDIF
     1171#if defined( __parallel )
    11671172!
    11681173!--    Gather all agents on PE0 for output
     
    12141219!--    tag 0
    12151220       CALL MPI_BARRIER( comm2d, ierr )
     1221#endif
    12161222       IF ( myid == 0 ) THEN
     1223#if defined( __parallel )
    12171224          agents=>out_agents
     1225#else
     1226          agents=>trf_agents
     1227#endif
    12181228
    12191229#if defined( __netcdf )
     
    21592169
    21602170!
    2161 !--    Accumulate the number of agents transferred between the subdomains
    2162 #if defined( __parallel )
     2171!--    Accumulate the number of agents transferred between the subdomains)
    21632172       CALL mas_eh_ghost_exchange
    2164 #endif
    21652173
    21662174       CALL cpu_log( log_point_s(18), 'mas_eh_exchange_horiz', 'stop' )
     
    21782186
    21792187       IMPLICIT NONE
    2180        
     2188
     2189#if defined( __parallel )
     2190
    21812191       INTEGER(iwp) ::  i           !< grid index (x) of agent positition
    21822192       INTEGER(iwp) ::  ip          !< index variable along x
     
    24622472
    24632473       ENDIF
     2474
     2475#endif
    24642476
    24652477    END SUBROUTINE mas_eh_ghost_exchange
Note: See TracChangeset for help on using the changeset viewer.