Do checksums on the components of an A-grid vector.
Definition at line 64 of file MOM_debugging.F90.
|
subroutine | chksum_vec_a3d (mesg, u_comp, v_comp, G, halos, scalars) |
| Do a checksum and redundant point check on a 3d C-grid vector. More...
|
|
subroutine | chksum_vec_a2d (mesg, u_comp, v_comp, G, halos, scalars) |
| Do a checksum and redundant point check on a 2d C-grid vector. More...
|
|
◆ chksum_vec_a2d()
subroutine mom_debugging::vec_chksum_a::chksum_vec_a2d |
( |
character(len=*), intent(in) |
mesg, |
|
|
real, dimension(g%isd:,g%jsd:), intent(in) |
u_comp, |
|
|
real, dimension(g%isd:,g%jsd:), intent(in) |
v_comp, |
|
|
type(ocean_grid_type), intent(inout) |
G, |
|
|
integer, intent(in), optional |
halos, |
|
|
logical, intent(in), optional |
scalars |
|
) |
| |
|
private |
Do a checksum and redundant point check on a 2d C-grid vector.
- Parameters
-
[in] | mesg | An identifying message |
[in,out] | g | The ocean's grid structure |
[in] | u_comp | The u-component of the vector |
[in] | v_comp | The v-component of the vector |
[in] | halos | The width of halos to check (default 0) |
[in] | scalars | If true this is a pair of scalars that are being checked. |
Definition at line 699 of file MOM_debugging.F90.
699 character(len=*),
intent(in) :: mesg
700 type(ocean_grid_type),
intent(inout) :: G
701 real,
dimension(G%isd:,G%jsd:),
intent(in) :: u_comp
702 real,
dimension(G%isd:,G%jsd:),
intent(in) :: v_comp
703 integer,
optional,
intent(in) :: halos
704 logical,
optional,
intent(in) :: scalars
707 logical :: are_scalars
708 are_scalars = .false. ;
if (
present(scalars)) are_scalars = scalars
710 if (debug_chksums)
then
711 call hchksum(u_comp, mesg//
"(u)", g%HI, halos)
712 call hchksum(v_comp, mesg//
"(v)", g%HI, halos)
714 if (debug_redundant)
then
715 if (are_scalars)
then
716 call check_redundant_t(mesg, u_comp, v_comp, g, direction=to_all+scalar_pair)
718 call check_redundant_t(mesg, u_comp, v_comp, g)
◆ chksum_vec_a3d()
subroutine mom_debugging::vec_chksum_a::chksum_vec_a3d |
( |
character(len=*), intent(in) |
mesg, |
|
|
real, dimension(g%isd:,g%jsd:,:), intent(in) |
u_comp, |
|
|
real, dimension(g%isd:,g%jsd:,:), intent(in) |
v_comp, |
|
|
type(ocean_grid_type), intent(inout) |
G, |
|
|
integer, intent(in), optional |
halos, |
|
|
logical, intent(in), optional |
scalars |
|
) |
| |
|
private |
Do a checksum and redundant point check on a 3d C-grid vector.
- Parameters
-
[in] | mesg | An identifying message |
[in,out] | g | The ocean's grid structure |
[in] | u_comp | The u-component of the vector |
[in] | v_comp | The v-component of the vector |
[in] | halos | The width of halos to check (default 0) |
[in] | scalars | If true this is a pair of scalars that are being checked. |
Definition at line 672 of file MOM_debugging.F90.
672 character(len=*),
intent(in) :: mesg
673 type(ocean_grid_type),
intent(inout) :: G
674 real,
dimension(G%isd:,G%jsd:,:),
intent(in) :: u_comp
675 real,
dimension(G%isd:,G%jsd:,:),
intent(in) :: v_comp
676 integer,
optional,
intent(in) :: halos
677 logical,
optional,
intent(in) :: scalars
680 logical :: are_scalars
681 are_scalars = .false. ;
if (
present(scalars)) are_scalars = scalars
683 if (debug_chksums)
then
684 call hchksum(u_comp, mesg//
"(u)", g%HI, halos)
685 call hchksum(v_comp, mesg//
"(v)", g%HI, halos)
687 if (debug_redundant)
then
688 if (are_scalars)
then
689 call check_redundant_t(mesg, u_comp, v_comp, g, direction=to_all+scalar_pair)
691 call check_redundant_t(mesg, u_comp, v_comp, g)
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/diagnostics/MOM_debugging.F90