[cig-commits] r18122 - mc/3D/CitcomS/trunk/lib

[becker at geodynamics.org]

Author: becker
Date: 2011-03-20 17:13:58 -0700 (Sun, 20 Mar 2011)
New Revision: 18122

Modified:
   mc/3D/CitcomS/trunk/lib/Topo_gravity.c
Log:
Fixed typo for anisotropic stress computation. 



Modified: mc/3D/CitcomS/trunk/lib/Topo_gravity.c
===================================================================
--- mc/3D/CitcomS/trunk/lib/Topo_gravity.c	2011-03-18 23:17:15 UTC (rev 18121)
+++ mc/3D/CitcomS/trunk/lib/Topo_gravity.c	2011-03-21 00:13:58 UTC (rev 18122)
@@ -388,7 +388,7 @@
 	eps[2] = Vxyz[3][i] - dilation[i];
 	eps[3] = Vxyz[4][i];
 	eps[4] = Vxyz[5][i];
-	eps[5] = Vxyz[5][i];
+	eps[5] = Vxyz[6][i];
 	for(l1=0;l1 < 6;l1++){	
 	  str[l1]=0.0;
 	  for(l2=0;l2 < 6;l2++)