Changeset 17196

Timestamp:

01/29/14 12:08:56 (11 years ago)

Author:

cborstad

Message:

CHG: stripped TMeltingPoint function out of arrhenius to make it an independent function

Location:

issm/trunk-jpl/src/m/materials

Files:

• TMeltingPoint.m (added)
• TMeltingPoint.py (added)
• arrhenius.m (modified) (2 diffs)

issm/trunk-jpl/src/m/materials/arrhenius.m

@@ -45 +45 @@
 end
 
-    function Tm=TMeltingPoint(pressure)
-        Tm=GetThom(T0,pressure);
-    end
-    
-    function Th=GetThom(T,pressure)
-        Th=T-beta*pressure;
-    end
-
 %   values for Activation energy Q and pre-exponential constants from
 %   Grewe/Blatter 2009, p54
@@ -82 +74 @@
     
     function B=GetRigidity(T,w,pressure)
-        Thom=GetThom(T, pressure);
+        Thom=TMeltingPoint(T, pressure);
         A=GetA(Thom, w);
         B=1./(A.^(1/n));