diff options
Diffstat (limited to 'Carpet')
-rw-r--r-- | Carpet/Carpet/param.ccl | 4 | ||||
-rw-r--r-- | Carpet/Carpet/src/Storage.cc | 13 |
2 files changed, 15 insertions, 2 deletions
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); } |