[cig-commits] r15950 - short/3D/PyLith/branches/pylith-friction/libsrc/faults

[brad at geodynamics.org]

Author: brad
Date: 2009-11-10 18:08:22 -0800 (Tue, 10 Nov 2009)
New Revision: 15950

Modified:
   short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDynL.cc
Log:
Improved comment.

Modified: short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDynL.cc
===================================================================
--- short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDynL.cc	2009-11-11 01:59:48 UTC (rev 15949)
+++ short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDynL.cc	2009-11-11 02:08:22 UTC (rev 15950)
@@ -802,7 +802,7 @@
 
 	    if (tractionTpdtVertex[1]+tractionInitialVertex[1] < 0 &&
 		0 == slipVertex[1]) {
-	      // if in compression
+	      // if in compression and no opening
 	      std::cout << "FAULT IN COMPRESSION" << std::endl;
 	      const double friction =
 		-muf * (tractionInitialVertex[1] + tractionTpdtVertex[1]);