diff options
| author | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 1999-11-01 09:30:25 +0000 |
|---|---|---|
| committer | allen <allen@6a38eb6e-646e-4a02-a296-d141613ad6c4> | 1999-11-01 09:30:25 +0000 |
| commit | d3cbfb3465499a70bced678c5e5a4f963d03b4d0 (patch) | |
| tree | 451a4f2bec0e001e7ddf6bdd3976243572b74328 /src/RadiationBoundary.c | |
| parent | d68ae08319a5fb80ce681aa5518db167df752d3d (diff) | |
Tidying
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Boundary/trunk@58 6a38eb6e-646e-4a02-a296-d141613ad6c4
Diffstat (limited to 'src/RadiationBoundary.c')
| -rw-r--r-- | src/RadiationBoundary.c | 33 |
1 files changed, 20 insertions, 13 deletions
diff --git a/src/RadiationBoundary.c b/src/RadiationBoundary.c index 2a10750..88df78c 100644 --- a/src/RadiationBoundary.c +++ b/src/RadiationBoundary.c @@ -77,12 +77,21 @@ x(xgp0) #define SQR(a) ((a)*(a)) -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) { - - int cartoon = 0; +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) +{ int nx,ny,nz,i,j,k; CCTK_REAL dtv,dth; @@ -91,16 +100,14 @@ void RadiativeBCi(cGH *GH, int *sw, int *doBC, int *lsh, CCTK_REAL half,one,two; /* Linear grid point index, used to access the 0th/1st gridpoint away - from the BC in the calculation. In Fortran, eg. x(1,:,:) becomes -x[xgp0], - x(2,:,:) --> x[xgp1], where xgp0/1 are calculated with -CCTK_GFINDEX3D */ + from the BC in the calculation. + In Fortran, + x(1,:,:) --> x[xgp0], + x(2,:,:) --> x[xgp1], + where xgp0/1 are calculated with CCTK_GFINDEX3D */ int xgp0,xgp1,ygp0,ygp1,zgp0,zgp1; - /* For initial data, don't do anything */ - - /* Grid parameters. */ nx = lsh[0]; |