diff options
-rw-r--r-- | interface.ccl | 2 | ||||
-rw-r--r-- | src/AHFinder_gau.F | 5 |
2 files changed, 3 insertions, 4 deletions
diff --git a/interface.ccl b/interface.ccl index 89afd9f..08fcdd6 100644 --- a/interface.ccl +++ b/interface.ccl @@ -99,7 +99,7 @@ real drift_correct_vars type=SCALAR ahf_centroid_y, ahf_omega_corr, ahf_omega_cum - ahf_radvel_corr, +# ahf_radvel_corr, } "Variables for drift correction" diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index 063dd22..021d612 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -602,7 +602,7 @@ write(0,*) 'AHFinder_gau: xi_drift = ',xi_drift - omega_corr = - drift_correct_factor * xi_drift + omega_corr = - 1.1 * xi_drift . /(dble(ahf_findevery)*cctk_delta_time) omega_cum = omega_cum + omega_corr @@ -629,7 +629,6 @@ ! Do drift correction in the radial direction if (rad_drift_correct.eq.1) then - r_new = sqrt(avgx**2 + avgy**2) if (ahf_ncall.gt.1) then @@ -701,7 +700,7 @@ radvel_corr = radvel_corr_all - ahf_radvel_corr = radvel_corr +! ahf_radvel_corr = radvel_corr if (ahf_ncall.gt.1) then |