Changeset 622 for palm/trunk/SOURCE/pres.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pres.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: … … 105 105 106 106 #if defined( __parallel ) 107 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 107 108 CALL MPI_ALLREDUCE( volume_flow_l(1), volume_flow(1), 1, MPI_REAL, & 108 109 MPI_SUM, comm1dy, ierr ) … … 143 144 144 145 #if defined( __parallel ) 146 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 145 147 CALL MPI_ALLREDUCE( volume_flow_l(2), volume_flow(2), 1, MPI_REAL, & 146 148 MPI_SUM, comm1dx, ierr ) … … 172 174 ENDDO 173 175 #if defined( __parallel ) 176 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 174 177 CALL MPI_ALLREDUCE( w_l_l(1), w_l(1), nzt, MPI_REAL, MPI_SUM, comm2d, & 175 178 ierr ) … … 537 540 538 541 #if defined( __parallel ) 542 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 539 543 CALL MPI_ALLREDUCE( volume_flow_l(1), volume_flow(1), 2, MPI_REAL, & 540 544 MPI_SUM, comm2d, ierr )
Note: See TracChangeset
for help on using the changeset viewer.