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, 23 insertions, 1 deletions

diff --git a/src/OutputInfo.c b/src/OutputInfo.c
index 224c60b..2d763e6 100644
--- a/src/OutputInfo.c
+++ b/src/OutputInfo.c
@@ -74,6 +74,7 @@ int IOBasic_OutputInfoGH (cGH *GH)
   int ierr1;
   int ierr2;
   int times_set;
+  int out_old;
   const char *vname;
   iobasicGH  *myGH;
   char ll[80], l1[1024], l2[1024], l3[1024];
@@ -83,12 +84,21 @@ int IOBasic_OutputInfoGH (cGH *GH)
   myGH = (iobasicGH *) CCTK_GHExtension (GH, "IOBasic");
 
   /* How often to output */
+  out_old = myGH->outInfo_every;
   myGH->outInfo_every  = out_every > 0 ? out_every : -1;
   if (outInfo_every > 0)
   {
     myGH->outInfo_every = outInfo_every;
   }
-
+  if (myGH->outInfo_every != out_old)
+  {
+    if (CCTK_Equals(newverbose,"standard") || CCTK_Equals(newverbose,"full"))
+    {
+      CCTK_VInfo("IOBasic","Info: Output every %d iterations",
+		 myGH->outInfo_every);
+    }
+  }
+    
   /* Return if no output is required */
   if (myGH->outInfo_every < 1 || 
       GH->cctk_iteration % myGH->outInfo_every != 0)
@@ -105,6 +115,18 @@ int IOBasic_OutputInfoGH (cGH *GH)
     CCTK_TraverseString (outInfo_vars, SetOutputFlag, myGH->do_outInfo,
                          CCTK_GROUP_OR_VAR);
 
+    if (CCTK_Equals(newverbose,"full"))
+    {
+      for (i=0;i<CCTK_NumVars();i++)
+      {
+	if (myGH->do_outInfo[i] > 0)
+	{
+	  CCTK_VInfo("IOBasic","Info: Output requested for %s",
+		     CCTK_VarName(i));
+	}
+      }
+    }
+
     /* Save the last setting of 'outInfo_vars' parameter */
     outInfo_vars_lastset = times_set;