From 2b837795647c6609b024828e5cea7081a3ed782e Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 8 Jun 2011 11:43:41 +0000
Subject: [PATCH] Fixed incorrect sign convention
---
src/build_system_wsmp.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/build_system_wsmp.f90 b/src/build_system_wsmp.f90
index af78e054..26eb9d51 100644
--- a/src/build_system_wsmp.f90
+++ b/src/build_system_wsmp.f90
@@ -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
--
GitLab