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

Fixed incorrect sign convention

parent e29861a3
No related branches found
No related tags found
No related merge requests found
......@@ -194,9 +194,9 @@ do ileaves=1,osolve%nleaves
iloc=ifind_loc_wsmp(i1loc,i1,ja,ia,n_iproc,nz_loc)
elem_dz=(osolve%icon(5,ileaves)-osolve%icon(1,ileaves))*params%vex
if (k1 < 5) then
avals(iloc)=avals(iloc)+(params%dt*weightel(ileaves))/(2*elem_dz)
else
avals(iloc)=avals(iloc)-(params%dt*weightel(ileaves))/(2*elem_dz)
else
avals(iloc)=avals(iloc)+(params%dt*weightel(ileaves))/(2*elem_dz)
endif
endif
endif
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment