Changeset 2004

Timestamp:

08/27/09 10:24:33 (15 years ago)

Author:

Mathieu Morlighem

Message:

some deleaking

Location:

issm/trunk/src/c/parallel

Files:

• steadystate.cpp (modified) (1 diff)
• thermal_core.cpp (modified) (3 diffs)
• thermal_core_nonlinear.cpp (modified) (1 diff)

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

@@ -178 +178 @@
         xfree((void**)&u_g_initial);
         xfree((void**)&p_g_initial);
+        delete model;
+        delete results;
+        delete inputs;
 
         return 0; //unix success return;

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

@@ -31 +31 @@
         double* t_g_serial=NULL;
         double* m_g_serial=NULL;
+
+        /*intermediary*/
+        Vec Vect=NULL;
+        Vec Vecm=NULL;
 
         /*flags: */
@@ -113 +117 @@
                 result=new Result(results->Size()+1,0,1,"m_g",m_g[0]);
                 results->AddObject(result);
+
+                /*free ressource*/
+                Vect=t_g[0];    Vecm=m_g[0];
+                VecFree(&Vect); VecFree(&Vecm);
         }
         else{
@@ -121 +129 @@
                         result=new Result(results->Size()+1,time[i],i+1,"m_g",m_g[i]);
                         results->AddObject(result);
+
+                        /*free ressource*/
+                        Vect=t_g[i];    Vecm=m_g[i];
+                        VecFree(&Vect); VecFree(&Vecm);
                 }
         }
+        /*free ressource*/
+        xfree((void**)&t_g);
 }

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

@@ -124 +124 @@
         }
 
+        /*Free ressources: */
+        MatFree(&Kgg_nopenalty);
+        VecFree(&pg_nopenalty);
+        VecFree(&tf);
+
         /*Assign output pointers: */
         *ptg=tg;