From d0f6e3079929fadf22d9d58e12362d1259b493a9 Mon Sep 17 00:00:00 2001
From: holger <holger.grosshans@ptb.de>
Date: Mon, 20 Jun 2022 14:10:07 +0200
Subject: [PATCH] modified: bc.f90
---
src/bc.f90 | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/src/bc.f90 b/src/bc.f90
index 7ec1004..ccd73d7 100755
--- a/src/bc.f90
+++ b/src/bc.f90
@@ -27,11 +27,9 @@
2 enddo
endif
elseif (bcx.eq.'p') then
- call sync(myu); call sync(myv); call sync(myw)
+ ! between procs through the sync routines
elseif (bcx.eq.'i') then
- 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