Checksums a pair of arrays (2d or 3d) staggered at tracer points.
Definition at line 23 of file MOM_checksums.F90.
|
subroutine | chksum_pair_h_2d (mesg, arrayA, arrayB, HI, haloshift, omit_corners, scale, logunit) |
| Checksums on a pair of 2d arrays staggered at tracer points. More...
|
|
subroutine | chksum_pair_h_3d (mesg, arrayA, arrayB, HI, haloshift, omit_corners, scale, logunit) |
| Checksums on a pair of 3d arrays staggered at tracer points. More...
|
|
◆ chksum_pair_h_2d()
subroutine mom_checksums::hchksum_pair::chksum_pair_h_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 |
omit_corners, |
|
|
real, intent(in), optional |
scale, |
|
|
integer, intent(in), optional |
logunit |
|
) |
| |
|
private |
Checksums on a pair of 2d arrays staggered at tracer points.
- Parameters
-
[in] | mesg | Identifying messages |
[in] | hi | A horizontal index type |
[in] | arraya | The first array to be checksummed |
[in] | arrayb | The second array to be checksummed |
[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. |
[in] | logunit | IO unit for checksum logging |
Definition at line 200 of file MOM_checksums.F90.
200 character(len=*),
intent(in) :: mesg
201 type(hor_index_type),
intent(in) :: HI
202 real,
dimension(HI%isd:,HI%jsd:),
intent(in) :: arrayA
203 real,
dimension(HI%isd:,HI%jsd:),
intent(in) :: arrayB
204 integer,
optional,
intent(in) :: haloshift
205 logical,
optional,
intent(in) :: omit_corners
206 real,
optional,
intent(in) :: scale
207 integer,
optional,
intent(in) :: logunit
209 if (
present(haloshift))
then
210 call chksum_h_2d(arraya,
'x '//mesg, hi, haloshift, omit_corners, &
211 scale=scale, logunit=logunit)
212 call chksum_h_2d(arrayb,
'y '//mesg, hi, haloshift, omit_corners, &
213 scale=scale, logunit=logunit)
215 call chksum_h_2d(arraya,
'x '//mesg, hi, scale=scale, logunit=logunit)
216 call chksum_h_2d(arrayb,
'y '//mesg, hi, scale=scale, logunit=logunit)
◆ chksum_pair_h_3d()
subroutine mom_checksums::hchksum_pair::chksum_pair_h_3d |
( |
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 |
omit_corners, |
|
|
real, intent(in), optional |
scale, |
|
|
integer, intent(in), optional |
logunit |
|
) |
| |
|
private |
Checksums on a pair of 3d arrays staggered at tracer points.
- Parameters
-
[in] | mesg | Identifying messages |
[in] | hi | A horizontal index type |
[in] | arraya | The first array to be checksummed |
[in] | arrayb | The second array to be checksummed |
[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. |
[in] | logunit | IO unit for checksum logging |
Definition at line 224 of file MOM_checksums.F90.
224 character(len=*),
intent(in) :: mesg
225 type(hor_index_type),
intent(in) :: HI
226 real,
dimension(HI%isd:,HI%jsd:, :),
intent(in) :: arrayA
227 real,
dimension(HI%isd:,HI%jsd:, :),
intent(in) :: arrayB
228 integer,
optional,
intent(in) :: haloshift
229 logical,
optional,
intent(in) :: omit_corners
230 real,
optional,
intent(in) :: scale
231 integer,
optional,
intent(in) :: logunit
233 if (
present(haloshift))
then
234 call chksum_h_3d(arraya,
'x '//mesg, hi, haloshift, omit_corners, &
235 scale=scale, logunit=logunit)
236 call chksum_h_3d(arrayb,
'y '//mesg, hi, haloshift, omit_corners, &
237 scale=scale, logunit=logunit)
239 call chksum_h_3d(arraya,
'x '//mesg, hi, scale=scale, logunit=logunit)
240 call chksum_h_3d(arrayb,
'y '//mesg, hi, scale=scale, logunit=logunit)
The documentation for this interface was generated from the following file:
- /glade/work/altuntas/cesm.sandboxes/cesm2_2_alpha_X_mom/components/mom/MOM6/src/framework/MOM_checksums.F90