0001 function [elements,grids,loads,constraints,materials,part,tpart]=ModelProcessor(md,solutiontype),
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
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