Skip to content
Snippets Groups Projects
Commit 7c33dd10 authored by Holger Grosshans's avatar Holger Grosshans
Browse files

modified: bc.f90

	modified:   write_vtk.f90
parent b413b8e8
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment