Changeset 622 for palm/trunk/SOURCE/set_particle_attributes.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/set_particle_attributes.f90
r484 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: … … 140 140 #if defined( __parallel ) 141 141 142 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 142 143 CALL MPI_ALLREDUCE( sums_l(nzb,4,0), sums(nzb,4), nzt+2-nzb, & 143 144 MPI_REAL, MPI_SUM, comm2d, ierr )
Note: See TracChangeset
for help on using the changeset viewer.