IO: XDMF works only with deflate or uncompressed HDF5 files.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2021-12-03 11:55:30 -03:00
parent fcce326245
commit c5d65de44c

View File

@ -110,7 +110,7 @@ module io
#ifdef HDF5
! a flag to determine if XDMF files should be generated
!
logical , save :: with_xdmf = .false.
logical , save :: with_xdmf = .false.
#endif /* HDF5 */
! the compression format and level of the XML+binary files
@ -347,6 +347,7 @@ module io
call print_message(loc, &
"Could not check if the filter is available!")
end if
with_xdmf = .false.
case("zstd", "zstandard")
call h5zfilter_avail_f(H5Z_ZSTANDARD, test, status)
if (status == 0) then
@ -361,6 +362,7 @@ module io
call print_message(loc, &
"Could not check if the filter is available!")
end if
with_xdmf = .false.
case("zfp")
call h5zfilter_avail_f(H5Z_ZFP, test, status)
if (status == 0) then
@ -386,6 +388,7 @@ module io
call print_message(loc, &
"Could not check if the filter is available!")
end if
with_xdmf = .false.
case default
end select