mom_checksums::bchksum_pair Interface Reference

Detailed Description

Definition at line 52 of file MOM_checksums.F90.

Private functions
subroutine	chksum_pair_b_2d (mesg, arrayA, arrayB, HI, haloshift, symmetric, omit_corners, scale)
subroutine	chksum_pair_b_3d (mesg, arrayA, arrayB, HI, haloshift, symmetric, omit_corners, scale)

Functions and subroutines

chksum_pair_b_2d()

subroutine mom_checksums::bchksum_pair::chksum_pair_b_2d ( character(len=*), intent(in)  mesg, real, dimension(hi%isd:,hi%jsd:), intent(in)  arrayA, real, dimension(hi%isd:,hi%jsd:), intent(in)  arrayB, type(hor_index_type), intent(in)  HI, integer, intent(in), optional  haloshift, logical, intent(in), optional  symmetric, logical, intent(in), optional  omit_corners, real, intent(in), optional  scale  )

private

Parameters

[in]	mesg	Identifying messages
[in]	hi	A horizontal index type
[in]	arrayb	The arrays to be checksummed
[in]	symmetric	If true, do the checksums on the full symmetric computational domain.
[in]	haloshift	The width of halos to check (default 0)
[in]	omit_corners	If true, avoid checking diagonal shifts
[in]	scale	A scaling factor for this array.

Definition at line 236 of file MOM_checksums.F90.

  character(len=*),                 intent(in) :: mesg   !< Identifying messages
  type(hor_index_type),             intent(in) :: hi     !< A horizontal index type
  real, dimension(HI%isd:,HI%jsd:), intent(in) :: arraya, arrayb !< The arrays to be checksummed
  logical,                optional, intent(in) :: symmetric !< If true, do the checksums on the full symmetric computational domain.
  integer,                optional, intent(in) :: haloshift !< The width of halos to check (default 0)
  logical,                optional, intent(in) :: omit_corners !< If true, avoid checking diagonal shifts
  real,                   optional, intent(in) :: scale     !< A scaling factor for this array.

  logical :: sym

  sym = .false. ; if (present(symmetric)) sym = symmetric

  if (present(haloshift)) then
    call chksum_b_2d(arraya, 'x '//mesg, hi, haloshift, symmetric=sym, &
                     omit_corners=omit_corners, scale=scale)
    call chksum_b_2d(arrayb, 'y '//mesg, hi, haloshift, symmetric=sym, &
                     omit_corners=omit_corners, scale=scale)
  else
    call chksum_b_2d(arraya, 'x '//mesg, hi, symmetric=sym, scale=scale)
    call chksum_b_2d(arrayb, 'y '//mesg, hi, symmetric=sym, scale=scale)
  endif

chksum_pair_b_3d()

subroutine mom_checksums::bchksum_pair::chksum_pair_b_3d ( character(len=*), intent(in)  mesg, real, dimension(hi%isdb:,hi%jsdb:, :), intent(in)  arrayA, real, dimension(hi%isdb:,hi%jsdb:, :), intent(in)  arrayB, type(hor_index_type), intent(in)  HI, integer, intent(in), optional  haloshift, logical, intent(in), optional  symmetric, logical, intent(in), optional  omit_corners, real, intent(in), optional  scale  )

private

Parameters

[in]	mesg	Identifying messages
[in]	hi	A horizontal index type
[in]	arrayb	The arrays to be checksummed
[in]	haloshift	The width of halos to check (default 0)
[in]	symmetric	If true, do the checksums on the full symmetric computational domain.
[in]	omit_corners	If true, avoid checking diagonal shifts
[in]	scale	A scaling factor for this array.

Definition at line 261 of file MOM_checksums.F90.

  character(len=*),                    intent(in) :: mesg !< Identifying messages
  type(hor_index_type),                intent(in) :: hi     !< A horizontal index type
  real, dimension(HI%IsdB:,HI%JsdB:, :), intent(in) :: arraya, arrayb !< The arrays to be checksummed
  integer,                   optional, intent(in) :: haloshift !< The width of halos to check (default 0)
  logical,                   optional, intent(in) :: symmetric !< If true, do the checksums on the full symmetric computational domain.
  logical,                   optional, intent(in) :: omit_corners !< If true, avoid checking diagonal shifts
  real,                      optional, intent(in) :: scale     !< A scaling factor for this array.

  logical :: sym

  if (present(haloshift)) then
    call chksum_b_3d(arraya, 'x '//mesg, hi, haloshift, symmetric, &
                     omit_corners, scale=scale)
    call chksum_b_3d(arrayb, 'y '//mesg, hi, haloshift, symmetric, &
                     omit_corners, scale=scale)
  else
    call chksum_b_3d(arraya, 'x '//mesg, hi, symmetric=symmetric, scale=scale)
    call chksum_b_3d(arrayb, 'y '//mesg, hi, symmetric=symmetric, scale=scale)
  endif

---

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

• /home/adcroft/GitHub/workspace/Gaea-stats-MOM6-examples/MOM6-examples/src/MOM6/src/framework/MOM_checksums.F90