gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into reconnection

Browse Source
This commit is contained in:
Grzegorz Kowal 2020-08-17 18:36:05 -03:00
commit 806388294a
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
sources/io.F90
View File

@ -188,7 +188,7 @@ module io
! compression type (0 for no compressions, 1 for deflate, 32015 for zstandard) ! compression type (0 for no compressions, 1 for deflate, 32015 for zstandard)
! !
integer , save :: compression = 0 integer , save :: compression = 0, hclevel = 3
! HDF5 property object identifier ! HDF5 property object identifier
! !
@ -435,20 +435,20 @@ module io
! get compression_level ! get compression_level
! !
call get_parameter("compression_level", clevel) call get_parameter("compression_level", hclevel)
! initialize proper compressor ! initialize proper compressor
! !
if (status == 0) then if (status == 0) then
select case(compression) select case(compression)
case(H5Z_ZSTANDARD) case(H5Z_ZSTANDARD)
if (clevel < 1 .or. clevel > 20) clevel = 3 if (hclevel < 1 .or. hclevel > 20) hclevel = 3
cd_values(:) = clevel cd_values(:) = hclevel
call h5pset_filter_f(pid, H5Z_ZSTANDARD, H5Z_FLAG_OPTIONAL_F, & call h5pset_filter_f(pid, H5Z_ZSTANDARD, H5Z_FLAG_OPTIONAL_F, &
cd_nelmts, cd_values, status) cd_nelmts, cd_values, status)
case(H5Z_DEFLATE) case(H5Z_DEFLATE)
if (clevel < 1 .or. clevel > 9) clevel = 6 if (hclevel < 1 .or. hclevel > 9) hclevel = 6
call h5pset_deflate_f(pid, clevel, status) call h5pset_deflate_f(pid, hclevel, status)
case default case default
end select end select
end if end if
@ -619,10 +619,10 @@ module io
select case(compression) select case(compression)
case(H5Z_ZSTANDARD) case(H5Z_ZSTANDARD)
call print_parameter(verbose, "HDF5 compression" , "zstd" ) call print_parameter(verbose, "HDF5 compression" , "zstd" )
call print_parameter(verbose, "compression level", clevel ) call print_parameter(verbose, "compression level", hclevel )
case(H5Z_DEFLATE) case(H5Z_DEFLATE)
call print_parameter(verbose, "HDF5 compression" , "deflate") call print_parameter(verbose, "HDF5 compression" , "deflate")
call print_parameter(verbose, "compression level", clevel ) call print_parameter(verbose, "compression level", hclevel )
case default case default
call print_parameter(verbose, "HDF5 compression" , "none" ) call print_parameter(verbose, "HDF5 compression" , "none" )
end select end select