Changeset 2298 for palm/trunk/SOURCE/exchange_horiz.f90
- Timestamp:
- Jun 29, 2017 9:28:18 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/exchange_horiz.f90
r2119 r2298 25 25 ! ----------------- 26 26 ! $Id$ 27 ! sendrecv_in_background related parts removed 28 ! 29 ! 2119 2017-01-17 16:51:50Z raasch 27 30 ! 28 31 ! 2118 2017-01-17 16:38:49Z raasch … … 148 151 149 152 ! 150 !-- In case of background communication switched on, exchange is done 151 !-- either along x or along y 153 !-- Asynchroneous exchange 152 154 IF ( send_receive == 'lr' .OR. send_receive == 'al' ) THEN 153 155 154 IF ( .NOT. sendrecv_in_background ) THEN 155 req(1:4) = 0 156 req_count = 0 157 ENDIF 156 req(1:4) = 0 157 req_count = 0 158 158 ! 159 159 !-- Send left boundary, receive right one (asynchronous) … … 171 171 req(req_count+4), ierr ) 172 172 173 IF ( .NOT. sendrecv_in_background ) THEN 174 CALL MPI_WAITALL( 4, req, wait_stat, ierr ) 175 ELSE 176 req_count = req_count + 4 177 ENDIF 173 CALL MPI_WAITALL( 4, req, wait_stat, ierr ) 178 174 179 175 ENDIF … … 213 209 214 210 ! 215 !-- In case of background communication switched on, exchange is done 216 !-- either along x or along y 211 !-- Asynchroneous exchange 217 212 IF ( send_receive == 'ns' .OR. send_receive == 'al' ) THEN 218 213 219 IF ( .NOT. sendrecv_in_background ) THEN 220 req(1:4) = 0 221 req_count = 0 222 ENDIF 214 req(1:4) = 0 215 req_count = 0 223 216 224 217 ! … … 237 230 req(req_count+4), ierr ) 238 231 239 IF ( .NOT. sendrecv_in_background ) THEN 240 CALL MPI_WAITALL( 4, req, wait_stat, ierr ) 241 ELSE 242 req_count = req_count + 4 243 ENDIF 232 CALL MPI_WAITALL( 4, req, wait_stat, ierr ) 244 233 245 234 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.