From dfe54c5f1c47e39d66744612b49e06df4ac92bb4 Mon Sep 17 00:00:00 2001
From: allen <allen@5633253d-7678-4964-a54d-f87795f8ee59>
Date: Thu, 23 May 2002 20:07:15 +0000
Subject: Some info statements and a verbose parameter for debugging

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Time/trunk@48 5633253d-7678-4964-a54d-f87795f8ee59
---
 param.ccl    |  6 +++++-
 src/Simple.c | 14 ++++++++++++--
 2 files changed, 17 insertions(+), 3 deletions(-)

diff --git a/param.ccl b/param.ccl
index 3776b46..58ac84c 100644
--- a/param.ccl
+++ b/param.ccl
@@ -37,4 +37,8 @@ REAL courant_fac "The courant timestep condition dt = courant_fac*max(delta_spac
 INT outtimestep_every "How often to output courant timestep"
 {
  0:* :: "Zero means no output"
-} 0
\ No newline at end of file
+} 0
+
+BOOLEAN verbose "Give information about timestep setting"
+{
+} "no"
\ No newline at end of file
diff --git a/src/Simple.c b/src/Simple.c
index 31fd57d..5848d36 100644
--- a/src/Simple.c
+++ b/src/Simple.c
@@ -52,8 +52,18 @@ void Time_Simple(CCTK_ARGUMENTS)
   /* Calculate the timestep */
   cctkGH->cctk_delta_time = dtfac*min_spacing;
 
-  
-  
+  if (verbose)
+  {
+    CCTK_VInfo(CCTK_THORNSTRING,
+	       "Using simple courant condition to set timestep");
+    CCTK_VInfo(CCTK_THORNSTRING,
+	       "  ... using dtfac of %f",dtfac);
+    CCTK_VInfo(CCTK_THORNSTRING,
+	       "  ... using minimum spacing of %f",min_spacing);
+  }
+
+  CCTK_VInfo(CCTK_THORNSTRING,
+	     "Timestep set to %f (Simple Courant)\n",cctkGH->cctk_delta_time);
 
 }
 
-- 
cgit v1.2.3