Changeset 622 for palm/trunk/SOURCE/poismg.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/poismg.f90
r392 r622 8 8 ! Current revisions: 9 9 ! ----------------- 10 ! 10 ! optional barriers included in order to speed up collective operations 11 11 ! 12 12 ! Former revisions: … … 106 106 maxerror = SUM( r(nzb+1:nzt,nys:nyn,nxl:nxr)**2 ) 107 107 #if defined( __parallel ) 108 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 108 109 CALL MPI_ALLREDUCE( maxerror, residual_norm, 1, MPI_REAL, MPI_SUM, & 109 110 comm2d, ierr)
Note: See TracChangeset
for help on using the changeset viewer.