aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/RadiationBoundary.c9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/RadiationBoundary.c b/src/RadiationBoundary.c
index c65f971..71f02fb 100644
--- a/src/RadiationBoundary.c
+++ b/src/RadiationBoundary.c
@@ -2,7 +2,7 @@
#include "cctk_parameters.h"
/*@@
- @file RadiationBoundary.F
+ @file RadiationBoundary.c
@date Mon Mar 15 15:50:14 1999
@author Gerd Lanfermann
@desc
@@ -71,7 +71,7 @@
#define SQR(a) ((a)*(a))
-void RadiativeBC(cGH *GH, int *doBC, int *sw, int *lsh, int *dxyz, int dt,
+void RadiativeBCi(cGH *GH, int *sw, int *doBC, int *lsh, CCTK_REAL *dxyz, CCTK_REAL dt,
CCTK_REAL *var_n, CCTK_REAL *var_p,
CCTK_REAL *x, CCTK_REAL *y, CCTK_REAL *z, CCTK_REAL *r,
CCTK_REAL var0, CCTK_REAL v0) {
@@ -118,10 +118,9 @@ void RadiativeBC(cGH *GH, int *doBC, int *sw, int *lsh, int *dxyz, int dt,
dth = half*dt;
/* Print warning. */
-
- if ((sw[0]!=1) || (sw[1]!=1) || (sw[2]!=2))
- CCTK_WARN(0,"Radiative BC only with stencil_size=1");
+ if ((sw[0]!=1) || (sw[1]!=1) || (sw[2]!=1))
+ CCTK_WARN(0,"Radiative BC only with stencil_size=1");
/* Lower x-bound: Fortran to C: e.g. x(2,:,:) --> x[xgp2] */