[cig-commits] r19575 - short/3D/PyLith/trunk/libsrc/pylith/friction

[brad at geodynamics.org]

Author: brad
Date: 2012-02-02 10:22:39 -0800 (Thu, 02 Feb 2012)
New Revision: 19575

Modified:
   short/3D/PyLith/trunk/libsrc/pylith/friction/SlipWeakening.cc
Log:
Fixed small bug in slip-weakening friction. Add cohesion even if in tension.

Modified: short/3D/PyLith/trunk/libsrc/pylith/friction/SlipWeakening.cc
===================================================================
--- short/3D/PyLith/trunk/libsrc/pylith/friction/SlipWeakening.cc	2012-02-02 18:21:06 UTC (rev 19574)
+++ short/3D/PyLith/trunk/libsrc/pylith/friction/SlipWeakening.cc	2012-02-02 18:22:39 UTC (rev 19575)
@@ -295,7 +295,9 @@
 	mu_f = properties[p_coefD];
       } // if/else
     friction = - mu_f * normalTraction + properties[p_cohesion];
-  } // if
+  } else { // else
+    friction = properties[p_cohesion];
+  } // if/else
 
   PetscLogFlops(6);