modified: src/bc.f90

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,:,:)