[cig-commits] r14404 - seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/citcoms_isotropic_no_crust

[tan2 at geodynamics.org]

Author: tan2
Date: 2009-03-20 11:07:20 -0700 (Fri, 20 Mar 2009)
New Revision: 14404

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/citcoms_isotropic_no_crust/read_citcoms_data.c
Log:
freeing memory in finalize_mantle model()

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/citcoms_isotropic_no_crust/read_citcoms_data.c
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/citcoms_isotropic_no_crust/read_citcoms_data.c	2009-03-20 16:45:48 UTC (rev 14403)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/MODELS/3D/citcoms_isotropic_no_crust/read_citcoms_data.c	2009-03-20 18:07:20 UTC (rev 14404)
@@ -1323,6 +1323,7 @@
 
 void FC_FUNC_(finalize_mantle_model, FINALIZE_MANTLE_MODEL)()
 {
+    int i;
     float tmp[5], recv[5];
 
     /* some statistics */
@@ -1341,5 +1342,20 @@
         fprintf(stderr, "total points=%e, distance searched=%e, elements searched=%e, hint=%e, inverse mapping=%e\n",
                 recv[0], recv[1], recv[2], recv[3], recv[4]);
 
+    /* free memory */
+    for(i=0; i<ndomains; i++) {
+        domain_t *dom = &domains[i];
+
+        free(dom->model->elements);
+        free(dom->model->mats);
+        free(dom->model->nodes);
+        free(dom->model->rsqr);
+
+        free(dom->model);
+        free(dom->cap);
+    }
+
+    free(domains);
+    return;
 }