[cig-commits] r19056 - in short/3D/PyLith/branches/v1.6-revisedfault: libsrc/pylith/faults tests/3d

[brad at geodynamics.org]

Author: brad
Date: 2011-10-11 14:48:58 -0700 (Tue, 11 Oct 2011)
New Revision: 19056

Modified:
   short/3D/PyLith/branches/v1.6-revisedfault/libsrc/pylith/faults/FaultCohesiveDyn.cc
   short/3D/PyLith/branches/v1.6-revisedfault/tests/3d/Makefile.am
Log:
Small fix to setting relative displacement (remove unnecessary tolerance check).

Modified: short/3D/PyLith/branches/v1.6-revisedfault/libsrc/pylith/faults/FaultCohesiveDyn.cc
===================================================================
--- short/3D/PyLith/branches/v1.6-revisedfault/libsrc/pylith/faults/FaultCohesiveDyn.cc	2011-10-11 19:43:59 UTC (rev 19055)
+++ short/3D/PyLith/branches/v1.6-revisedfault/libsrc/pylith/faults/FaultCohesiveDyn.cc	2011-10-11 21:48:58 UTC (rev 19056)
@@ -573,16 +573,13 @@
       } // for
     } // for
 
-#if 1 // debugging
+#if 0 // debugging
     std::cout << "slipVertex: ";
     for (int iDim=0; iDim < spaceDim; ++iDim)
       std::cout << "  " << slipVertex[iDim];
     std::cout << ",  slipRateVertex: ";
     for (int iDim=0; iDim < spaceDim; ++iDim)
       std::cout << "  " << slipRateVertex[iDim];
-    std::cout << ", orientationVertex: ";
-    for (int iDim=0; iDim < spaceDim*spaceDim; ++iDim)
-      std::cout << "  " << orientationVertex[iDim];
     std::cout << ",  tractionVertex: ";
     for (int iDim=0; iDim < spaceDim; ++iDim)
       std::cout << "  " << tractionTpdtVertex[iDim];
@@ -1034,9 +1031,6 @@
       // Set increment in relative displacement.
       dispRelVertex[iDim] = -areaVertex * dLagrangeTpdtVertexGlobal[iDim] / 
 	(jacobianVertexN[iDim] + jacobianVertexP[iDim]);
-      if (fabs(dispRelVertex[iDim]) < _zeroTolerance) {
-	dispRelVertex[iDim] = 0.0;
-      } // if
 
       // Update increment in Lagrange multiplier.
       lagrangeTIncrVertex[iDim] += dLagrangeTpdtVertexGlobal[iDim];

Modified: short/3D/PyLith/branches/v1.6-revisedfault/tests/3d/Makefile.am
===================================================================
--- short/3D/PyLith/branches/v1.6-revisedfault/tests/3d/Makefile.am	2011-10-11 19:43:59 UTC (rev 19055)
+++ short/3D/PyLith/branches/v1.6-revisedfault/tests/3d/Makefile.am	2011-10-11 21:48:58 UTC (rev 19056)
@@ -17,8 +17,10 @@
 #
 
 SUBDIRS = \
+	cyclicfriction \
 	matprops \
 	plasticity \
 	slipdir
 
+
 # End of file