Changeset 622 for palm/trunk/SOURCE/advec_s_bc.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_s_bc.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: … … 166 166 ENDDO 167 167 #if defined( __parallel ) 168 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 168 169 CALL MPI_ALLREDUCE( fmax_l, fmax, 2, MPI_REAL, MPI_MAX, comm2d, ierr ) 169 170 #else … … 463 464 ENDDO 464 465 #if defined( __parallel ) 466 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 465 467 CALL MPI_ALLREDUCE( fmax_l, fmax, 2, MPI_REAL, MPI_MAX, comm2d, ierr ) 466 468 #else … … 863 865 ENDDO 864 866 #if defined( __parallel ) 867 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 865 868 CALL MPI_ALLREDUCE( fmax_l, fmax, 2, MPI_REAL, MPI_MAX, comm2d, ierr ) 866 869 #else
Note: See TracChangeset
for help on using the changeset viewer.