Extended storage_verbose parameter to give a report on the maximum amount of storage assigned during a run.

The options are now

storage_verbose = "yes" -> show everything (enabling, disabling and report)
storage_verbose = "report" -> just show report
storage_verbose = "no" (the default) -> show nothing

The report will be given at termination, and also at every storage_report_every iterations (default is
only at termination).

I could extend the report to give a list of the GAs with storage at the max if anyone wants that.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@346 b61c5cb5-eaca-4651-9a7a-d64986f99364

1 files changed, 24 insertions, 0 deletions

diff --git a/src/PughUtils.c b/src/PughUtils.c
index 449454f..c981f41 100644
--- a/src/PughUtils.c
+++ b/src/PughUtils.c
@@ -20,6 +20,8 @@ static const char *rcsid = "$Header$";
 CCTK_FILEVERSION(CactusPUGH_PUGH_PughUtils_c)
 
 void PUGH_Report(CCTK_ARGUMENTS);
+void PUGH_PrintStorageReport (CCTK_ARGUMENTS);
+void PUGHi_PrintStorageReport (void);
 
  /*@@
    @routine    PUGH_Report
@@ -216,3 +218,25 @@ MPI_Datatype PUGH_MPIDataType (pGH *pughGH, int cctk_type)
   return (retval);
 }
 #endif /* CCTK_MPI */
+
+ /*@@
+   @routine    PUGH_PrintStorageReport
+   @author     Gabrielle Allen
+   @date       16th Sept 2001
+   @desc
+               Print a report about the use of storage 
+   @enddesc
+@@*/
+void PUGH_PrintStorageReport (CCTK_ARGUMENTS)
+{
+  DECLARE_CCTK_PARAMETERS
+  DECLARE_CCTK_ARGUMENTS
+
+  if (storage_report_every > 0)
+  { 
+    if (cctk_iteration % storage_report_every == 0)
+    {
+      PUGHi_PrintStorageReport();
+    }
+  }
+}