modified: bc.f90

	modified:   write_vtk.f90

src/bc.f90

@@ -179,6 +179,7 @@
       real(kind=pr) :: wval
       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
@@ -191,7 +192,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
@@ -244,9 +245,7 @@
       real(kind=pr) :: myvar(ii,jj,ll)
       integer :: m
 
-      if (bcx.eq.'p') then
-        call syncLEsource(myvar)  ! done through the sync routines
-      endif
+      call syncLEsource(myvar)  ! between procs through the sync routines
 
       if (bcy.eq.'p') then
         do 4 m=1,gc

src/write_vtk.f90

@@ -156,6 +156,7 @@
         character(*)  :: name
 
         write(10,'(3a)') 'SCALARS ',name,' float 1'
+        write(10,'(a)') 'LOOKUP_TABLE default '
         do l=lmin-1,lmax+1; do j=jmin-1,jmax+1
           write(10,fmt=rowfmt) (myvar(i,j,l),i=imin,imax+1)
         enddo; enddo