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

Philippe 07/02/2024: IO: add attributes in written netCDF files for...

Philippe 07/02/2024: IO: add attributes in written netCDF files for compression and float precision reduction
parent fda3b312
No related branches found
No related tags found
No related merge requests found
......@@ -2395,6 +2395,33 @@ IF (TPFILE%LMASTER) THEN
istatus = NF90_PUT_ATT( tpfile%nncid, NF90_GLOBAL, 'MNH_REDUCE_DIMENSIONS_IN_FILES', '0')
endif
! Add attributes for compression and float precision reduction
#if (MNH_REAL == 4)
ISTATUS = NF90_PUT_ATT( TPFILE%NNCID, NF90_GLOBAL, 'MNH_REDUCE_FLOAT_PRECISION', '0' )
#else
IF ( TPFILE%LNCREDUCE_FLOAT_PRECISION ) THEN
ISTATUS = NF90_PUT_ATT( TPFILE%NNCID, NF90_GLOBAL, 'MNH_REDUCE_FLOAT_PRECISION', '1' )
ELSE
ISTATUS = NF90_PUT_ATT (TPFILE%NNCID, NF90_GLOBAL, 'MNH_REDUCE_FLOAT_PRECISION', '0' )
END IF
#endif
IF ( ISTATUS /= NF90_NOERR ) &
CALL IO_Err_handle_nc4( istatus, 'IO_FILE_WRITE_HEADER', 'NF90_PUT_ATT', 'MNH_REDUCE_FLOAT_PRECISION' )
IF ( TPFILE%LNCCOMPRESS ) THEN
ISTATUS = NF90_PUT_ATT( TPFILE%NNCID, NF90_GLOBAL, 'MNH_COMPRESS', '1' )
ELSE
ISTATUS = NF90_PUT_ATT( TPFILE%NNCID, NF90_GLOBAL, 'MNH_COMPRESS', '0' )
END IF
IF ( ISTATUS /= NF90_NOERR ) CALL IO_Err_handle_nc4( istatus, 'IO_FILE_WRITE_HEADER', 'NF90_PUT_ATT', 'MNH_COMPRESS' )
IF ( TPFILE%LNCCOMPRESS_LOSSY ) THEN
ISTATUS = NF90_PUT_ATT( TPFILE%NNCID, NF90_GLOBAL, 'MNH_COMPRESS_LOSSY', '1' )
ELSE
ISTATUS = NF90_PUT_ATT( TPFILE%NNCID, NF90_GLOBAL, 'MNH_COMPRESS_LOSSY', '0' )
END IF
IF ( ISTATUS /= NF90_NOERR ) CALL IO_Err_handle_nc4( istatus, 'IO_FILE_WRITE_HEADER', 'NF90_PUT_ATT', 'MNH_COMPRESS_LOSSY' )
!title
!history
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment