diff --git a/src/parallel.f90 b/src/parallel.f90 index 512fafee15951a0d0989845cb0e6e1c6fb79963c..32bf8753c3c3d09cf1cd84fbde663f87c690f197 100644 --- a/src/parallel.f90 +++ b/src/parallel.f90 @@ -134,6 +134,8 @@ call mpi_wait(rrleft,mpistatus,mpierr) call mpi_wait(rsright,mpistatus,mpierr) call mpi_wait(rrright,mpistatus,mpierr) + if (next.eq.mpi_proc_null) n_recvr=0 + if (prev.eq.mpi_proc_null) n_recvl=0 if (n_sendl.gt.0) call mpi_isend&