Changeset 1708 for issm/trunk/src/c/parallel/diagnostic_core.cpp

Timestamp:

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

Author:

seroussi

Message:

free ressources

File:

• issm/trunk/src/c/parallel/diagnostic_core.cpp (modified) (5 diffs)

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...");