Carpet: Allow using grid arrays in wragh bin

Poison grid arrays (and grid scalars) before the wragh bin.  Poison
grid functions before the basegrid bin.

Also poison before recovering.

darcs-hash:20060802155840-dae7b-663fe065e3196ebcc53d15c48572fa938008b7a3.gz

1 files changed, 9 insertions, 2 deletions

diff --git a/Carpet/Carpet/src/Poison.cc b/Carpet/Carpet/src/Poison.cc
index 101c98922..a99255230 100644
--- a/Carpet/Carpet/src/Poison.cc
+++ b/Carpet/Carpet/src/Poison.cc
@@ -15,7 +15,7 @@ namespace Carpet {
   
   
   
-  void Poison (const cGH* cgh, const checktimes where)
+  void Poison (const cGH* cgh, const checktimes where, const int what)
   {
     DECLARE_CCTK_PARAMETERS;
     
@@ -23,7 +23,14 @@ namespace Carpet {
     
     for (int group=0; group<CCTK_NumGroups(); ++group) {
       if (CCTK_QueryGroupStorageI(cgh, group)) {
-	PoisonGroup (cgh, group, where);
+        int const grouptype = CCTK_GroupTypeI (group);
+        if (what == 0 or
+            (what == CCTK_GF and grouptype == CCTK_GF) or
+            (what == CCTK_ARRAY and (grouptype == CCTK_ARRAY or
+                                     grouptype == CCTK_SCALAR)))
+        {
+          PoisonGroup (cgh, group, where);
+        }
       } // if has storage
     } // for group
   }