From b413b8e8325c5e4d1dfd0671a858cee08c781087 Mon Sep 17 00:00:00 2001
From: holger <holger.grosshans@ptb.de>
Date: Mon, 20 Jun 2022 15:51:25 +0200
Subject: [PATCH] modified: bc.f90
---
src/bc.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/bc.f90 b/src/bc.f90
index ccd73d7..191a4ff 100755
--- a/src/bc.f90
+++ b/src/bc.f90
@@ -116,6 +116,7 @@
real(kind=pr) :: myvar(ii,jj,ll)
integer :: m
+ call sync(myvar) ! between procs through the sync routines
if (bcx.eq.'w') then
if (myid.eq.0) then
do 1 m=1,gc
@@ -128,7 +129,7 @@
2 enddo
endif
elseif (bcx.eq.'p') then
- call sync(myvar) ! done through the sync routines
+ ! between procs through the sync routines
elseif (bcx.eq.'i') then
if (myid.eq.0) then
do 7 m=1,gc
--
GitLab