Fixed bugs.

Fixed bugs.
Added "flip timelevels" capability.

darcs-hash:20020606122015-07bb3-7eab2bcf55becde5136b2b9051c4133bd595b9bd.gz

1 files changed, 23 insertions, 1 deletions

diff --git a/Carpet/Carpet/src/Cycle.cc b/Carpet/Carpet/src/Cycle.cc
index af3e564ee..46faba22f 100644
--- a/Carpet/Carpet/src/Cycle.cc
+++ b/Carpet/Carpet/src/Cycle.cc
@@ -8,7 +8,7 @@
 
 #include "carpet.hh"
 
-static const char* rcsid = "$Header: /home/eschnett/C/carpet/Carpet/Carpet/Carpet/src/Cycle.cc,v 1.6 2002/06/06 00:23:34 schnetter Exp $";
+static const char* rcsid = "$Header: /home/eschnett/C/carpet/Carpet/Carpet/Carpet/src/Cycle.cc,v 1.7 2002/06/06 14:20:15 schnetter Exp $";
 
 CCTK_FILEVERSION(Carpet_Cycle_cc)
 
@@ -40,4 +40,26 @@ namespace Carpet {
     }
   }
   
+  
+  
+  void FlipTimeLevels (const cGH* cgh)
+  {
+    Checkpoint ("%*sFlipTimeLevels", 2*reflevel, "");
+    
+    for (int group=0; group<CCTK_NumGroups(); ++group) {
+      if (reflevel<arrdata[group].hh->reflevels()
+	  && CCTK_QueryGroupStorageI(cgh, group)) {
+	for (int var=0; var<CCTK_NumVarsInGroupI(group); ++var) {
+	  
+	  assert (group<(int)arrdata.size());
+	  assert (var<(int)arrdata[group].data.size());
+	  for (int c=0; c<arrdata[group].hh->components(reflevel); ++c) {
+	    arrdata[group].data[var]->cycle (reflevel, c, mglevel);
+	  }
+	  
+	}
+      }
+    }
+  }
+  
 } // namespace Carpet