diff options
Diffstat (limited to 'src/AHFinder.F')
| -rw-r--r-- | src/AHFinder.F | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/AHFinder.F b/src/AHFinder.F index d7aee7b..d55eef1 100644 --- a/src/AHFinder.F +++ b/src/AHFinder.F @@ -7,7 +7,6 @@ c Find an apparent horizon. c @enddesc c@@*/ - #include "cctk.h" #include "cctk_parameters.h" #include "cctk_arguments.h" @@ -596,11 +595,13 @@ c@@*/ xc = zero yc = zero + rmx = min(xmx,zmx-zc,zc-zmn) ! Octant. else if (CCTK_Equals(domain,"octant").eq.1) then + if ((xc.eq.zero).and.(yc.eq.zero).and.(zc.eq.zero)) then rmx = min(xmx,ymx,zmx) else if ((xc.eq.zero).and.(yc.eq.zero)) then |