Changeset 1708

Timestamp:

08/14/09 13:56:19 (16 years ago)

Author:

seroussi

Message:

free ressources

Location:

issm/trunk/src/c/parallel

Files:

• control.cpp (modified) (2 diffs)
• diagnostic.cpp (modified) (1 diff)
• diagnostic_core.cpp (modified) (5 diffs)

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

@@ -82 +82 @@
         inputs->Add("velocity",u_g_initial,3,numberofnodes);
         inputs->Add("velocity_obs",u_g_obs,2,numberofnodes);
+        
 
         /*erase velocities: */
@@ -144 +145 @@
         /*end module: */
         MODULEEND();
-        
+
+        /*Free ressources */
+        xfree((void**)&u_g_initial);
+        xfree((void**)&u_g_obs);
+
         return 0; //unix success return;
 }

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

@@ -128 +128 @@
         MODULEEND();
         
+        /*Free ressources */
+        xfree((void**)&u_g_initial);
+
         return 0; //unix success return;
 }

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

@@ -87 +87 @@
                         FieldExtrudex( slopex, fem_sl->elements,fem_sl->nodes,fem_sl->loads,fem_sl->materials,"slopex",0);
                         FieldExtrudex( slopey, fem_sl->elements,fem_sl->nodes,fem_sl->loads,fem_sl->materials,"slopex",0);
+                        VecFree(&slopex); VecFree(&slopey);
                 }
 
@@ -92 +93 @@
                 inputs->Add("surfaceslopex",slopex,numberofdofspernode_sl,numberofnodes);
                 inputs->Add("surfaceslopey",slopey,numberofdofspernode_sl,numberofnodes);
+                VecFree(&slopex); VecFree(&slopey);
 
                 if(debug)_printf_("%s\n"," computing hutter velocities...");
@@ -133 +135 @@
                 VecMerge(ug,ug_horiz,dofsetgen(2,&dof01[0],3,numberofnodes*3),numberofnodes*2);
                 VecMerge(ug,ug_vert,dofsetgen(1,&dof2[0],3,numberofnodes*3),numberofnodes*1);
+                VecFree(&ug_horiz); VecFree(&ug_vert);
 
                 if(debug)_printf_("%s\n"," computing pressure according to Pattyn...");
@@ -150 +153 @@
                         inputs->Add("bedslopex",slopex,numberofdofspernode_sl,numberofnodes);
                         inputs->Add("bedslopey",slopey,numberofdofspernode_sl,numberofnodes);
+                        VecFree(&slopex); VecFree(&slopey);
                         
                         //recombine ug and pg: 
@@ -157 +161 @@
 
                         inputs->Add("velocity",ug_stokes,numberofdofspernode_ds,numberofnodes);
+                        VecFree(&ug_stokes);
 
                         if(debug)_printf_("%s\n"," update boundary conditions for stokes using velocities previously computed...");