Carpet: skip empty groups in Poison.cc

darcs-hash:20050531214104-776a0-7130407552fd1689183a8c5bde73f488d6ce5849.gz

1 files changed, 4 insertions, 3 deletions

diff --git a/Carpet/Carpet/src/Poison.cc b/Carpet/Carpet/src/Poison.cc
index e97e8a4f6..101c98922 100644
--- a/Carpet/Carpet/src/Poison.cc
+++ b/Carpet/Carpet/src/Poison.cc
@@ -47,9 +47,10 @@ namespace Carpet {
       return;
     }
     
+    const int nvar = CCTK_NumVarsInGroupI(group);
+    if (nvar == 0) return;
     const int n0 = CCTK_FirstVarIndexI(group);
     assert (n0>=0);
-    const int nvar = CCTK_NumVarsInGroupI(group);
     const int sz = CCTK_VarTypeSize(CCTK_VarTypeI(n0));
     assert (sz>0);
     
@@ -102,12 +103,12 @@ namespace Carpet {
     Checkpoint ("PoisonCheck");
     
     for (int group=0; group<CCTK_NumGroups(); ++group) {
-      if (CCTK_QueryGroupStorageI(cgh, group)) {
+      const int nvar = CCTK_NumVarsInGroupI(group);
+      if (nvar > 0 && CCTK_QueryGroupStorageI(cgh, group)) {
         
         const int grouptype = CCTK_GroupTypeI(group);
         const int n0 = CCTK_FirstVarIndexI(group);
         assert (n0>=0);
-        const int nvar = CCTK_NumVarsInGroupI(group);
         const int tp = CCTK_VarTypeI(n0);
         const int gpdim = groupdata.at(group).info.dim;