diff options
-rw-r--r-- | param.ccl | 8 | ||||
-rw-r--r-- | src/InitialCopy.c | 129 |
2 files changed, 136 insertions, 1 deletions
@@ -129,3 +129,11 @@ BOOLEAN MoL_NaN_Check "Should the RHS GFs be checked for NaNs?" BOOLEAN disable_prolongation "If Mesh refinement is enabled should we use buffer zones in intermediate steps?" { } "yes" + +KEYWORD verbose "How verbose should MoL be?" +{ + "none" :: "No output at all (not implemented)" + "normal" :: "Standard verbosity" + "register" :: "List the variables registered as well" + "extreme" :: "Everything you never wanted to know" +} "normal" 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; } |