mom_checksums::chk_sum_msg Interface Reference

Detailed Description

Write a message with either checksums or numerical statistics of arrays.

Definition at line 69 of file MOM_checksums.F90.

Private functions
subroutine	chk_sum_msg1 (fmsg, bc0, mesg, iounit)
	Write a message including the checksum of the non-shifted array. More...
subroutine	chk_sum_msg2 (fmsg, bc0, bcSW, mesg, iounit)
	Write a message including checksums of non-shifted and southwestward shifted arrays. More...
subroutine	chk_sum_msg3 (fmsg, aMean, aMin, aMax, mesg, iounit)
	Write a message including the global mean, maximum and minimum of an array. More...
subroutine	chk_sum_msg5 (fmsg, bc0, bcSW, bcSE, bcNW, bcNE, mesg, iounit)
	Write a message including checksums of non-shifted and diagonally shifted arrays. More...

Detailed Description

Write a message with either checksums or numerical statistics of arrays.

Definition at line 69 of file MOM_checksums.F90.

Functions and subroutines

chk_sum_msg1()

subroutine mom_checksums::chk_sum_msg::chk_sum_msg1 ( character(len=*), intent(in)  fmsg, integer, intent(in)  bc0, character(len=*), intent(in)  mesg, integer, intent(in)  iounit  )

private

Write a message including the checksum of the non-shifted array.

Parameters

[in]	fmsg	A checksum code-location specific preamble
[in]	mesg	An identifying message supplied by top-level caller
[in]	bc0	The bitcount of the non-shifted array
[in]	iounit	Checksum logger IO unit

Definition at line 2077 of file MOM_checksums.F90.

  character(len=*), intent(in) :: fmsg !< A checksum code-location specific preamble
  character(len=*), intent(in) :: mesg !< An identifying message supplied by top-level caller
  integer,          intent(in) :: bc0  !< The bitcount of the non-shifted array
  integer,          intent(in) :: iounit !< Checksum logger IO unit

  if (is_root_pe()) &
    write(iounit, '(A,1(A,I10,X),A)') fmsg, " c=", bc0, trim(mesg)

chk_sum_msg2()

subroutine mom_checksums::chk_sum_msg::chk_sum_msg2 ( character(len=*), intent(in)  fmsg, integer, intent(in)  bc0, integer, intent(in)  bcSW, character(len=*), intent(in)  mesg, integer, intent(in)  iounit  )

private

Write a message including checksums of non-shifted and southwestward shifted arrays.

Parameters

[in]	fmsg	A checksum code-location specific preamble
[in]	mesg	An identifying message supplied by top-level caller
[in]	bc0	The bitcount of the non-shifted array
[in]	bcsw	The bitcount of the southwest-shifted array
[in]	iounit	Checksum logger IO unit

Definition at line 2142 of file MOM_checksums.F90.

  character(len=*), intent(in) :: fmsg !< A checksum code-location specific preamble
  character(len=*), intent(in) :: mesg !< An identifying message supplied by top-level caller
  integer,          intent(in) :: bc0  !< The bitcount of the non-shifted array
  integer,          intent(in) :: bcsw !< The bitcount of the southwest-shifted array
  integer,          intent(in) :: iounit !< Checksum logger IO unit

  if (is_root_pe()) write(iounit, '(A,2(A,I9,1X),A)') &
    fmsg, " c=", bc0, "s/w=", bcsw, trim(mesg)

chk_sum_msg3()

subroutine mom_checksums::chk_sum_msg::chk_sum_msg3 ( character(len=*), intent(in)  fmsg, real, intent(in)  aMean, real, intent(in)  aMin, real, intent(in)  aMax, character(len=*), intent(in)  mesg, integer, intent(in)  iounit  )

private

Write a message including the global mean, maximum and minimum of an array.

Parameters

[in]	fmsg	A checksum code-location specific preamble
[in]	mesg	An identifying message supplied by top-level caller
[in]	amean	The mean value of the array
[in]	amin	The minimum value of the array
[in]	amax	The maximum value of the array
[in]	iounit	Checksum logger IO unit

Definition at line 2154 of file MOM_checksums.F90.

  character(len=*), intent(in) :: fmsg !< A checksum code-location specific preamble
  character(len=*), intent(in) :: mesg !< An identifying message supplied by top-level caller
  real,             intent(in) :: amean !< The mean value of the array
  real,             intent(in) :: amin !< The minimum value of the array
  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=", (0. + amin), "max=", (0. + amax), trim(mesg)

chk_sum_msg5()

subroutine mom_checksums::chk_sum_msg::chk_sum_msg5 ( character(len=*), intent(in)  fmsg, integer, intent(in)  bc0, integer, intent(in)  bcSW, integer, intent(in)  bcSE, integer, intent(in)  bcNW, integer, intent(in)  bcNE, character(len=*), intent(in)  mesg, integer, intent(in)  iounit  )

private

Write a message including checksums of non-shifted and diagonally shifted arrays.

Parameters

[in]	fmsg	A checksum code-location specific preamble
[in]	mesg	An identifying message supplied by top-level caller
[in]	bc0	The bitcount of the non-shifted array
[in]	bcsw	The bitcount for SW shifted array
[in]	bcse	The bitcount for SE shifted array
[in]	bcnw	The bitcount for NW shifted array
[in]	bcne	The bitcount for NE shifted array
[in]	iounit	Checksum logger IO unit

Definition at line 2088 of file MOM_checksums.F90.

  character(len=*), intent(in) :: fmsg !< A checksum code-location specific preamble
  character(len=*), intent(in) :: mesg !< An identifying message supplied by top-level caller
  integer,          intent(in) :: bc0  !< The bitcount of the non-shifted array
  integer,          intent(in) :: bcsw !< The bitcount for SW shifted array
  integer,          intent(in) :: bcse !< The bitcount for SE shifted array
  integer,          intent(in) :: bcnw !< The bitcount for NW shifted array
  integer,          intent(in) :: bcne !< The bitcount for NE shifted array
  integer,          intent(in) :: iounit !< Checksum logger IO unit

  if (is_root_pe()) write(iounit, '(A,5(A,I10,1X),A)') &
    fmsg, " c=", bc0, "sw=", bcsw, "se=", bcse, "nw=", bcnw, "ne=", bcne, trim(mesg)

---

The documentation for this interface was generated from the following file:

• /home/cermak/src/MOM6.devrob/src/framework/MOM_checksums.F90