Index: /issm/trunk/src/m/solutions/jpl/control_core.m
===================================================================
--- /issm/trunk/src/m/solutions/jpl/control_core.m	(revision 4126)
+++ /issm/trunk/src/m/solutions/jpl/control_core.m	(revision 4127)
@@ -1,24 +1,26 @@
-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