diff --git a/src/bc.f90 b/src/bc.f90 index 191a4ffd5a8c3cba623abc93005fef015426445d..4c12a88725b33f440b5be891b6441b846a694473 100755 --- a/src/bc.f90 +++ b/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 diff --git a/src/write_vtk.f90 b/src/write_vtk.f90 index 57c3f64d349453c4c2c4d53a501f0d30e7af487c..bb3af387d62bd1568c456747f573d21c19f08325 100755 --- a/src/write_vtk.f90 +++ b/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