From 1c2335046ebf445b44f6ab8702286dcaa3d4838e Mon Sep 17 00:00:00 2001
From: holger <holger.grosshans@ptb.de>
Date: Fri, 17 Jun 2022 14:53:30 +0200
Subject: [PATCH] modified: src/bc.f90
---
src/bc.f90 | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/src/bc.f90 b/src/bc.f90
index 4d98ada..7ec1004 100755
--- a/src/bc.f90
+++ b/src/bc.f90
@@ -10,6 +10,7 @@
wval=0._pr
+ call sync(myu); call sync(myv); call sync(myw) ! between procs through the sync routines
if (bcx.eq.'w') then ! x:
if (myid.eq.0) then
do 1 m=1,gc
@@ -26,9 +27,11 @@
2 enddo
endif
elseif (bcx.eq.'p') then
- call sync(myu); call sync(myv); call sync(myw) ! done through the sync routines
+ call sync(myu); call sync(myv); call sync(myw)
elseif (bcx.eq.'i') then
- ! see inflow routine
+ if (myid.eq.0) then
+ ! see inflow routine
+ endif
if (myid.eq.nrprocs-1) then
do 8 m=1,gc
myu(imax+m-1,:,:)=myu(imax-1,:,:)
--
GitLab