From 71942a762f8d76db2bcb6dc4dc82be182c91a457 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Tue, 21 Sep 2004 16:13:00 +0000 Subject: Minor cleanup in regridding test case darcs-hash:20040921161310-891bb-8c74e61f74c1641fff4e3ca3c665af9bda2487a7.gz --- CarpetExtra/CarpetRegridTest/src/SetupGaussian.c | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'CarpetExtra/CarpetRegridTest') diff --git a/CarpetExtra/CarpetRegridTest/src/SetupGaussian.c b/CarpetExtra/CarpetRegridTest/src/SetupGaussian.c index f709d7549..dbac5a897 100644 --- a/CarpetExtra/CarpetRegridTest/src/SetupGaussian.c +++ b/CarpetExtra/CarpetRegridTest/src/SetupGaussian.c @@ -29,11 +29,7 @@ void CarpetRegrid_SetupGaussian(CCTK_ARGUMENTS) { index = CCTK_GFINDEX3D(cctkGH,i,j,k); - X = x[index]; - Y = y[index]; - Z = z[index]; - - R = sqrt(X*X + Y*Y + Z*Z); + R = r[index]; phi[index] = amplitude*exp( - pow( (R - radius) / sigma, 2.0 ) ); -- cgit v1.2.3