Adding more output for newverbose parameter on startup/steering:

 - IO method registration
 - Directory used
 - Output every
 - Variables output


git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOASCII/trunk@76 94b1c47f-dcfd-45ef-a468-0854c0e9e350

1 files changed, 30 insertions, 1 deletions

diff --git a/src/Output2D.c b/src/Output2D.c
index a3a497b..c0187e3 100644
--- a/src/Output2D.c
+++ b/src/Output2D.c
@@ -266,10 +266,13 @@ int IOASCII_TriggerOutput2D (cGH *GH, int vindex)
 /* check if steerable parameters have changed */
 static void CheckSteerableParameters (asciiioGH *myGH)
 {
-  DECLARE_CCTK_PARAMETERS
+  int i;
+  int out_old;
   int times_set;
   static int out2D_vars_lastset = -1;
+  DECLARE_CCTK_PARAMETERS
 
+  out_old = myGH->out2D_every;
 
   /* How often to output */
   myGH->out2D_every = out_every > 0 ? out_every : -1;
@@ -278,6 +281,19 @@ static void CheckSteerableParameters (asciiioGH *myGH)
     myGH->out2D_every = out2D_every;
   }
 
+  /* Report if frequency changed */
+
+  if (myGH->out2D_every != out_old)
+  {
+    if (CCTK_Equals (newverbose, "standard") ||
+        CCTK_Equals (newverbose, "full"))
+    {
+      CCTK_VInfo (CCTK_THORNSTRING, "IOASCII_2D: Output every %d iterations",
+                  myGH->out2D_every);
+    }
+    out_old = myGH->out2D_every;
+  }
+
   /* re-parse the 'out2D_vars' parameter if it was changed */
   times_set = CCTK_ParameterQueryTimesSet ("out2D_vars", CCTK_THORNSTRING);
   if (times_set != out2D_vars_lastset) 
@@ -286,6 +302,19 @@ static void CheckSteerableParameters (asciiioGH *myGH)
     CCTK_TraverseString (out2D_vars, SetOutputFlag, myGH->do_out2D,
                          CCTK_GROUP_OR_VAR);
 
+    if (CCTK_Equals (newverbose, "standard") ||
+        CCTK_Equals (newverbose, "full"))
+    {
+      for (i=0;i<CCTK_NumVars();i++)
+      {
+	if (myGH->do_out2D[i])
+	{
+	  CCTK_VInfo (CCTK_THORNSTRING, "IOASCII_2D: Output requested for %s",
+		      CCTK_FullName(i));
+	}
+      }
+    }    
+
     /* Save the last setting of 'out2D_vars' parameter */
     out2D_vars_lastset = times_set;
   }