Changeset 1804 for palm/trunk/SOURCE/user_statistics.f90
- Timestamp:
- Apr 5, 2016 4:30:18 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_statistics.f90
r1784 r1804 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Removed code for parameter file check (__check) 22 22 ! 23 23 ! Former revisions: … … 140 140 !-- value on all PEs, you can omit the MPI_ALLREDUCE call and 141 141 !-- assign ts_value(dots_num_palm+1:,sr) = ts_value_l directly. 142 !#if defined( __parallel ) && ! defined ( __check )142 !#if defined( __parallel ) 143 143 ! IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 144 144 ! CALL MPI_ALLREDUCE( ts_value_l(dots_num_palm+1), &
Note: See TracChangeset
for help on using the changeset viewer.