From 0b33904ebd015aac1478c816437f95412c2fb632 Mon Sep 17 00:00:00 2001 From: Marshall Ward Date: Thu, 25 Apr 2019 17:07:40 -0400 Subject: [PATCH] Bugfix: Checksum the unmasked depth --- src/diagnostics/MOM_sum_output.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/diagnostics/MOM_sum_output.F90 b/src/diagnostics/MOM_sum_output.F90 index 548e34434a..eb4214ea10 100644 --- a/src/diagnostics/MOM_sum_output.F90 +++ b/src/diagnostics/MOM_sum_output.F90 @@ -1482,7 +1482,7 @@ subroutine get_depth_list_checksums(G, depth_chksum, area_chksum) ! Depth checksum do j=G%jsc,G%jec ; do i=G%isc,G%iec - field(i,j) = G%mask2dT(i,j) * G%bathyT(i,j) + field(i,j) = G%bathyT(i,j) enddo ; enddo write(depth_chksum, '(Z16)') mpp_chksum(field(:,:))