Initial implementation of newverbose parameter in IOBasic.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOBasic/trunk@94 b589c3ab-70e8-4b4d-a09f-cba2dd200880

1 files changed, 25 insertions, 2 deletions

diff --git a/src/Output.c b/src/Output.c
index 2f3a96a..0461611 100644
--- a/src/Output.c
+++ b/src/Output.c
@@ -290,18 +290,29 @@ int IOBasic_TriggerOutput (cGH *GH, int vindex)
 /* check if steerable parameters have changed */
 static void CheckSteerableParameters (iobasicGH *myGH)
 {
-  DECLARE_CCTK_PARAMETERS
   int times_set;
+  int out_old;
+  int i;
   static int outScalar_vars_lastset = -1;
+  DECLARE_CCTK_PARAMETERS
 
 
   /* How often to output */
+  out_old = myGH->outScalar_every;
   myGH->outScalar_every = out_every > 0 ? out_every : -1;
   if (outScalar_every > 0)
   {
     myGH->outScalar_every = outScalar_every;
   }
-
+  if (myGH->outScalar_every != out_old)
+  {
+    if (CCTK_Equals(newverbose,"standard") || CCTK_Equals(newverbose,"full"))
+    {
+      CCTK_VInfo("IOBasic","Scalar: Output every %d iterations",
+		 myGH->outScalar_every);
+    }
+  }
+    
   /* re-parse the 'outScalar_vars' parameter if it was changed */
   times_set = CCTK_ParameterQueryTimesSet ("outScalar_vars", CCTK_THORNSTRING);
   if (times_set != outScalar_vars_lastset)
@@ -310,6 +321,18 @@ static void CheckSteerableParameters (iobasicGH *myGH)
     CCTK_TraverseString (outScalar_vars, SetOutputFlag, myGH->do_outScalar,
                          CCTK_GROUP_OR_VAR);
 
+    if (CCTK_Equals(newverbose,"full"))
+    {
+      for (i=0;i<CCTK_NumVars();i++)
+      {
+	if (myGH->do_outScalar[i] > 0)
+	{
+	  CCTK_VInfo("IOBasic","Scalar: Output requested for %s",
+		     CCTK_VarName(i));
+	}
+      }
+    }
+
     /* Save the last setting of 'outScalar_vars' parameter */
     outScalar_vars_lastset = times_set;
   }