Changeset 622 for palm/trunk/SOURCE/data_output_ptseries.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_ptseries.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: … … 138 138 inum = number_of_particle_groups + 1 139 139 140 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 140 141 CALL MPI_ALLREDUCE( pts_value_l(0,1), pts_value(0,1), 14*inum, MPI_REAL, & 141 142 MPI_SUM, comm2d, ierr ) 143 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 142 144 CALL MPI_ALLREDUCE( pts_value_l(0,15), pts_value(0,15), inum, MPI_REAL, & 143 145 MPI_MAX, comm2d, ierr ) 146 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 144 147 CALL MPI_ALLREDUCE( pts_value_l(0,16), pts_value(0,16), inum, MPI_REAL, & 145 148 MPI_MIN, comm2d, ierr ) … … 239 242 inum = number_of_particle_groups + 1 240 243 244 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 241 245 CALL MPI_ALLREDUCE( pts_value_l(0,17), pts_value(0,17), inum*10, MPI_REAL, & 242 246 MPI_SUM, comm2d, ierr )
Note: See TracChangeset
for help on using the changeset viewer.