modified: bc.f90

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