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 /src/AHFinder_gau.F | |
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
Diffstat (limited to 'src/AHFinder_gau.F')
-rw-r--r-- | src/AHFinder_gau.F | 5 |
1 files changed, 2 insertions, 3 deletions
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) |