[cig-commits] r15949 - short/3D/PyLith/branches/pylith-friction/libsrc/faults
brad at geodynamics.org
brad at geodynamics.org
Tue Nov 10 17:59:48 PST 2009
Author: brad
Date: 2009-11-10 17:59:48 -0800 (Tue, 10 Nov 2009)
New Revision: 15949
Modified:
short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDynL.cc
Log:
Better comparison order.
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:58:10 UTC (rev 15948)
+++ short/3D/PyLith/branches/pylith-friction/libsrc/faults/FaultCohesiveDynL.cc 2009-11-11 01:59:48 UTC (rev 15949)
@@ -801,7 +801,7 @@
const double Sqq = Cqx*Cqx*Aixjx + Cqy*Cqy*Aiyjy;
if (tractionTpdtVertex[1]+tractionInitialVertex[1] < 0 &&
- slipVertex[1] == 0) {
+ 0 == slipVertex[1]) {
// if in compression
std::cout << "FAULT IN COMPRESSION" << std::endl;
const double friction =
More information about the CIG-COMMITS
mailing list