diff options
| -rw-r--r-- | param.ccl | 4 | ||||
| -rw-r--r-- | src/AHFinder_gau.F | 8 |
2 files changed, 6 insertions, 6 deletions
@@ -375,14 +375,14 @@ REAL ahf_minchange "Minimum relative difference between 1 big and 2 small steps" ###################################### ### Parameters related to centroid ### ###################################### -INT which_horizon_to_announce_centroid \ +INT horizon_to_announce_centroid \ "For which horizon should we announce the centroid to driftcorrect" { 0 :: "don't announce the centroid" 1:3 :: "announce this horizon's centroid each time we find it" } 0 -INT which_horizon_to_output_centroid \ +INT horizon_to_output_centroid \ "For which horizon should we output the centroid" { 0 :: "don't output any centroids" diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index 5de6103..3785e6d 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -659,8 +659,8 @@ call CCTK_WARN(1,"Reduction failed!") end if - if ( ( which_horizon_to_announce_centroid .gt. 0 ) .and. - . ( which_horizon_to_announce_centroid .eq. mfind ) ) then + if ( ( horizon_to_announce_centroid .gt. 0 ) .and. + . ( horizon_to_announce_centroid .eq. mfind ) ) then call CCTK_IsFunctionAliased(ierror, . "SetDriftCorrectPosition") @@ -672,8 +672,8 @@ end if end if - if ( ( which_horizon_to_output_centroid .gt. 0 ) .and. - . ( which_horizon_to_output_centroid .eq. mfind ) ) then + if ( ( horizon_to_output_centroid .gt. 0 ) .and. + . ( horizon_to_output_centroid .eq. mfind ) ) then ahf_centroid_x = rahf_centroid(1) ahf_centroid_y = rahf_centroid(2) |