From 4e7c6b61bfcf576f9199a0cda9ea4df9eabec21e Mon Sep 17 00:00:00 2001 From: jiandewang Date: Wed, 6 Mar 2024 17:30:17 -0500 Subject: [PATCH] modify MOM_io_file.F90 --- src/framework/MOM_io_file.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/framework/MOM_io_file.F90 b/src/framework/MOM_io_file.F90 index 6eaa10f622..2dfdf6b90e 100644 --- a/src/framework/MOM_io_file.F90 +++ b/src/framework/MOM_io_file.F90 @@ -1696,9 +1696,9 @@ subroutine read_field_chksum_nc(handle, field, chksum, valid_chksum) !< File where field is stored type(MOM_field), intent(in) :: field !< The field whose checksum attribute is to be read - integer(kind=int64), intent(out) :: chksum + integer(kind=int64), intent(out) :: chksum = -1 !< The checksum for the field. - logical, intent(out) :: valid_chksum + logical, intent(out) :: valid_chksum = .false. !< If true, chksum has been successfully read call MOM_error(FATAL, 'read_field_chksum over netCDF is not yet implemented.')