diff options
Diffstat (limited to 'src/AHFinder_output.F')
-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 |