diff options
| author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-09-11 22:01:48 +0000 |
|---|---|---|
| committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-09-11 22:01:48 +0000 |
| commit | 9d09de2a5f5938566aef5a2e0fa481ae8a38c745 (patch) | |
| tree | e823dd06da3f7c7aa0d1b32f297a3df74b749e30 | |
| parent | b98291cfaed8e0d08811a56276ae00fa158844c6 (diff) | |
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
| -rw-r--r-- | src/AHFinder_output.F | 32 |
1 files 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 |