Changeset 1707

Timestamp:

08/14/09 13:43:31 (15 years ago)

Author:

seroussi

Message:

cleaned initialization of control method

File:

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

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

@@ -91 +91 @@
         inputs->Add("bedslopex",slopex,numberofdofspernode_sl,numberofnodes);
         inputs->Add("bedslopey",slopey,numberofdofspernode_sl,numberofnodes);
+        VecFree(&slopex); VecFree(&slopey);
 
         /*2: run a complete diagnostic to update spcs*/
@@ -114 +115 @@
         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_vert); VecFree(&ug_horiz);
 
         //Create 4d u_g
@@ -125 +127 @@
         //Add in inputs
         inputs->Add("velocity",ug_stokes,numberofdofspernode_ds,numberofnodes);
+        VecFree(&ug_stokes);
 
         //update spcs
@@ -140 +143 @@
         //Add in inputs
         inputs->Add("velocity",ug,numberofdofspernode_ds,numberofnodes);
+        VecFree(&ug);
 
         /*Assign output*/