Changeset 3333

Timestamp:

03/25/10 09:26:22 (15 years ago)

Author:

Mathieu Morlighem

Message:

Test: save results every five iterations

File:

• issm/trunk/src/c/parallel/transient_core_3d.cpp (modified) (1 diff)

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

@@ -189 +189 @@
                 result=new Result(results->Size()+1,time,step,"t_g",t_g); results->AddObject(result);
                 result=new Result(results->Size()+1,time,step,"m_g",m_g); results->AddObject(result);
+
+                //Save temporary results every 5 steps
+                if (step%5==0){
+                        _printf_("%s","      saving temporary results...");
+
+                        DataSet* processed_results=NULL;
+                        char*    outputfilename=NULL;
+
+                        model->FindParam(&outputfilename,"outputfilename");
+                        ProcessResults(&processed_results,results,model,TransientAnalysisEnum());
+                        OutputResults(processed_results,outputfilename);
+
+                        delete processed_results;
+                        xfree((void**)&outputfilename);
+
+                        _printf_("%s\n"," done.");
+                }
         }