Changeset 622 for palm/trunk/SOURCE/user_statistics.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_statistics.f90
r556 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: … … 92 92 !-- assign ts_value(dots_num_palm+1:,sr) = ts_value_l directly. 93 93 !#if defined( __parallel ) 94 ! IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 94 95 ! CALL MPI_ALLREDUCE( ts_value_l(dots_num_palm+1), & 95 96 ! ts_value(dots_num_palm+1,sr), &
Note: See TracChangeset
for help on using the changeset viewer.