Changeset 2019

Timestamp:

08/27/09 14:10:01 (16 years ago)

Author:

Eric.Larour

Message:

fixed leaks

File:

• issm/trunk/src/c/parallel/ControlInitialization.cpp (modified) (3 diffs)

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

@@ -102 +102 @@
         VecDuplicatePatch(&ug_horiz,ug); FieldExtrudex( ug_horiz,fem_dh->elements,fem_dh->nodes, fem_dh->loads,fem_dh-> materials,"velocity",1);
 
-        //pressure
-        if(debug)_printf_("%s\n"," computing pressure according to MacAyeal...");
-        ComputePressurex( &pg,fem_dh->elements, fem_dh->nodes, fem_dh->loads,  fem_dh->materials, numberofnodes);
-
         //vertical velocity
         if(debug)_printf_("%s\n"," computing vertical velocities...");
@@ -141 +137 @@
         VecFree(&ug);
         diagnostic_core_nonlinear(&ug,NULL,NULL,NULL,fem_ds,inputs,DiagnosticAnalysisEnum(),StokesAnalysisEnum());
-        VecFree(&pg);
 
         //Add in inputs
         inputs->Add("velocity",ug,numberofdofspernode_ds,numberofnodes);
-        VecFree(&ug);
 
         /*Assign output*/
@@ -152 +146 @@
         /*Free ressources:*/
         xfree((void**)&dofset);
+        VecFree(&ug);
+        VecFree(&ug_horiz);
+        VecFree(&ug_vert);
+        VecFree(&ug_stokes);
+        VecFree(&pg);
+        VecFree(&slopex);
+        VecFree(&slopey);
 
 }