Changeset 622 for palm/trunk/SOURCE/global_min_max.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/global_min_max.f90
r484 r622 5 5 ! Current revisions: 6 6 ! ----------------- 7 ! 7 ! optional barriers included in order to speed up collective operations 8 8 ! 9 9 ! Former revisions: … … 61 61 #if defined( __parallel ) 62 62 fmin_l(2) = myid 63 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 63 64 CALL MPI_ALLREDUCE( fmin_l, fmin, 1, MPI_2REAL, MPI_MINLOC, comm2d, ierr ) 64 65 … … 100 101 #if defined( __parallel ) 101 102 fmax_l(2) = myid 103 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 102 104 CALL MPI_ALLREDUCE( fmax_l, fmax, 1, MPI_2REAL, MPI_MAXLOC, comm2d, ierr ) 103 105 … … 158 160 #if defined( __parallel ) 159 161 fmax_l(2) = myid 162 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 160 163 CALL MPI_ALLREDUCE( fmax_l, fmax, 1, MPI_2REAL, MPI_MAXLOC, comm2d, & 161 164 ierr )
Note: See TracChangeset
for help on using the changeset viewer.