[cig-commits] r11906 - mc/3D/CitcomCU/trunk/src

[tan2 at geodynamics.org]

Author: tan2
Date: 2008-05-02 16:42:16 -0700 (Fri, 02 May 2008)
New Revision: 11906

Modified:
   mc/3D/CitcomCU/trunk/src/Advection_diffusion.c
Log:
Fixed an index-overrun bug in advection-diffusion solver with heatflux boundary conditions. This fixes issue138.


Modified: mc/3D/CitcomCU/trunk/src/Advection_diffusion.c
===================================================================
--- mc/3D/CitcomCU/trunk/src/Advection_diffusion.c	2008-05-02 23:41:00 UTC (rev 11905)
+++ mc/3D/CitcomCU/trunk/src/Advection_diffusion.c	2008-05-02 23:42:16 UTC (rev 11906)
@@ -682,8 +682,8 @@
 
 				nodes[1] = loc[loc[a].node_nebrs[0][0]].node_nebrs[2][0];
 				nodes[2] = loc[loc[a].node_nebrs[0][1]].node_nebrs[2][0];
-				nodes[4] = loc[loc[a].node_nebrs[0][0]].node_nebrs[2][2];
-				nodes[3] = loc[loc[a].node_nebrs[0][1]].node_nebrs[2][2];
+				nodes[4] = loc[loc[a].node_nebrs[0][0]].node_nebrs[2][1];
+				nodes[3] = loc[loc[a].node_nebrs[0][1]].node_nebrs[2][1];
 
 				for(aid = 0, j = 1; j <= onedvpoints[E->mesh.nsd]; j++)
 					if(a == nodes[j])