From 7c33dd101e31004e21a93e461ca9440c066c6116 Mon Sep 17 00:00:00 2001
From: holger <holger.grosshans@ptb.de>
Date: Fri, 24 Jun 2022 16:15:21 +0200
Subject: [PATCH] modified: bc.f90 modified: write_vtk.f90
---
src/bc.f90 | 7 +++----
src/write_vtk.f90 | 1 +
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/bc.f90 b/src/bc.f90
index 191a4ff..4c12a88 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 57c3f64..bb3af38 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
--
GitLab