If the new keyword parameter 'verbose' is set to 'register' then

report the names of all registered variables. Closes PR 1771.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/MoL/trunk@69 578cdeb0-5ea1-4b81-8215-5a3b8777ee0b

1 files changed, 128 insertions, 1 deletions

diff --git a/src/InitialCopy.c b/src/InitialCopy.c
index 4f6f856..733cfa1 100644
--- a/src/InitialCopy.c
+++ b/src/InitialCopy.c
@@ -680,12 +680,14 @@ void MoL_ReportNumberVariables(CCTK_ARGUMENTS)
 
   DECLARE_CCTK_ARGUMENTS;
   DECLARE_CCTK_PARAMETERS;
+
+  CCTK_INT var;
   
   CCTK_VInfo(CCTK_THORNSTRING,
              "The maximum number of evolved variables is %d. "
              "%d are registered.",
              MoL_Num_Evolved_Vars,MoLNumEvolvedVariables);
-  
+
   CCTK_VInfo(CCTK_THORNSTRING,
              "The maximum number of constrained variables is %d. "
              "%d are registered.",
@@ -751,6 +753,131 @@ void MoL_ReportNumberVariables(CCTK_ARGUMENTS)
              "The maximum size of any array variables is %d.",
              MoL_Max_Evolved_Array_Size);
 
+  if (CCTK_Equals(verbose, "register"))
+  {
+
+    if (MoLNumEvolvedVariables)
+    {
+      CCTK_INFO("The evolved variables are:");
+      for (var = 0; var < MoLNumEvolvedVariables; var++)
+      {
+        CCTK_VInfo(CCTK_THORNSTRING,"   %d   :   %s",
+                   var, CCTK_VarName(EvolvedVariableIndex[var]));
+      }
+    }
+
+    if (MoLNumConstrainedVariables)
+    {    
+      CCTK_INFO("The constrained variables are:");
+      for (var = 0; var < MoLNumConstrainedVariables; var++)
+      {
+        CCTK_VInfo(CCTK_THORNSTRING,"   %d   :   %s",
+                   var, CCTK_VarName(ConstrainedVariableIndex[var]));
+      }
+    }
+    
+    if (MoLNumSandRVariables)
+    {
+      CCTK_INFO("The save and restore variables are:");
+      for (var = 0; var < MoLNumSandRVariables; var++)
+      {
+        CCTK_VInfo(CCTK_THORNSTRING,"   %d   :   %s",
+                   var, CCTK_VarName(SandRVariableIndex[var]));
+      }
+    }
+    
+    if (MoLNumEvolvedComplexVariables)
+    {
+      CCTK_INFO("The evolved complex variables are:");
+      for (var = 0; var < MoLNumEvolvedComplexVariables; var++)
+      {
+        CCTK_VInfo(CCTK_THORNSTRING,"   %d   :   %s",
+                   var, CCTK_VarName(EvolvedComplexVariableIndex[var]));
+      }
+    }
+    
+    if (MoLNumConstrainedComplexVariables)
+    {
+      CCTK_INFO("The constrained complex variables are:");
+      for (var = 0; var < MoLNumConstrainedComplexVariables; var++)
+      {
+        CCTK_VInfo(CCTK_THORNSTRING,"   %d   :   %s",
+                   var, CCTK_VarName(ConstrainedComplexVariableIndex[var]));
+      }
+    }
+    
+    if (MoLNumSandRComplexVariables)
+    {
+      CCTK_INFO("The constrained complex variables are:");
+      for (var = 0; var < MoLNumSandRComplexVariables; var++)
+      {
+        CCTK_VInfo(CCTK_THORNSTRING,"   %d   :   %s",
+                   var, CCTK_VarName(SandRComplexVariableIndex[var]));
+      }
+    }
+    
+    if (MoLNumEvolvedArrayVariables)
+    {
+      CCTK_INFO("The evolved array variables are:");
+      for (var = 0; var < MoLNumEvolvedArrayVariables; var++)
+      {
+        CCTK_VInfo(CCTK_THORNSTRING,"   %d   :   %s",
+                   var, CCTK_VarName(EvolvedArrayVariableIndex[var]));
+      }
+    }
+
+    if (MoLNumConstrainedArrayVariables)
+    {    
+      CCTK_INFO("The constrained array variables are:");
+      for (var = 0; var < MoLNumConstrainedArrayVariables; var++)
+      {
+        CCTK_VInfo(CCTK_THORNSTRING,"   %d   :   %s",
+                   var, CCTK_VarName(ConstrainedArrayVariableIndex[var]));
+      }
+    }
+    
+    if (MoLNumSandRArrayVariables)
+    {
+      CCTK_INFO("The save and restore array variables are:");
+      for (var = 0; var < MoLNumSandRArrayVariables; var++)
+      {
+        CCTK_VInfo(CCTK_THORNSTRING,"   %d   :   %s",
+                   var, CCTK_VarName(SandRArrayVariableIndex[var]));
+      }
+    }
+    
+    if (MoLNumEvolvedComplexArrayVariables)
+    {
+      CCTK_INFO("The evolved complex array variables are:");
+      for (var = 0; var < MoLNumEvolvedComplexArrayVariables; var++)
+      {
+        CCTK_VInfo(CCTK_THORNSTRING,"   %d   :   %s",
+                   var, CCTK_VarName(EvolvedComplexArrayVariableIndex[var]));
+      }
+    }
+    
+    if (MoLNumConstrainedComplexArrayVariables)
+    {
+      CCTK_INFO("The constrained complex array variables are:");
+      for (var = 0; var < MoLNumConstrainedComplexArrayVariables; var++)
+      {
+        CCTK_VInfo(CCTK_THORNSTRING,"   %d   :   %s",
+                   var, CCTK_VarName(ConstrainedComplexArrayVariableIndex[var]));
+      }
+    }
+    
+    if (MoLNumSandRComplexArrayVariables)
+    {
+      CCTK_INFO("The constrained complex array variables are:");
+      for (var = 0; var < MoLNumSandRComplexArrayVariables; var++)
+      {
+        CCTK_VInfo(CCTK_THORNSTRING,"   %d   :   %s",
+                   var, CCTK_VarName(SandRComplexArrayVariableIndex[var]));
+      }
+    }
+    
+  }
+
   return;
 }