[cig-commits] r11841 - in long/3D/Gale/trunk: . src/Underworld/Rheology/src
walter at geodynamics.org
walter at geodynamics.org
Tue Apr 22 11:22:53 PDT 2008
Author: walter
Date: 2008-04-22 11:22:52 -0700 (Tue, 22 Apr 2008)
New Revision: 11841
Modified:
long/3D/Gale/trunk/
long/3D/Gale/trunk/src/Underworld/Rheology/src/DruckerPrager.c
Log:
r2101 at earth: boo | 2008-04-22 10:19:59 -0700
Make DruckerPrager 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:2096
+ 3a629746-de10-0410-b17b-fd6ecaaa963e:/cig:2101
Modified: long/3D/Gale/trunk/src/Underworld/Rheology/src/DruckerPrager.c
===================================================================
--- long/3D/Gale/trunk/src/Underworld/Rheology/src/DruckerPrager.c 2008-04-21 21:47:25 UTC (rev 11840)
+++ long/3D/Gale/trunk/src/Underworld/Rheology/src/DruckerPrager.c 2008-04-22 18:22:52 UTC (rev 11841)
@@ -319,6 +319,9 @@
particleExt->tensileFailure = (frictionalStrength <= 0.0);
+ if(minimumYieldStress==0)
+ minimumYieldStress=dpCohesion;
+
if ( frictionalStrength < minimumYieldStress)
frictionalStrength = minimumYieldStress;
More information about the cig-commits
mailing list