Add a new function CCTK_MaxGFDim to the flesh which returns the

(maximum) dimension of all grid functions.

Cactus can currently not handle the case where one uses grid arrays of
dimension D while grid functions have a dimension less than D.  During
initialisation, Cactus sets cctk_dim to the largest dimension of all
grid variables in all active thorns.  This is arguably wrong; cctk_dim
should be set to the (maximum) dimension of the grid functions.

This patch adds a new function CCTK_MaxGFDim to the flesh which
returns the (maximum) dimension of all grid functions.  This function
is used to set cctk_dim.


git-svn-id: http://svn.cactuscode.org/flesh/trunk@4476 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 27 insertions, 0 deletions

diff --git a/src/main/Groups.c b/src/main/Groups.c
index 7596dcb8..40d80a29 100644
--- a/src/main/Groups.c
+++ b/src/main/Groups.c
@@ -82,6 +82,8 @@ void CCTK_FCALL CCTK_FNAME (CCTK_ImpFromVarI)
                            (int *nchars, int *var, ONE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (CCTK_MaxDim)
                            (int *dim);
+void CCTK_FCALL CCTK_FNAME (CCTK_MaxGFDim)
+                           (int *dim);
 void CCTK_FCALL CCTK_FNAME (CCTK_MaxTimeLevels)
                            (int *num, ONE_FORTSTRING_ARG);
 void CCTK_FCALL CCTK_FNAME (CCTK_MaxTimeLevelsGI)
@@ -454,6 +456,31 @@ void CCTK_FCALL CCTK_FNAME (CCTK_MaxDim)
 
 
  /*@@
+   @routine    CCTK_MaxGFDim
+   @date       2008-03-19
+   @author     Erik Schnetter
+   @desc
+               Gets the maximum dimension of all grid function groups.
+   @enddesc
+
+   @returntype int
+   @returndesc
+               the maximum dimension of all grid function groups
+   @endreturndesc
+@@*/
+int CCTK_MaxGFDim (void)
+{
+  return (gfdim);
+}
+
+void CCTK_FCALL CCTK_FNAME (CCTK_MaxGFDim)
+                           (int *dim)
+{
+  *dim = CCTK_MaxGFDim ();
+}
+
+
+ /*@@
    @routine    CCTK_NumVars
    @date       Mon Feb  8 12:04:50 1999
    @author     Tom Goodale