Skip to content
Snippets Groups Projects
Commit f17963f7 authored by Dave Whipp's avatar Dave Whipp
Browse files

Tweaked debug output

parent 3ea27a5c
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/build_system_wsmp.f90
+ 4
− 4
View file @ f17963f7
......@@ -196,16 +196,16 @@ do ileaves=1,osolve%nleaves
if (k1 < 5) then
write (*,*) '****************'
write (*,*) 'k1: ',k1
write (*,*) 'avals before for proc ',iproc,': ',avals
write (*,*) 'avals before for proc ',iproc,': ',avals(iloc)
avals(iloc)=avals(iloc)-(params%dt*weightel(ileaves))/(2.d0*elem_dz)
write (*,*) 'avals after for proc ',iproc,': ',avals
write (*,*) 'avals after for proc ',iproc,': ',avals(iloc)
write (*,*) '****************'
else
write (*,*) '****************'
write (*,*) 'k1: ',k1
write (*,*) 'avals before for proc ',iproc,': ',avals
write (*,*) 'avals before for proc ',iproc,': ',avals(iloc)
avals(iloc)=avals(iloc)+(params%dt*weightel(ileaves))/(2.d0*elem_dz)
write (*,*) 'avals after for proc ',iproc,': ',avals
write (*,*) 'avals after for proc ',iproc,': ',avals(iloc)
write (*,*) '****************'
endif
endif
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment