Changeset 3085 for issm/trunk/src/m/solutions/jpl/slopecompute.m

Timestamp:

02/23/10 11:04:17 (15 years ago)

Author:

seroussi

Message:

added core in slopecompute in serial

File:

• issm/trunk/src/m/solutions/jpl/slopecompute.m (modified) (2 diffs)

issm/trunk/src/m/solutions/jpl/slopecompute.m

@@ -9 +9 @@
 
         %Build all models requested for diagnostic simulation
-        models.analysis_type=SlopeComputeAnalysisEnum; %needed for processresults
+        models.analysis_type=SlopecomputeAnalysisEnum; %needed for processresults
 
         displaystring(md.verbose,'\n%s',['reading surface and bed slope computation model data']);
-        md.analysis_type=SlopeComputeAnalysisEnum; md.sub_analysis_type=NoneAnalysisEnum; models.sl=CreateFemModel(md);
+        md.analysis_type=SlopecomputeAnalysisEnum; md.sub_analysis_type=NoneAnalysisEnum; models.sl=CreateFemModel(md);
         
         % figure out number of dof: just for information purposes.
@@ -22 +22 @@
         %compute solution
         displaystring(md.verbose,'\n%s',['call computational core:']);
-        slopex=diagnostic_core_linear(models.sl,inputs,SlopeComputeAnalysisEnum(),SurfaceXAnalysisEnum());
-        slopey=diagnostic_core_linear(models.sl,inputs,SlopeComputeAnalysisEnum(),SurfaceYAnalysisEnum());
+        results=slopecompute_core(models,inputs,SlopecomputeAnalysisEnum(),NoneAnalysisEnum());
 
-        results.slopex=slopex;
-        results.slopey=slopey;
-        results.step=1;
-        results.time=0;
-        
         displaystring(md.verbose,'\n%s',['load results...']);
         if ~isstruct(md.results), md.results=struct(); end