From c34bc3df63d0ccfdcf6bcc737f7902e8e15e0221 Mon Sep 17 00:00:00 2001
From: Erik Schnetter <schnetter@aei.mpg.de>
Date: Sat, 9 Apr 2005 19:55:00 +0000
Subject: Carpet: Add debugging parameter to output the level times

darcs-hash:20050409195510-891bb-78231ea04482513e00b2a0a278b514ae95e1a8c8.gz
---
 Carpet/Carpet/param.ccl         |  4 ++++
 Carpet/Carpet/src/Evolve.cc     |  8 ++++++++
 Carpet/Carpet/src/Initialise.cc | 21 +++++++++++++++++++++
 3 files changed, 33 insertions(+)

diff --git a/Carpet/Carpet/param.ccl b/Carpet/Carpet/param.ccl
index df591e6f4..62fff478e 100644
--- a/Carpet/Carpet/param.ccl
+++ b/Carpet/Carpet/param.ccl
@@ -248,6 +248,10 @@ BOOLEAN barriers "Insert barriers at strategic places for debugging purposes (sl
 {
 } "no"
 
+BOOLEAN output_internal_data "Periodically print internal data to the screen for debugging purposes"
+{
+} "no"
+
 
 
 KEYWORD processor_topology "How to determine the processor topology" STEERABLE=recover
diff --git a/Carpet/Carpet/src/Evolve.cc b/Carpet/Carpet/src/Evolve.cc
index ee332553c..66eb714c1 100644
--- a/Carpet/Carpet/src/Evolve.cc
+++ b/Carpet/Carpet/src/Evolve.cc
@@ -152,6 +152,14 @@ namespace Carpet {
       Evolution_Restrict( cgh );
 
       EvolutionII( cgh );
+
+      if (output_internal_data) {
+        CCTK_INFO ("Internal data dump:");
+        cout << "   global_time: " << global_time << endl
+             << "   leveltimes: " << leveltimes << endl
+             << "   delta_time: " << delta_time << endl;
+      }
+
     }
 
     Waypoint ("Done with evolution loop");
diff --git a/Carpet/Carpet/src/Initialise.cc b/Carpet/Carpet/src/Initialise.cc
index c8c394d89..87d9adc01 100644
--- a/Carpet/Carpet/src/Initialise.cc
+++ b/Carpet/Carpet/src/Initialise.cc
@@ -75,6 +75,13 @@ namespace Carpet {
 
       recovery_II (cgh);
 
+      if (output_internal_data) {
+        CCTK_INFO ("Internal data dump:");
+        cout << "   global_time: " << global_time << endl
+             << "   leveltimes: " << leveltimes << endl
+             << "   delta_time: " << delta_time << endl;
+      }
+
     } else {
 
       for (int rl=0; rl<reflevels; ++rl) {
@@ -86,6 +93,13 @@ namespace Carpet {
 
       initialisation_II (cgh);
 
+      if (output_internal_data) {
+        CCTK_INFO ("Internal data dump:");
+        cout << "   global_time: " << global_time << endl
+             << "   leveltimes: " << leveltimes << endl
+             << "   delta_time: " << delta_time << endl;
+      }
+
       if (init_3_timelevels) {
         get_two_extra_timelevels_of_data (cgh);
       }
@@ -93,6 +107,13 @@ namespace Carpet {
 
     initialisation_III (cgh);
 
+    if (output_internal_data) {
+      CCTK_INFO ("Internal data dump:");
+      cout << "   global_time: " << global_time << endl
+           << "   leveltimes: " << leveltimes << endl
+           << "   delta_time: " << delta_time << endl;
+    }
+
     Waypoint ("Done with initialisation");
 
     return 0;
-- 
cgit v1.2.3