Skip to content
Snippets Groups Projects
Commit c6b539c4 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 23/10/2024: OUTPUTS: disable lossy compression if algorithm is NONE

parent 9f58bf57
No related branches found
No related tags found
No related merge requests found
...@@ -1529,7 +1529,10 @@ SELECT CASE(TPFILE%CTYPE) ...@@ -1529,7 +1529,10 @@ SELECT CASE(TPFILE%CTYPE)
!Set lossy compression !Set lossy compression
TPFILE%LNCCOMPRESS_LOSSY = LOUT_COMPRESS_LOSSY(IMI) TPFILE%LNCCOMPRESS_LOSSY = LOUT_COMPRESS_LOSSY(IMI)
IF ( LOUT_COMPRESS_LOSSY(IMI) ) THEN IF ( UPCASE( COUT_COMPRESS_LOSSY_ALGO(IMI) ) == 'NONE' ) THEN
! Disable lossy compression if algorithm is 'NONE'
TPFILE%LNCCOMPRESS_LOSSY = .FALSE.
ELSE IF ( LOUT_COMPRESS_LOSSY(IMI) ) THEN
!Force compression if lossy compression is enabled !Force compression if lossy compression is enabled
TPFILE%LNCCOMPRESS = .TRUE. TPFILE%LNCCOMPRESS = .TRUE.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment