Changeset 622 for palm/trunk/SOURCE/init_particles.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_particles.f90
r392 r622 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! optional barriers included in order to speed up collective operations 7 7 ! 8 8 ! Former revisions: … … 342 342 !-- Calculate the number of particles and tails of the total domain 343 343 #if defined( __parallel ) 344 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 344 345 CALL MPI_ALLREDUCE( number_of_particles, total_number_of_particles, 1, & 345 346 MPI_INTEGER, MPI_SUM, comm2d, ierr ) 347 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 346 348 CALL MPI_ALLREDUCE( number_of_tails, total_number_of_tails, 1, & 347 349 MPI_INTEGER, MPI_SUM, comm2d, ierr ) … … 436 438 437 439 #if defined( __parallel ) 440 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 438 441 CALL MPI_ALLREDUCE( uniform_particles_l, uniform_particles, 1, & 439 442 MPI_LOGICAL, MPI_LAND, comm2d, ierr )
Note: See TracChangeset
for help on using the changeset viewer.