Carpet: Add more timers

Add more timers to Initialise.cc and Evolve.cc.

darcs-hash:20070613215046-dae7b-01cbfbe064e49ed70c28a179ceb68eb2eecf858f.gz

1 files changed, 8 insertions, 11 deletions

diff --git a/Carpet/Carpet/src/Evolve.cc b/Carpet/Carpet/src/Evolve.cc
index 6cc937c64..4de4d431b 100644
--- a/Carpet/Carpet/src/Evolve.cc
+++ b/Carpet/Carpet/src/Evolve.cc
@@ -217,7 +217,8 @@ namespace Carpet {
   {
     DECLARE_CCTK_PARAMETERS;
     
-    static Timer timer ("Evolve::CallRegrid");
+    char const * const where = "Evolve::CallRegrid";
+    static Timer timer (where);
     timer.start();
     
     assert (is_level_mode());
@@ -233,8 +234,7 @@ namespace Carpet {
               (do_meta_mode ? " (meta)" : ""));
     
     // Preregrid
-    Checkpoint ("Scheduling PREREGRID");
-    CCTK_ScheduleTraverse ("CCTK_PREREGRID", cctkGH, CallFunction);
+    ScheduleTraverse (where, "CCTK_PREREGRID", cctkGH);
     
     // Regrid
     Checkpoint ("Regrid");
@@ -299,9 +299,7 @@ namespace Carpet {
                     cctkGH->cctk_delta_time / cctkGH->cctk_timefac;
                   
                   // Postregrid
-                  Checkpoint ("Scheduling POSTREGRID");
-                  CCTK_ScheduleTraverse
-                    ("CCTK_POSTREGRID", cctkGH, CallFunction);
+                  ScheduleTraverse (where, "CCTK_POSTREGRID", cctkGH);
                   
                 } // for tl
                 cctkGH->cctk_time = old_cctk_time;
@@ -329,7 +327,8 @@ namespace Carpet {
   {
     DECLARE_CCTK_PARAMETERS;
     
-    static Timer timer ("Evolve::CallEvol");
+    char const * const where = "Evolve::CallEvol";
+    static Timer timer (where);
     timer.start();
     
     for (int ml=mglevels-1; ml>=0; --ml) {
@@ -373,10 +372,8 @@ namespace Carpet {
               Poison (cctkGH, currenttimebutnotifonly);
               
               // Evolve
-              Checkpoint ("Scheduling PRESTEP");
-              CCTK_ScheduleTraverse ("CCTK_PRESTEP", cctkGH, CallFunction);
-              Checkpoint ("Scheduling EVOL");
-              CCTK_ScheduleTraverse ("CCTK_EVOL", cctkGH, CallFunction);
+              ScheduleTraverse (where, "CCTK_PRESTEP", cctkGH);
+              ScheduleTraverse (where, "CCTK_EVOL", cctkGH);
               
               // Checking
               PoisonCheck (cctkGH, currenttime);