Changeset 4193 for issm/trunk/src/m/solutions/SpawnCore.m

Timestamp:

06/24/10 13:46:42 (15 years ago)

Author:

Eric.Larour

Message:

Some updates on Qmu module: simplifications

File:

• issm/trunk/src/m/solutions/SpawnCore.m (modified) (5 diffs)

issm/trunk/src/m/solutions/SpawnCore.m

@@ -1 @@
-function responses=SpawnCore(models,variables,variabledescriptors,counter);
+function responses=SpawnCore(femmodel,variables,variabledescriptors,counter);
 %SPAWNCORE - for Qmu analysis, using Dakota. Spawn the core solution.
 %
 %   Usage:
-%      responses=SpawnCore(models,variables,variabledescriptors)
+%      responses=SpawnCore(femmodel,variables,variabledescriptors)
 %
 
 %recover parameters
-verbose=models.dh.parameters.Verbose;
-parameters=models.dh.parameters;
-responsedescriptors=models.dh.parameters.responsedescriptors; 
-npart=models.dh.parameters.qmu_npart;
-part=models.dh.parameters.qmu_part+1; %C indexing
-numberofnodes=models.dh.parameters.NumberOfNodes;
+verbose=femmodel.parameters.Verbose;
+responsedescriptors=femmodel.parameters.responsedescriptors; 
+npart=femmodel.parameters.qmu_npart;
+part=femmodel.parameters.qmu_part+1; %C indexing
+numberofnodes=femmodel.parameters.NumberOfNodes;
 
-disp(['   qmu iteration: ',num2str(counter)]);
+displaystring(verbose,'%s%i',['   qmu iteration:'],counter);
 
-%first update the inputs to the models using the variables provided to us by dakota.
+%first update the inputs to the femmodel using the variables provided to us by dakota.
 count=1;
 while count<=numel(variables)
@@ -27 +26 @@
         else
                 root=qmuroot(descriptor);
-                param=parameters.(root);
+                param=femmodel.parameters.(root);
 
                 %next npart values in variables are partition values for this param, collect them.
@@ -47 +46 @@
 if analysis_type==DiagnosticAnalysisEnum(),
 
-        results=diagnostic_core(models);
+        results=diagnostic_core(femmodel);
 
 else
@@ -54 +53 @@
 
 %process results
-processedresults=processresults(models,results);
+processedresults=processresults(femmodel,results);
 
 %now process the results to get response function values
@@ -60 +59 @@
 for i=1:numel(responsedescriptors),
         descriptor=responsedescriptors{i};
-        responses(i)=qmuresponse(models,results,processedresults,descriptor);
+        responses(i)=qmuresponse(femmodel,results,processedresults,descriptor);
 end