From 9d09de2a5f5938566aef5a2e0fa481ae8a38c745 Mon Sep 17 00:00:00 2001
From: tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c>
Date: Tue, 11 Sep 2001 22:01:48 +0000
Subject: Output AHFinder data in HDF5 file format only if
 AHFinder::ahf_HDF5output = "yes".

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@244 89daf98e-ef62-4674-b946-b8ff9de2216c
---
 src/AHFinder_output.F | 32 ++++++--------------------------
 1 file changed, 6 insertions(+), 26 deletions(-)

diff --git a/src/AHFinder_output.F b/src/AHFinder_output.F
index cb3d648..b7d12fa 100644
--- a/src/AHFinder_output.F
+++ b/src/AHFinder_output.F
@@ -90,19 +90,6 @@
       end if
 
 
-!     ***********************************************
-!     ***   ENABLE STORAGE FOR OUTPUT VARIABLES   ***
-!     ***********************************************
-
-#if 0
-      call CCTK_EnableGroupStorage(ierror, cctkGH, "ahfinder::out_scalars")
-      if (lmax .gt. 0) then
-        call CCTK_EnableGroupStorage(ierror, cctkGH, "ahfinder::out_1d_legen")
-        call CCTK_EnableGroupStorage(ierror, cctkGH, "ahfinder::out_2d_legen")
-      end if
-#endif
-
-
 !     **************************************************
 !     ***   OUTPUT ASCII DATA ONLY ON PROCESSOR 0    ***
 !     **************************************************
@@ -387,19 +374,12 @@
          options = options(1:24) // " horizon=0"
       end if
 
-      call CCTK_OutputVarByMethod (ierror, cctkGH, options, "IOAHFinderHDF5")
-
-
-!     ************************************************
-!     ***   DISABLE STORAGE FOR OUTPUT VARIABLES   ***
-!     ************************************************
-
-#if 0
-      call CCTK_DisableGroupStorage(ierror, cctkGH, "ahfinder::out_scalars")
-      if (lmax .gt. 0) then
-        call CCTK_DisableGroupStorage(ierror, cctkGH, "ahfinder::out_1d_legen")
-        call CCTK_DisableGroupStorage(ierror, cctkGH, "ahfinder::out_2d_legen")
+      if (ahf_HDF5output.ne.0) then
+        call CCTK_OutputVarByMethod (ierror, cctkGH, options, "IOAHFinderHDF5")
+        if (ierror .ne. 0) then
+           call CCTK_WARN (1, 'Error calling I/O method "IOAHFinderHDF5" (I/O method not activated ?)')
+        end if
       end if
-#endif
+
 
       end subroutine AHFinder_Output
-- 
cgit v1.2.3