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

[walter at geodynamics.org]

Author: walter
Date: 2008-03-10 11:45:24 -0700 (Mon, 10 Mar 2008)
New Revision: 11389

Modified:
   long/3D/Gale/trunk/
   long/3D/Gale/trunk/src/Underworld/Rheology/src/MohrCoulomb.c
Log:
 r2022 at earth:  boo | 2008-03-06 13:19:15 -0800
 If minimumYieldStress==0, then set it to effectiveCohesion



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

Modified: long/3D/Gale/trunk/src/Underworld/Rheology/src/MohrCoulomb.c
===================================================================
--- long/3D/Gale/trunk/src/Underworld/Rheology/src/MohrCoulomb.c	2008-03-10 18:45:21 UTC (rev 11388)
+++ long/3D/Gale/trunk/src/Underworld/Rheology/src/MohrCoulomb.c	2008-03-10 18:45:24 UTC (rev 11389)
@@ -310,6 +310,8 @@
 
 	/* Make sure frictionalStrength is above the minimum */
 	minimumYieldStress = self->minimumYieldStress;
+        if(minimumYieldStress==0.0)
+          minimumYieldStress=effectiveCohesion;
 	
 	if ( frictionalStrength < minimumYieldStress) 
 		frictionalStrength = minimumYieldStress;