source: issm/oecreview/Archive/16554-17801/ISSM-16977-16978.diff@ 17802

../trunk-jpl/src/c/analyses/StressbalanceAnalysis.cpp

@@ -3214 +3214 @@
 ElementMatrix* StressbalanceAnalysis::CreateKMatrixSSAFS(Element* element){/*{{{*/
 
         /*compute all stiffness matrices for this element*/
-        printf("-------------- file: StressbalanceAnalysis.cpp line: %i\n",__LINE__); 
         ElementMatrix* Ke1=CreateKMatrixFS(element);
-        printf("-------------- file: StressbalanceAnalysis.cpp line: %i\n",__LINE__); 
         int indices[3]={18,19,20};
         Ke1->StaticCondensation(3,&indices[0]);
-        printf("-------------- file: StressbalanceAnalysis.cpp line: %i\n",__LINE__); 
         int init = element->FiniteElement();
         element->SetTemporaryElementType(P1Enum); 
-        printf("-------------- file: StressbalanceAnalysis.cpp line: %i\n",__LINE__); 
         ElementMatrix* Ke2=CreateKMatrixSSA3d(element);
-        printf("-------------- file: StressbalanceAnalysis.cpp line: %i\n",__LINE__); 
         element->SetTemporaryElementType(init); 
         ElementMatrix* Ke3=CreateKMatrixCouplingSSAFS(element);
-        printf("-------------- file: StressbalanceAnalysis.cpp line: %i\n",__LINE__); 
         ElementMatrix* Ke =new ElementMatrix(Ke1,Ke2,Ke3);
 
         /*clean-up and return*/
@@ -3712 +3706 @@
 
         /*Clean-up and return*/
         xDelete<int>(cs_list);
+        xDelete<Node*>(node_list);
         xDelete<IssmDouble>(xyz_list);
         delete basaltria->material; delete basaltria;
         delete gauss;
@@ -4095 +4090 @@
 
         /*Clean up and return*/
         xDelete<int>(cs_list);
+        xDelete<Node*>(node_list);
+        xDelete<IssmDouble>(xyz_list);
         delete gauss;
         return pe;
 }/*}}}*/