Changeset 10629 for NEMO/trunk/src/OCE/LBC
- Timestamp:
- 2019-02-04T17:07:39+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/LBC/mpp_bdy_generic.h90
r10542 r10629 140 140 CASE ( -1 ) 141 141 CALL mppsend( 2, zt3we(1,1,1,1,1,1), imigr, noea, ml_req1 ) 142 CALL mpprecv( 1, zt3ew(1,1,1,1,1,2), imigr, noea )143 IF(l_isend) CALL mpi_wait(ml_req1, ml_stat, ml_err)144 142 CASE ( 0 ) 145 143 CALL mppsend( 1, zt3ew(1,1,1,1,1,1), imigr, nowe, ml_req1 ) 146 144 CALL mppsend( 2, zt3we(1,1,1,1,1,1), imigr, noea, ml_req2 ) 145 CASE ( 1 ) 146 CALL mppsend( 1, zt3ew(1,1,1,1,1,1), imigr, nowe, ml_req1 ) 147 END SELECT 148 ! 149 SELECT CASE ( nbondi_bdy_b(IBD_IN(jf)) ) 150 CASE ( -1 ) 151 CALL mpprecv( 1, zt3ew(1,1,1,1,1,2), imigr, noea ) 152 CASE ( 0 ) 147 153 CALL mpprecv( 1, zt3ew(1,1,1,1,1,2), imigr, noea ) 148 154 CALL mpprecv( 2, zt3we(1,1,1,1,1,2), imigr, nowe ) 155 CASE ( 1 ) 156 CALL mpprecv( 2, zt3we(1,1,1,1,1,2), imigr, nowe ) 157 END SELECT 158 ! 159 SELECT CASE ( nbondi_bdy(IBD_IN(jf)) ) 160 CASE ( -1 ) 161 IF(l_isend) CALL mpi_wait(ml_req1, ml_stat, ml_err) 162 CASE ( 0 ) 149 163 IF(l_isend) CALL mpi_wait(ml_req1, ml_stat, ml_err) 150 164 IF(l_isend) CALL mpi_wait(ml_req2, ml_stat, ml_err) 151 165 CASE ( 1 ) 152 CALL mppsend( 1, zt3ew(1,1,1,1,1,1), imigr, nowe, ml_req1 )153 CALL mpprecv( 2, zt3we(1,1,1,1,1,2), imigr, nowe )154 166 IF(l_isend) CALL mpi_wait(ml_req1, ml_stat, ml_err) 155 167 END SELECT … … 230 242 CASE ( -1 ) 231 243 CALL mppsend( 4, zt3sn(1,1,1,1,1,1), imigr, nono, ml_req1 ) 232 CALL mpprecv( 3, zt3ns(1,1,1,1,1,2), imigr, nono )233 IF(l_isend) CALL mpi_wait(ml_req1, ml_stat, ml_err)234 244 CASE ( 0 ) 235 245 CALL mppsend( 3, zt3ns(1,1,1,1,1,1), imigr, noso, ml_req1 ) 236 246 CALL mppsend( 4, zt3sn(1,1,1,1,1,1), imigr, nono, ml_req2 ) 247 CASE ( 1 ) 248 CALL mppsend( 3, zt3ns(1,1,1,1,1,1), imigr, noso, ml_req1 ) 249 END SELECT 250 ! 251 SELECT CASE ( nbondj_bdy_b(IBD_IN(jf)) ) 252 CASE ( -1 ) 253 CALL mpprecv( 3, zt3ns(1,1,1,1,1,2), imigr, nono ) 254 CASE ( 0 ) 237 255 CALL mpprecv( 3, zt3ns(1,1,1,1,1,2), imigr, nono ) 238 256 CALL mpprecv( 4, zt3sn(1,1,1,1,1,2), imigr, noso ) 257 CASE ( 1 ) 258 CALL mpprecv( 4, zt3sn(1,1,1,1,1,2), imigr, noso ) 259 END SELECT 260 ! 261 SELECT CASE ( nbondj_bdy(IBD_IN(jf)) ) 262 CASE ( -1 ) 263 IF(l_isend) CALL mpi_wait(ml_req1, ml_stat, ml_err) 264 CASE ( 0 ) 239 265 IF(l_isend) CALL mpi_wait(ml_req1, ml_stat, ml_err) 240 266 IF(l_isend) CALL mpi_wait(ml_req2, ml_stat, ml_err) 241 267 CASE ( 1 ) 242 CALL mppsend( 3, zt3ns(1,1,1,1,1,1), imigr, noso, ml_req1 )243 CALL mpprecv( 4, zt3sn(1,1,1,1,1,2), imigr, noso )244 268 IF(l_isend) CALL mpi_wait(ml_req1, ml_stat, ml_err) 245 269 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.