diff --git a/src/bc.f90 b/src/bc.f90 index 4d98adab6c0040771b83b2577b6597711915389d..7ec1004c4ffc559554f7678a306c297cda894ec0 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,:,:)