Changeset 8495

Timestamp:

06/03/11 10:27:16 (14 years ago)

Author:

seroussi

Message:

src/m enthalpy

Location:

issm/trunk/src/m

Files:

• enum/EnthalpyPicardEnum.m (added)
• model/process_solve_options.m (modified) (1 diff)
• solutions/CorePointerFromSolutionEnum.m (modified) (1 diff)
• solutions/SolutionConfiguration.m (modified) (1 diff)

issm/trunk/src/m/model/process_solve_options.m

@@ -11 +11 @@
 if ischar(solution_type), error(['only Enums are supported as ''solution_type''. For example: md=solve(md,''solution_type'',DiagnosticSolutionEnum); ']); end
 if ~ismember(solution_type,[DiagnosticSolutionEnum,PrognosticSolutionEnum,ThermalSolutionEnum,...
-                SteadystateSolutionEnum,ParametersSolutionEnum,TransientSolutionEnum,...
+                SteadystateSolutionEnum,ParametersSolutionEnum,TransientSolutionEnum,EnthalpySolutionEnum,...
                 BalancethicknessSolutionEnum,BalancevelocitiesSolutionEnum,BedSlopeSolutionEnum,SurfaceSlopeSolutionEnum,GroundingLineMigration2DSolutionEnum,HydrologySolutionEnum,FlaimSolutionEnum]),
         error(['process_solve_options error message: solution_type ' EnumToString(solution_type) ' not supported yet!']);

issm/trunk/src/m/solutions/CorePointerFromSolutionEnum.m

@@ -10 +10 @@
         case SteadystateSolutionEnum,              solutioncore='steadystate_core';
         case ThermalSolutionEnum,                  solutioncore='thermal_core';
+        case EnthalpySolutionEnum,                 solutioncore='enthalpy_core';
         case PrognosticSolutionEnum,               solutioncore='prognostic_core';
         case BalancethicknessSolutionEnum,         solutioncore='balancethickness_core';

issm/trunk/src/m/solutions/SolutionConfiguration.m

@@ -21 +21 @@
                 numanalyses=2; 
                 analyses=[ThermalAnalysisEnum;MeltingAnalysisEnum];
+
+        case EnthalpySolutionEnum,
+                numanalyses=1; 
+                analyses=[EnthalpyAnalysisEnum];
 
         case PrognosticSolutionEnum,