Carpet: Print timing statistics for a run

darcs-hash:20060704060051-dae7b-b4de1243402e7167592704a61107c0b8e28b76ed.gz

1 files changed, 10 insertions, 0 deletions

diff --git a/Carpet/Carpet/src/Evolve.cc b/Carpet/Carpet/src/Evolve.cc
index 175f0388a..7dd41fc99 100644
--- a/Carpet/Carpet/src/Evolve.cc
+++ b/Carpet/Carpet/src/Evolve.cc
@@ -135,6 +135,9 @@ namespace Carpet {
     const int convlev = 0;
     cGH* cgh = fc->GH[convlev];
 
+    // Timing statistics
+    InitTiming (cgh);
+
     // Main loop
     while (! do_terminate(cgh, cgh->cctk_time, cgh->cctk_iteration)) {
 
@@ -318,6 +321,9 @@ namespace Carpet {
           // Checking
           PoisonCheck (cgh, currenttime);
 
+          // Timing statistics
+          StepTiming (cgh);
+
           leave_level_mode (cgh);
           leave_global_mode (cgh);
         }
@@ -425,6 +431,10 @@ namespace Carpet {
         assert (have_done_global_mode);
 
     }
+
+    // Timing statistics
+    PrintTimingStats (cgh);
+
   }
 
 } // namespace Carpet