[cig-commits] r11842 - in long/3D/Gale/trunk: . src/Underworld/Rheology/src

[walter at geodynamics.org]

Author: walter
Date: 2008-04-22 11:22:57 -0700 (Tue, 22 Apr 2008)
New Revision: 11842

Modified:
   long/3D/Gale/trunk/
   long/3D/Gale/trunk/src/Underworld/Rheology/src/FaultingMoresiMuhlhaus2006.c
Log:
 r2102 at earth:  boo | 2008-04-22 10:20:47 -0700
 Make FaultingMoresiMuhlhaus2006 use effective cohesion as the minimum yield strength if not otherwise set



Property changes on: long/3D/Gale/trunk
___________________________________________________________________
Name: svk:merge
   - 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:2101
   + 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:2102

Modified: long/3D/Gale/trunk/src/Underworld/Rheology/src/FaultingMoresiMuhlhaus2006.c
===================================================================
--- long/3D/Gale/trunk/src/Underworld/Rheology/src/FaultingMoresiMuhlhaus2006.c	2008-04-22 18:22:52 UTC (rev 11841)
+++ long/3D/Gale/trunk/src/Underworld/Rheology/src/FaultingMoresiMuhlhaus2006.c	2008-04-22 18:22:57 UTC (rev 11842)
@@ -501,6 +501,9 @@
 	
 	/* Make sure frictionalStrength is above the minimum */
 	minimumYieldStress = self->minimumYieldStress;
+
+        if(minimumYieldStress==0)
+          minimumYieldStress=effectiveCohesion;
 	
 	if ( frictionalStrength < minimumYieldStress) 
 		frictionalStrength = minimumYieldStress;