Changeset 4127

Timestamp:

06/22/10 16:29:33 (15 years ago)

Author:

seroussi

Message:

minor

File:

• issm/trunk/src/m/solutions/jpl/control_core.m (modified) (1 diff)

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

@@ -1 @@
-function results=control_core(models)
+function femmodel=control_core(femmodel)
 %CONTROL_CORE - compute the core inversion
 %
 %   Usage:
-%      results=control_core(models);
+%      femmodel=control_core(femmodel);
 %
 
-%Preprocess models
-models=ControlInitialization(models);
+        %Preprocess models
+        femmodel=ControlInitialization(femmodel);
 
-%recover active model.
-model=models.active;
-
-model.parameters
-%recover parameters common to all solutions
-verbose=model.parameters.Verbose;
-dim=model.parameters.Dim;
-isstokes=model.parameters.IsStokes;
-
-%recover other parameters
-eps_cm=model.parameters.EpsCm;
-fit=model.parameters.Fit;
+        %recover parameters common to all solutions
+        verbose=femmodel.parameters.Verbose;
+        nsteps=femmodel.parameters.NSteps;
+        control_type=femmodel.parameters.ControlType;
+        fit=femmodel.parameters.Fit;
+        optscal=femmodel.parameters.OptScal;
+        maxiter=femmodel.parameters.MaxIter;
+        cm_jump=femmodel.parameters.CmJump;
+        eps_cm=femmodel.parameters.EpsCm;
+        tolx=femmodel.parameters.TolX;
+        cm_min=femmodel.parameters.CmMin;
+        cm_max=femmodel.parameters.CmMax;
+        cm_gradient=femmodel.parameters.CmGradient;
+        control_steady=femmodel.parameters.ControlSteady;
 
 %initialize control parameters