modified: bc.f90

src/bc.f90

@@ -116,6 +116,7 @@
       real(kind=pr) :: myvar(ii,jj,ll)
       integer :: m
 
+      call sync(myvar)  ! between procs through the sync routines
       if (bcx.eq.'w') then
         if (myid.eq.0) then
           do 1 m=1,gc
@@ -128,7 +129,7 @@
 2         enddo
         endif
       elseif (bcx.eq.'p') then
-        call sync(myvar)  ! done through the sync routines
+        ! between procs through the sync routines
       elseif (bcx.eq.'i') then
         if (myid.eq.0) then
           do 7 m=1,gc