diff options
| author | lanfer <lanfer@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 1999-10-19 13:33:23 +0000 |
|---|---|---|
| committer | lanfer <lanfer@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 1999-10-19 13:33:23 +0000 |
| commit | 1f205c250c56335cf873963d88d234b8409ee01f (patch) | |
| tree | 86c9cc8d778ad7412ff061c1c9ed758c1c207f95 /src/RadiationBoundary.c | |
| parent | 3e6556a428ec845c815cc9354f90fda4b3330649 (diff) | |
bug fixes
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@44 6a38eb6e-646e-4a02-a296-d141613ad6c4
Diffstat (limited to 'src/RadiationBoundary.c')
| -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] */ |