Changeset 622 for palm/trunk/SOURCE/timestep.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/timestep.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: … … 118 118 uv_gtrans_l = uv_gtrans_l / REAL( (nxr-nxl+1)*(nyn-nys+1)*(nzt-nzb) ) 119 119 #if defined( __parallel ) 120 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 120 121 CALL MPI_ALLREDUCE( uv_gtrans_l, uv_gtrans, 2, MPI_REAL, MPI_SUM, & 121 122 comm2d, ierr ) … … 164 165 !$OMP END PARALLEL 165 166 #if defined( __parallel ) 167 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 166 168 CALL MPI_ALLREDUCE( dt_diff_l, dt_diff, 1, MPI_REAL, MPI_MIN, comm2d, & 167 169 ierr ) … … 252 254 !-- Determine the global minumum 253 255 #if defined( __parallel ) 256 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 254 257 CALL MPI_ALLREDUCE( dt_plant_canopy_l, dt_plant_canopy, 1, MPI_REAL, & 255 258 MPI_MIN, comm2d, ierr )
Note: See TracChangeset
for help on using the changeset viewer.