ModelProcessor

PURPOSE ^

MODELPROCESSOR - process model for a given solution sequence

SYNOPSIS ^

function [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessor(md,solutiontype),

DESCRIPTION ^

MODELPROCESSOR - process model for a given solution sequence

   This routine uses all the informations in the model md and put them
   into different structures (grids, elements, loads, constrained,materials)
   that will be used to create the stiffness matrix and load vector.
   After this routine, the model md should not be called until the end of the
   solution sequence.

   Usage:
      [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessor(md,solutiontype)

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessor(md,solutiontype),
0002 %MODELPROCESSOR - process model for a given solution sequence
0003 %
0004 %   This routine uses all the informations in the model md and put them
0005 %   into different structures (grids, elements, loads, constrained,materials)
0006 %   that will be used to create the stiffness matrix and load vector.
0007 %   After this routine, the model md should not be called until the end of the
0008 %   solution sequence.
0009 %
0010 %   Usage:
0011 %      [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessor(md,solutiontype)
0012 
0013 global cluster
0014 if strcmpi(solutiontype,'diagnostic_horiz'),
0015     [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessorDiagnosticHoriz(md);
0016 elseif strcmpi(solutiontype,'diagnostic_vert'),
0017     [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessorDiagnosticVert(md);
0018 elseif strcmpi(solutiontype,'diagnostic_hutter'),
0019     [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessorDiagnosticHutter(md);
0020 elseif strcmpi(solutiontype,'diagnostic_basevert'),
0021     [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessorDiagnosticBaseVert(md);
0022 elseif strcmpi(solutiontype,'thermalsteady')| strcmpi(solutiontype,'thermaltransient'),
0023     [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessorThermal(md,solutiontype);
0024 elseif strcmpi(solutiontype,'meltingsteady')| strcmpi(solutiontype,'meltingtransient'),
0025     [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessorMelting(md,solutiontype);
0026 elseif strcmpi(solutiontype,'prognostic'),
0027     [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessorPrognostic(md);
0028 elseif strcmpi(solutiontype,'diagnostic_stokes'),
0029     [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessorDiagnosticStokes(md);
0030 elseif strcmpi(solutiontype,'bed_slope_compute') | strcmpi(solutiontype, 'surface_slope_compute'),
0031     [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessorSlopeCompute(md,solutiontype);
0032 
0033 else 
0034     error('ModelProcessor error message: solution type not supported yet');
0035 end

Generated on Sun 29-Mar-2009 20:22:55 by m2html © 2003