[cig-commits] r16133 - in short/3D/PyLith/trunk/unittests/libtests/faults: . data

[surendra at geodynamics.org]

Author: surendra
Date: 2010-01-15 10:47:34 -0800 (Fri, 15 Jan 2010)
New Revision: 16133

Modified:
   short/3D/PyLith/trunk/unittests/libtests/faults/TestFaultCohesiveDynL.cc
   short/3D/PyLith/trunk/unittests/libtests/faults/data/CohesiveDynLDataTri3.cc
Log:
Updated slip case of unittest for friction _constraintSolnSpace and is working

Modified: short/3D/PyLith/trunk/unittests/libtests/faults/TestFaultCohesiveDynL.cc
===================================================================
--- short/3D/PyLith/trunk/unittests/libtests/faults/TestFaultCohesiveDynL.cc	2010-01-15 03:23:55 UTC (rev 16132)
+++ short/3D/PyLith/trunk/unittests/libtests/faults/TestFaultCohesiveDynL.cc	2010-01-15 18:47:34 UTC (rev 16133)
@@ -289,7 +289,7 @@
     // Get expected values
     const double* valsE = _data->slipSlipE;
     int iVertex = 0; // variable to use as index into valsE array
-    const int fiberDimE = spaceDim; // number of calues per point
+    const int fiberDimE = spaceDim; // number of values per point
     const double tolerance = 1.0e-06;
     for (SieveMesh::label_sequence::iterator v_iter = verticesBegin; v_iter
 	   != verticesEnd;

Modified: short/3D/PyLith/trunk/unittests/libtests/faults/data/CohesiveDynLDataTri3.cc
===================================================================
--- short/3D/PyLith/trunk/unittests/libtests/faults/data/CohesiveDynLDataTri3.cc	2010-01-15 03:23:55 UTC (rev 16132)
+++ short/3D/PyLith/trunk/unittests/libtests/faults/data/CohesiveDynLDataTri3.cc	2010-01-15 18:47:34 UTC (rev 16133)
@@ -283,33 +283,33 @@
 // ----------------------------------------------------------------------
 // Input
 const double pylith::faults::CohesiveDynLDataTri3::_fieldIncrSlip[] = {
-  8.1, 9.1,
-  8.2, 9.2, // 3
-  8.3, 9.3, // 4
-  8.4, 9.4,
-  8.5, 9.5, // 6
-  8.7, 9.7, // 7
-  8.6, 9.6, // 8
-  8.8, 9.8, // 9
+  9.1, 10.1,
+  9.2, 10.2, // 3
+  9.3, 10.3, // 4
+  9.4, 10.4,
+  9.5, 10.5, // 6
+  9.7, 10.7, // 7
+  9.6, -10.6, // 8
+  9.8, -10.8, // 9
 };
 
 // Output
 // :TODO: Update Lagrange multiplier values
 const double pylith::faults::CohesiveDynLDataTri3::_fieldIncrSlipE[] = {
-  8.1, 9.1,
-  8.2, 9.2, // 3
-  8.3, 9.3, // 4
-  8.4, 9.4,
-  8.5, 9.5, // 6
-  8.7, 9.7, // 7
-  8.6, 9.6, // 8
-  8.8, 9.8, // 9
+  9.1, 10.1,
+  9.2, 10.2, // 3
+  9.3, 10.3, // 4
+  9.4, 10.4,
+  9.5, 10.5, // 6
+  9.7, 10.7, // 7
+  -6.8, -10.6, // 8
+  -6.94, -10.8, // 9
 };
 
 // :TODO: Update slip values based on changes in Lagrange multiplier values
 const double pylith::faults::CohesiveDynLDataTri3::_slipSlipE[] = {
-  0.0, 0.0,
-  0.0, 0.0,
+  32.8, 0.0,
+  33.48, 0.0,
 };
 
 // ----------------------------------------------------------------------