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

Last change on this file was 19102, checked in by Mathieu Morlighem, 10 years ago

NEW: added 18296-19100
File size: 1.2 KB
RevLine 
[19102]1Index: ../trunk-jpl/src/c/cores/controlvalidation_core.cpp
2===================================================================
3--- ../trunk-jpl/src/c/cores/controlvalidation_core.cpp (revision 18572)
4+++ ../trunk-jpl/src/c/cores/controlvalidation_core.cpp (revision 18573)
5@@ -35,8 +35,7 @@
6 X0 = Xpetsc->ToMPISerial();
7 delete Xpetsc;
8
9- /*Allocate Gradient and current vector*/
10- G = xNew<IssmDouble>(n);
11+ /*Allocate current vector*/
12 X = xNew<IssmDouble>(n);
13
14 /*out of solution_type, figure out solution core and adjoint function pointer*/
15@@ -109,6 +108,7 @@
16 femmodel->OutputControlsx(&femmodel->results);
17
18 /*Clean up and return*/
19+ xDelete<IssmDouble>(output);
20 xDelete<IssmDouble>(G);
21 xDelete<IssmDouble>(X);
22 xDelete<IssmDouble>(X0);
23Index: ../trunk-jpl/src/c/classes/FemModel.cpp
24===================================================================
25--- ../trunk-jpl/src/c/classes/FemModel.cpp (revision 18572)
26+++ ../trunk-jpl/src/c/classes/FemModel.cpp (revision 18573)
27@@ -1484,7 +1484,8 @@
28 /*Compute SurfaceAbsMisfitEnum*/
29 J+=0.5*(surface-surfaceobs)*(surface-surfaceobs)*weight*Jdet*gauss->weight;
30 }
31-
32+ delete gauss;
33+ xDelete<IssmDouble>(xyz_list);
34 }
35
36 /*Sum all J from all cpus of the cluster:*/
Note: See TracBrowser for help on using the repository browser.