Skip to content

Commit

Permalink
Bugfix: Checksum the unmasked depth
Browse files Browse the repository at this point in the history
  • Loading branch information
marshallward committed Apr 25, 2019
1 parent 9a1422f commit 0b33904
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/diagnostics/MOM_sum_output.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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(:,:))

Expand Down

0 comments on commit 0b33904

Please sign in to comment.