IO: Tune chunking for compressions in store_dataset_h5().

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2021-12-02 09:15:35 -03:00
parent 43ad4a7af3
commit ce1f6cee4a

View File

@ -5344,10 +5344,9 @@ module io
!-------------------------------------------------------------------------------
!
cdims = dims
rank = size(dims)
if (compress) cdims(1) = 1
cdims = dims
if (compress .and. hcformat .eq. H5Z_ZFP) cdims(rank) = 1
call h5screate_simple_f(rank, dims, space_id, status)
if (status /= 0) then