CarpetLib: Ensure oldstorage is empty in ggf destructor

1 files changed, 5 insertions, 0 deletions

diff --git a/Carpet/CarpetLib/src/ggf.cc b/Carpet/CarpetLib/src/ggf.cc
index 7ec02ff30..d9fde10df 100644
--- a/Carpet/CarpetLib/src/ggf.cc
+++ b/Carpet/CarpetLib/src/ggf.cc
@@ -62,6 +62,11 @@ ggf::ggf (const int varindex_, const operator_type transport_operator_,
 
 // Destructors
 ggf::~ggf () {
+  for (int ml=0; ml<(int)oldstorage.size(); ++ml) {
+    for (int rl=0; rl<(int)oldstorage.AT(ml).size(); ++rl) {
+      assert (oldstorage.AT(ml).AT(rl).empty());
+    }
+  }
   for (int rl=0; rl<h.reflevels(); ++rl) {
     recompose_free (rl);
   } // for rl