diff --git a/sources/io.F90 b/sources/io.F90 index 74c9c51..9bd881d 100644 --- a/sources/io.F90 +++ b/sources/io.F90 @@ -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