Skip to content
Snippets Groups Projects
Commit 568c7cfb authored by Juan Escobar's avatar Juan Escobar
Browse files

Juan 17/04/2019:discretisation.f90 , for ihaloswap, add mpi_wait(send_reque,...

Juan 17/04/2019:discretisation.f90 , for ihaloswap, add mpi_wait(send_reque, does work really => compile without overlaping for the moment
parent a18dae90
No related branches found
No related tags found
No related merge requests found
......@@ -1027,7 +1027,9 @@ end subroutine construct_vertical_coeff
if (overlap_comms) then
if (m > 0) then
if (LUseO) call mpi_waitall(4,recv_requests, MPI_STATUSES_IGNORE, ierr)
if (LUseO) call mpi_waitall(4,send_requests, MPI_STATUSES_IGNORE, ierr)
if (LUseT) call mpi_waitall(4,recv_requestsT, MPI_STATUSES_IGNORE, ierr)
if (LUseT) call mpi_waitall(4,send_requestsT, MPI_STATUSES_IGNORE, ierr)
end if
else
call haloswap_mnh(level,m,u)
......@@ -1408,7 +1410,9 @@ end subroutine construct_vertical_coeff
if (overlap_comms) then
if (m > 0) then
if (LUseO) call mpi_waitall(4,recv_requests, MPI_STATUSES_IGNORE, ierr)
if (LUseO) call mpi_waitall(4,send_requests, MPI_STATUSES_IGNORE, ierr)
if (LUseT) call mpi_waitall(4,recv_requestsT, MPI_STATUSES_IGNORE, ierr)
if (LUseT) call mpi_waitall(4,send_requestsT, MPI_STATUSES_IGNORE, ierr)
end if
else
call haloswap_mnh(level,m,u)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment