Changeset 4335 for issm/trunk/src/m/solutions/thermal_core.m

Timestamp:

06/30/10 10:08:42 (15 years ago)

Author:

seroussi

Message:

save results only if needed for serial solutions

File:

• issm/trunk/src/m/solutions/thermal_core.m (modified) (2 diffs)

issm/trunk/src/m/solutions/thermal_core.m

@@ -10 +10 @@
         ndt=femmodel.parameters.Ndt;
         dt=femmodel.parameters.Dt;
+        solution_type=femmodel.parameters.SolutionType;
 
         %Compute number of timesteps
@@ -27 +28 @@
                 femmodel=thermal_core_step(femmodel,i,time); 
 
-                displaystring(verbose,'\n%s',['saving results...']);
-                femmodel.elements=InputToResult(femmodel.elements,femmodel.nodes,femmodel.vertices,femmodel.loads,femmodel.materials,femmodel.parameters,TemperatureEnum,i,time);
-                femmodel.elements=InputToResult(femmodel.elements,femmodel.nodes,femmodel.vertices,femmodel.loads,femmodel.materials,femmodel.parameters,MeltingRateEnum,i,time);
+                if solution_type==ThermalSolutionEnum,
+                        displaystring(verbose,'\n%s',['saving results...']);
+                        femmodel.elements=InputToResult(femmodel.elements,femmodel.nodes,femmodel.vertices,femmodel.loads,femmodel.materials,femmodel.parameters,TemperatureEnum,i,time);
+                        femmodel.elements=InputToResult(femmodel.elements,femmodel.nodes,femmodel.vertices,femmodel.loads,femmodel.materials,femmodel.parameters,MeltingRateEnum,i,time);
+                end
         end