diff options
author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-12-19 08:28:54 +0000 |
---|---|---|
committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-12-19 08:28:54 +0000 |
commit | 2d242b94d8d89316b16a28725d86b6e8f03228b6 (patch) | |
tree | 959314c15e1ca20277e01b1caebaf33ae5c3facb /src/AHFinder.F | |
parent | d70cbffec1f4b09eb85bb3cd50e824ffd2617487 (diff) |
Fixing minor bugs in 2D output of 3-horizon functions ahfgrid3 and ahf_exp3
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@158 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder.F')
-rw-r--r-- | src/AHFinder.F | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/AHFinder.F b/src/AHFinder.F index b3f0297..58a5151 100644 --- a/src/AHFinder.F +++ b/src/AHFinder.F @@ -75,6 +75,7 @@ ! meri_p2 Length of meridian at phi=pi/2. ! ! mtype Type of surface. +! 0. No surface found. ! 1. Integral of H^2 is positive out and negative in. ! 2. Integral of H^2 is negative out and positive in. ! 3. Integral of H^2 is negative out and in. @@ -1301,6 +1302,8 @@ else + mtype = 0 + if (myproc.eq.0) then ! Open logfile. @@ -1551,9 +1554,9 @@ if (find3) then if (mfind.eq.2) then call CCTK_OutputVarAsByMethod(ierror,cctkGH, - . "ahfinder::ahfgrid3","IOFlexIO_2D","ahfgrid") + . "ahfinder::ahfgrid3","IOFlexIO_2D","ahfgrid3") call CCTK_OutputVarAsByMethod(ierror,cctkGH, - . "ahfinder::ahf_exp3","IOFlexIO_2D","ahf_exp") + . "ahfinder::ahf_exp3","IOFlexIO_2D","ahf_exp3") end if else call CCTK_OutputVarAsByMethod(ierror,cctkGH, |