diff options
-rw-r--r-- | CarpetExtra/CarpetRegridTest/interface.ccl | 7 | ||||
-rw-r--r-- | CarpetExtra/CarpetRegridTest/src/SetupGaussian.c | 5 | ||||
-rw-r--r-- | CarpetExtra/CarpetRegridTest/src/TestGaussian.c | 7 |
3 files changed, 8 insertions, 11 deletions
diff --git a/CarpetExtra/CarpetRegridTest/interface.ccl b/CarpetExtra/CarpetRegridTest/interface.ccl index 12ab83a3f..115b123f4 100644 --- a/CarpetExtra/CarpetRegridTest/interface.ccl +++ b/CarpetExtra/CarpetRegridTest/interface.ccl @@ -1,12 +1,11 @@ # Interface definition for thorn CarpetRegridTest -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/CarpetRegridTest/interface.ccl,v 1.3 2004/05/25 15:35:15 schnetter Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/CarpetRegridTest/interface.ccl,v 1.1 2004/05/23 15:56:14 cott Exp $ implements: CarpetRegridTest inherits: grid -#tags='Prolongation="ENO"' -CCTK_REAL testscalar type=GF timelevels=3 +CCTK_REAL testscalar type=GF timelevels=3 tags='Prolongation="ENO" { - phi, phi_error, phi_relerror + phi, phi_error } "The test scalar field" diff --git a/CarpetExtra/CarpetRegridTest/src/SetupGaussian.c b/CarpetExtra/CarpetRegridTest/src/SetupGaussian.c index 768656f10..7f0be4e3e 100644 --- a/CarpetExtra/CarpetRegridTest/src/SetupGaussian.c +++ b/CarpetExtra/CarpetRegridTest/src/SetupGaussian.c @@ -1,11 +1,10 @@ -#include <math.h> - #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" -static const char *rcsid = "$Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/CarpetRegridTest/src/SetupGaussian.c,v 1.2 2004/05/27 13:22:49 schnetter Exp $"; +static const char *rcsid = "$Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/CarpetRegridTest/src/SetupGaussian.c,v 1.1 2004/05/23 15:56:14 cott Exp $"; CCTK_FILEVERSION(CarpetExtra_CarpetRegridTest_SetupGaussian_c); diff --git a/CarpetExtra/CarpetRegridTest/src/TestGaussian.c b/CarpetExtra/CarpetRegridTest/src/TestGaussian.c index be786c245..fd68ff223 100644 --- a/CarpetExtra/CarpetRegridTest/src/TestGaussian.c +++ b/CarpetExtra/CarpetRegridTest/src/TestGaussian.c @@ -1,11 +1,10 @@ -#include <math.h> - #include "cctk.h" #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#include "cctk_Functions.h" -static const char *rcsid = "$Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/CarpetRegridTest/src/TestGaussian.c,v 1.3 2004/05/27 13:22:49 schnetter Exp $"; +static const char *rcsid = "$Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/CarpetRegridTest/src/TestGaussian.c,v 1.1 2004/05/23 15:56:14 cott Exp $"; CCTK_FILEVERSION(CarpetExtra_CarpetRegridTest_TestGaussian_c); @@ -35,7 +34,7 @@ void CarpetRegrid_TestGaussian(CCTK_ARGUMENTS) R = sqrt(X*X + Y*Y + Z*Z); phi_error[index] = phi[index] - amplitude*exp( - pow( (R - radius) / sigma, 2.0 ) ); - phi_relerror[index] = phi_error[index] / (amplitude*exp( - pow( (R - radius) / sigma, 2.0 ) ) ); + } } } |