Add new aliased function MoLNumIntegratorSubsteps, which returns the

number of stusteps that the time integrator performs for one time
step.

This information can e.g. used to automatically calculate the
necessary number of buffer zones for mesh refinement.


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

2 files changed, 31 insertions, 0 deletions

diff --git a/interface.ccl b/interface.ccl
index d6ba960..56f4681 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -35,6 +35,7 @@ CCTK_INT FUNCTION MoLChangeToConstrained(CCTK_INT IN ConstrainedIndex)
 CCTK_INT FUNCTION MoLChangeToSaveAndRestore(CCTK_INT IN SandRIndex)
 CCTK_INT FUNCTION MoLChangeToNone(CCTK_INT IN RemoveIndex)
 CCTK_INT FUNCTION MoLQueryEvolvedRHS(CCTK_INT IN EvolvedIndex)
+CCTK_INT FUNCTION MoLNumIntegratorSubsteps()
 
 PROVIDES FUNCTION MoLRegisterEvolved WITH MoL_RegisterEvolved LANGUAGE C
 PROVIDES FUNCTION MoLRegisterConstrained WITH MoL_RegisterConstrained \
@@ -54,6 +55,8 @@ PROVIDES FUNCTION MoLChangeToSaveAndRestore WITH MoL_ChangeToSaveAndRestore \
                   LANGUAGE C
 PROVIDES FUNCTION MoLChangeToNone WITH MoL_ChangeToNone LANGUAGE C
 PROVIDES FUNCTION MoLQueryEvolvedRHS WITH MoL_QueryEvolvedRHS LANGUAGE C
+PROVIDES FUNCTION MoLNumIntegratorSubsteps WITH MoL_NumIntegratorSubsteps \
+                  LANGUAGE C
 
 ################################################################
 ### Aliased registration and type changing functions for the ###
diff --git a/src/Registration.c b/src/Registration.c
index 8dd4a16..c63fbb2 100644
--- a/src/Registration.c
+++ b/src/Registration.c
@@ -110,6 +110,8 @@ CCTK_INT MoL_RegisterConstrainedComplexArrayGroup(CCTK_INT ConstrainedGroupIndex
 CCTK_INT MoL_RegisterSaveAndRestoreComplexArrayGroup(CCTK_INT SandRGroupIndex);
  
 CCTK_INT MoL_QueryEvolvedRHS(CCTK_INT EvolvedIndex);
+ 
+CCTK_INT MoL_NumIntegratorSubsteps(void);
 
 /********************************************************************
  *********************     Local Data   *****************************
@@ -2771,6 +2773,32 @@ CCTK_INT MoL_QueryEvolvedRHS(CCTK_INT EvolvedIndex)
 
 }
 
+
+
+ /*@@
+   @routine    MoL_NumIntegratorSubsteps
+   @date       2007-05-23
+   @author     Erik Schnetter
+   @desc 
+   Return how many time integrator substeps there are.
+   @enddesc 
+   @calls     
+   @calledby   
+   @history 
+ 
+   @endhistory 
+
+@@*/
+
+CCTK_INT MoL_NumIntegratorSubsteps (void)
+{
+  DECLARE_CCTK_PARAMETERS;
+
+  return MoL_Intermediate_Steps;
+}
+
+
+
 /*
   Old function names. Just calls the new version. 
   Included for compatibility