source: issm/oecreview/Archive/18296-19100/ISSM-18572-18573.diff

../trunk-jpl/src/c/cores/controlvalidation_core.cpp

@@ -35 +35 @@
         X0 = Xpetsc->ToMPISerial();
         delete Xpetsc;
 
-        /*Allocate Gradient and current vector*/
-        G = xNew<IssmDouble>(n);
+        /*Allocate current vector*/
         X = xNew<IssmDouble>(n);
 
         /*out of solution_type, figure out solution core and adjoint function pointer*/
@@ -109 +108 @@
         femmodel->OutputControlsx(&femmodel->results);
 
         /*Clean up and return*/
+        xDelete<IssmDouble>(output);
         xDelete<IssmDouble>(G);
         xDelete<IssmDouble>(X);
         xDelete<IssmDouble>(X0);

../trunk-jpl/src/c/classes/FemModel.cpp

@@ -1484 +1484 @@
                          /*Compute SurfaceAbsMisfitEnum*/
                          J+=0.5*(surface-surfaceobs)*(surface-surfaceobs)*weight*Jdet*gauss->weight;
                  }
-
+                 delete gauss;
+                 xDelete<IssmDouble>(xyz_list);
         }
 
         /*Sum all J from all cpus of the cluster:*/