From 625ebff7bc985bb150d030b84fb6ad5f6b042497 Mon Sep 17 00:00:00 2001 From: Holger <holger.grosshans@ptb.de> Date: Tue, 19 May 2020 09:22:04 +0200 Subject: [PATCH] modified: src/parallel.f90 --- src/parallel.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/parallel.f90 b/src/parallel.f90 index 512fafe..32bf875 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& -- GitLab