Changeset 693

Timestamp:

06/02/09 08:11:05 (16 years ago)

Author:

Mathieu Morlighem

Message:

first fix of thermal

Location:

issm/trunk/src/c/parallel

Files:

• OutputResults.cpp (modified) (1 diff)
• ProcessResults.cpp (modified) (1 diff)
• thermal.cpp (modified) (2 diffs)

issm/trunk/src/c/parallel/OutputResults.cpp

@@ -36 +36 @@
                 pfclose(fid,filename);
         }
-
 }

issm/trunk/src/c/parallel/ProcessResults.cpp

@@ -286 +286 @@
         *presults=newresults;
 }
-

issm/trunk/src/c/parallel/thermal.cpp

@@ -86 +86 @@
         inputs->Add("dt",dt);
 
+        _printf_("initialize results:\n");
+        results=new DataSet(ResultsEnum());
+
         //erase velocities and pressure embedded in parameters
         param=(Param*)femmodels[0].parameters->FindParamObject("u_g");
@@ -115 +118 @@
                 #endif
         }
-
         
         _printf_("process results:\n");
-        ProcessResults(&results,&femmodels[0],DiagnosticAnalysisEnum());
+        ProcessResults(&results,&femmodels[0],ThermalAnalysisEnum());
         
         _printf_("write results to disk:\n");