Bug fix for grid point

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@140 6a38eb6e-646e-4a02-a296-d141613ad6c4

1 files changed, 7 insertions, 7 deletions

diff --git a/src/RobinBoundary.c b/src/RobinBoundary.c
index 807c7e7..f19d66c 100644
--- a/src/RobinBoundary.c
+++ b/src/RobinBoundary.c
@@ -289,7 +289,7 @@ int BndRobinVI (cGH *GH,
   else
   {
     CCTK_VWarn (2, __LINE__, __FILE__, CCTK_THORNSTRING,
-                "Invalid variable index %d in BndRobinVI", vi);
+                "BndRobinVI: Invalid variable index %d", vi);
     retval = -1;
   }
 
@@ -490,19 +490,19 @@ void CCTK_FCALL CCTK_FNAME (BndRobinVN)
                                                                               \
   /* now set the boundaries face by face */                                   \
   /* lower x */                                                               \
-  ROBIN_BOUNDARY_3D_TYPED (doBC[0], lsh[1], lsh[2], 1, i, j,                  \
+  ROBIN_BOUNDARY_3D_TYPED (doBC[0], lsh[1], lsh[2], 0, i, j,                  \
                            offset[0], cctk_type);                             \
   /* upper x */                                                               \
   ROBIN_BOUNDARY_3D_TYPED (doBC[1], lsh[1], lsh[2], lsh[0]-1, i, j,           \
                            -offset[0], cctk_type);                            \
   /* lower y */                                                               \
-  ROBIN_BOUNDARY_3D_TYPED (doBC[2], lsh[0], lsh[2], i, 1, j,                  \
+  ROBIN_BOUNDARY_3D_TYPED (doBC[2], lsh[0], lsh[2], i, 0, j,                  \
                            offset[1], cctk_type);                             \
   /* upper y */                                                               \
   ROBIN_BOUNDARY_3D_TYPED (doBC[3], lsh[0], lsh[2], i, lsh[1]-1, j,           \
                            -offset[1], cctk_type);                            \
   /* lower z */                                                               \
-  ROBIN_BOUNDARY_3D_TYPED (doBC[4], lsh[0], lsh[1], i, j, 1,                  \
+  ROBIN_BOUNDARY_3D_TYPED (doBC[4], lsh[0], lsh[1], i, j, 0,                  \
                            offset[2], cctk_type);                             \
   /* upper z */                                                               \
   ROBIN_BOUNDARY_3D_TYPED (doBC[5], lsh[0], lsh[1], i, j, lsh[2]-1,           \
@@ -602,7 +602,7 @@ static int ApplyBndRobin (cGH *GH,
   if (gdim > MAXDIM)
   {
     CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING,
-                "Variable dimension of %d not supported", gdim);
+                "ApplyBndRobin: Variable dimension of %d not supported", gdim);
     return (-1);
   }
 
@@ -617,7 +617,7 @@ static int ApplyBndRobin (cGH *GH,
   {
     if (stencil[i] != 1)
     {
-      CCTK_WARN (1, "Stencil width must be 1 for Robin boundary conditions");
+      CCTK_WARN (1, "ApplyBndRobin: Stencil width must be 1 for Robin boundary conditions");
       return (-3);
     }
     offset[i] = i == 0 ? 1 : offset[i-1] * GH->cctk_lsh[i-1];
@@ -704,7 +704,7 @@ static int ApplyBndRobin (cGH *GH,
 
       default:
         CCTK_VWarn (1, __LINE__, __FILE__, CCTK_THORNSTRING,
-                    "Unsupported variable type %d for variable '%s'",
+                    "ApplyBndRobin: Unsupported variable type %d for variable '%s'",
                     CCTK_VarTypeI (var), CCTK_VarName (var));
         return (-4);
     }