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