From 40ac0f91b0fbe6d13281e4dba16c6065c531f9cd Mon Sep 17 00:00:00 2001
From: Erik Schnetter <schnetter@gmail.com>
Date: Thu, 4 Apr 2013 23:41:31 -0400
Subject: Carpet: Take tapering into account during postrestrict

---
 Carpet/Carpet/src/Evolve.cc | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'Carpet/Carpet/src/Evolve.cc')

diff --git a/Carpet/Carpet/src/Evolve.cc b/Carpet/Carpet/src/Evolve.cc
index bf90787e6..37eaecdcc 100644
--- a/Carpet/Carpet/src/Evolve.cc
+++ b/Carpet/Carpet/src/Evolve.cc
@@ -486,6 +486,8 @@ namespace Carpet {
   void
   CallRestrict (cGH * const cctkGH)
   {
+    DECLARE_CCTK_PARAMETERS;
+    
     char const * const where = "Evolve::CallRestrict";
     static Timer timer ("CallRestrict");
     timer.start();
@@ -549,11 +551,22 @@ namespace Carpet {
                 have_done_late_global_mode |= do_late_global_mode;
                 have_done_anything = true;
                 
+                if (use_tapered_grids and reflevel > 0) {
+                  int const parent_do_every =
+                    ipow(mgfact, mglevel) *
+                    (maxtimereflevelfact / timereffacts.AT(reflevel-1));
+                  bool const parent_is_active =
+                    (cctkGH->cctk_iteration-1) % parent_do_every == 0;
+                  do_taper = not parent_is_active;
+                }
+                
                 Waypoint ("Evolution/PostRestrict at iteration %d time %g",
                           cctkGH->cctk_iteration, (double)cctkGH->cctk_time);
                 
                 ScheduleTraverse (where, "CCTK_POSTRESTRICT", cctkGH);
                 
+                do_taper = false;
+                
                 EndTimingLevel (cctkGH);
               } LEAVE_LEVEL_MODE;
             } LEAVE_GLOBAL_MODE;
@@ -574,7 +587,7 @@ namespace Carpet {
   
   
   void
-  CallAnalysis  (cGH * const cctkGH)
+  CallAnalysis (cGH * const cctkGH)
   {
     DECLARE_CCTK_PARAMETERS;
     
-- 
cgit v1.2.3