diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/RadiationBoundary.c | 9 |
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] */ |