Skip to content

Commit

Permalink
Merge branch 'dev/gfdl' into popcnt
Browse files Browse the repository at this point in the history
  • Loading branch information
adcroft authored Oct 1, 2019
2 parents b6dfa49 + 3418c1d commit e62524b
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 3 deletions.
4 changes: 2 additions & 2 deletions .testing/Makefile
Original file line number Diff line number Diff line change
Expand Up @@ -181,7 +181,7 @@ define CMP_RULE

.PRECIOUS: $(foreach b,$(2),results/%/chksum_diag.$(b))
%.$(1).diag: $(foreach b,$(2),results/%/chksum_diag.$(b))
cmp $$^ || true
cmp $$^
endef

$(eval $(call CMP_RULE,regression,symmetric target))
Expand Down Expand Up @@ -255,7 +255,7 @@ results/%/ocean.stats.restart: ../build/symmetric/MOM6
rm -rf work/$*/restart
mkdir -p work/$*/restart
cp -rL $*/* work/$*/restart
mkdir work/$*/restart/RESTART
mkdir -p work/$*/restart/RESTART
# Generate the half-period input namelist
# TODO: Assumes runtime set by DAYMAX, will fail if set by input.nml
cd work/$*/restart \
Expand Down
5 changes: 4 additions & 1 deletion src/framework/MOM_checksums.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1822,8 +1822,11 @@ subroutine chk_sum_msg3(fmsg, aMean, aMin, aMax, mesg, iounit)
real, intent(in) :: aMax !< The maximum value of the array
integer, intent(in) :: iounit !< Checksum logger IO unit

! NOTE: We add zero to aMin and aMax to remove any negative zeros.
! This is due to inconsistencies of signed zero in local vs MPI calculations.

if (is_root_pe()) write(iounit, '(A,3(A,ES25.16,1X),A)') &
fmsg, " mean=", aMean, "min=", aMin, "max=", aMax, trim(mesg)
fmsg, " mean=", aMean, "min=", (0. + aMin), "max=", (0. + aMax), trim(mesg)
end subroutine chk_sum_msg3

!> MOM_checksums_init initializes the MOM_checksums module. As it happens, the
Expand Down

0 comments on commit e62524b

Please sign in to comment.