Changeset 622 for palm/trunk/SOURCE/inflow_turbulence.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/inflow_turbulence.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: … … 77 77 ! 78 78 !-- Now, averaging over all PEs 79 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 79 80 CALL MPI_ALLREDUCE( avpr_l(nzb,1), avpr(nzb,1), ngp_pr, MPI_REAL, MPI_SUM, & 80 81 comm2d, ierr ) … … 195 196 196 197 #if defined( __parallel ) 198 ! IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 197 199 ! CALL MPI_ALLREDUCE( volume_flow_l(1), volume_flow(1), 1, MPI_REAL, & 198 200 ! MPI_SUM, comm1dy, ierr )
Note: See TracChangeset
for help on using the changeset viewer.