aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorshawley <shawley@89daf98e-ef62-4674-b946-b8ff9de2216c>2002-02-28 13:39:13 +0000
committershawley <shawley@89daf98e-ef62-4674-b946-b8ff9de2216c>2002-02-28 13:39:13 +0000
commitcdce31a340088a1a3efbf2856ebdf03b1192a2ba (patch)
treefecf8f2fa7631c39bd4e405ce4d1e7cf27efe352
parent3e844e3e61488e794282e2f05732c40ad7fd72f2 (diff)
changed rad_drift_correct to rad_drift_correct_on
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@280 89daf98e-ef62-4674-b946-b8ff9de2216c
-rw-r--r--param.ccl2
-rw-r--r--src/AHFinder_gau.F5
2 files changed, 3 insertions, 4 deletions
diff --git a/param.ccl b/param.ccl
index 604c8c0..06b9779 100644
--- a/param.ccl
+++ b/param.ccl
@@ -79,7 +79,7 @@ REAL drift_correct_factor "Multiplier to use in (angular) drift correction, e.g.
: :: "Just a real number"
} 1.1
-BOOLEAN rad_drift_correct "Apply drift correction in the radial direction" STEERABLE = ALWAYS
+BOOLEAN rad_drift_correct_on "Apply drift correction in the radial direction" STEERABLE = ALWAYS
{
} "no"
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F
index 9a5b58e..222b476 100644
--- a/src/AHFinder_gau.F
+++ b/src/AHFinder_gau.F
@@ -696,8 +696,7 @@
end if
! Do drift correction in the radial direction
-
- if (rad_drift_correct.eq.1) then
+ if (rad_drift_correct_on.eq.1) then
r_new = sqrt(avgx**2 + avgy**2)
@@ -777,7 +776,7 @@
end if
- if (rad_drift_correct.eq.1) then
+ if (rad_drift_correct_on.eq.1) then
call CCTK_ReduceLocalScalar(ierror,cctkGH,-1,sum_handle,
. radvel_corr,radvel_corr_all,CCTK_VARIABLE_REAL)