diff options
author | shawley <shawley@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-02-28 13:39:13 +0000 |
---|---|---|
committer | shawley <shawley@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2002-02-28 13:39:13 +0000 |
commit | cdce31a340088a1a3efbf2856ebdf03b1192a2ba (patch) | |
tree | fecf8f2fa7631c39bd4e405ce4d1e7cf27efe352 | |
parent | 3e844e3e61488e794282e2f05732c40ad7fd72f2 (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.ccl | 2 | ||||
-rw-r--r-- | src/AHFinder_gau.F | 5 |
2 files changed, 3 insertions, 4 deletions
@@ -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) |