From 7e6f5550f88951a1f7d5a15b7fd77af6b1a27f64 Mon Sep 17 00:00:00 2001
From: cott <schnetter@cct.lsu.edu>
Date: Tue, 1 Aug 2006 22:59:00 +0000
Subject: storage_verbose

By default turn off storage information output when
using carpet::veryverbose = yes. carpet::storage_verbose = yes
yields the old behavior.

darcs-hash:20060801225947-34d71-b65e1db580c142d74855219a58206285007f42e4.gz
---
 Carpet/Carpet/param.ccl      |  4 ++++
 Carpet/Carpet/src/Storage.cc | 13 +++++++++++--
 2 files changed, 15 insertions(+), 2 deletions(-)

(limited to 'Carpet')

diff --git a/Carpet/Carpet/param.ccl b/Carpet/Carpet/param.ccl
index fe8325837..64b0c64f6 100644
--- a/Carpet/Carpet/param.ccl
+++ b/Carpet/Carpet/param.ccl
@@ -317,6 +317,10 @@ BOOLEAN veryverbose "Display a lot of info on the screen" STEERABLE=always
 {
 } "no"
 
+BOOLEAN storage_verbose "Display verbose storage information if veryverbose" STEERABLE=ALWAYS
+{
+} "no"
+
 BOOLEAN barriers "Insert barriers at strategic places for debugging purposes (slows down execution)" STEERABLE=always
 {
 } "no"
diff --git a/Carpet/Carpet/src/Storage.cc b/Carpet/Carpet/src/Storage.cc
index de861cd98..8643ebf0f 100644
--- a/Carpet/Carpet/src/Storage.cc
+++ b/Carpet/Carpet/src/Storage.cc
@@ -63,6 +63,7 @@ namespace Carpet {
     for (int n=0; n<n_groups; ++n) {
       int const group = groups[n];
       
+      if(storage_verbose)
       {
         char * const groupname = CCTK_GroupName (group);
         assert (groupname);
@@ -209,7 +210,11 @@ namespace Carpet {
   GroupStorageIncrease (const cGH* cgh, int n_groups, const int* groups,
                         const int* timelevels, int* status)
   {
-    Checkpoint ("GroupStorageIncrease");
+    DECLARE_CCTK_PARAMETERS
+
+    if(storage_verbose) {
+      Checkpoint ("GroupStorageIncrease");
+    }
     return
       GroupStorageCrease (cgh, n_groups, groups, timelevels, status, true);
   }
@@ -220,7 +225,11 @@ namespace Carpet {
   GroupStorageDecrease (const cGH* cgh, int n_groups, const int* groups,
                         const int* timelevels, int* status)
   {
-    Checkpoint ("GroupStorageDecrease");
+    DECLARE_CCTK_PARAMETERS
+
+    if(storage_verbose) {
+      Checkpoint ("GroupStorageDecrease");
+    }
     return
       GroupStorageCrease (cgh, n_groups, groups, timelevels, status, false);
   }
-- 
cgit v1.2.3