Changeset 11317 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/LBC/lbclnk.F90
- Timestamp:
- 2019-07-22T10:32:59+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/LBC/lbclnk.F90
r11195 r11317 410 410 CALL mppsend( 2, r2dwe(1-kextj,1,1), imigr, noea, ml_req1 ) 411 411 CALL mpprecv( 1, r2dew(1-kextj,1,2), imigr, noea ) 412 IF(l_isend)CALL mpi_wait(ml_req1,ml_stat,ml_err)412 CALL mpi_wait(ml_req1,ml_stat,ml_err) 413 413 CASE ( 0 ) 414 414 CALL mppsend( 1, r2dew(1-kextj,1,1), imigr, nowe, ml_req1 ) … … 416 416 CALL mpprecv( 1, r2dew(1-kextj,1,2), imigr, noea ) 417 417 CALL mpprecv( 2, r2dwe(1-kextj,1,2), imigr, nowe ) 418 IF(l_isend)CALL mpi_wait(ml_req1,ml_stat,ml_err)419 IF(l_isend)CALL mpi_wait(ml_req2,ml_stat,ml_err)418 CALL mpi_wait(ml_req1,ml_stat,ml_err) 419 CALL mpi_wait(ml_req2,ml_stat,ml_err) 420 420 CASE ( 1 ) 421 421 CALL mppsend( 1, r2dew(1-kextj,1,1), imigr, nowe, ml_req1 ) 422 422 CALL mpprecv( 2, r2dwe(1-kextj,1,2), imigr, nowe ) 423 IF(l_isend)CALL mpi_wait(ml_req1,ml_stat,ml_err)423 CALL mpi_wait(ml_req1,ml_stat,ml_err) 424 424 END SELECT 425 425 ! … … 467 467 CALL mppsend( 4, r2dsn(1-kexti,1,1), imigr, nono, ml_req1 ) 468 468 CALL mpprecv( 3, r2dns(1-kexti,1,2), imigr, nono ) 469 IF(l_isend)CALL mpi_wait(ml_req1,ml_stat,ml_err)469 CALL mpi_wait(ml_req1,ml_stat,ml_err) 470 470 CASE ( 0 ) 471 471 CALL mppsend( 3, r2dns(1-kexti,1,1), imigr, noso, ml_req1 ) … … 473 473 CALL mpprecv( 3, r2dns(1-kexti,1,2), imigr, nono ) 474 474 CALL mpprecv( 4, r2dsn(1-kexti,1,2), imigr, noso ) 475 IF(l_isend)CALL mpi_wait(ml_req1,ml_stat,ml_err)476 IF(l_isend)CALL mpi_wait(ml_req2,ml_stat,ml_err)475 CALL mpi_wait(ml_req1,ml_stat,ml_err) 476 CALL mpi_wait(ml_req2,ml_stat,ml_err) 477 477 CASE ( 1 ) 478 478 CALL mppsend( 3, r2dns(1-kexti,1,1), imigr, noso, ml_req1 ) 479 479 CALL mpprecv( 4, r2dsn(1-kexti,1,2), imigr, noso ) 480 IF(l_isend)CALL mpi_wait(ml_req1,ml_stat,ml_err)480 CALL mpi_wait(ml_req1,ml_stat,ml_err) 481 481 END SELECT 482 482 !
Note: See TracChangeset
for help on using the changeset viewer.