Do checksums on the components of a C-grid vector.
Definition at line 52 of file MOM_debugging.F90.
|
subroutine | chksum_vec_c3d (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_c2d (mesg, u_comp, v_comp, G, halos, scalars) |
| Do a checksum and redundant point check on a 2d C-grid vector. More...
|
|
◆ chksum_vec_c2d()
subroutine mom_debugging::vec_chksum::chksum_vec_c2d |
( |
character(len=*), intent(in) |
mesg, |
|
|
real, dimension(g%isdb:,g%jsd:), intent(in) |
u_comp, |
|
|
real, dimension(g%isd:,g%jsdb:), 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 590 of file MOM_debugging.F90.
590 character(len=*),
intent(in) :: mesg
591 type(ocean_grid_type),
intent(inout) :: G
592 real,
dimension(G%IsdB:,G%jsd:),
intent(in) :: u_comp
593 real,
dimension(G%isd:,G%JsdB:),
intent(in) :: v_comp
594 integer,
optional,
intent(in) :: halos
595 logical,
optional,
intent(in) :: scalars
598 logical :: are_scalars
599 are_scalars = .false. ;
if (
present(scalars)) are_scalars = scalars
601 if (debug_chksums)
then
602 call uvchksum(mesg, u_comp, v_comp, g%HI, halos)
604 if (debug_redundant)
then
605 if (are_scalars)
then
606 call check_redundant_c(mesg, u_comp, v_comp, g, direction=to_all+scalar_pair)
608 call check_redundant_c(mesg, u_comp, v_comp, g)
◆ chksum_vec_c3d()
subroutine mom_debugging::vec_chksum::chksum_vec_c3d |
( |
character(len=*), intent(in) |
mesg, |
|
|
real, dimension(g%isdb:,g%jsd:,:), intent(in) |
u_comp, |
|
|
real, dimension(g%isd:,g%jsdb:,:), 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 564 of file MOM_debugging.F90.
564 character(len=*),
intent(in) :: mesg
565 type(ocean_grid_type),
intent(inout) :: G
566 real,
dimension(G%IsdB:,G%jsd:,:),
intent(in) :: u_comp
567 real,
dimension(G%isd:,G%JsdB:,:),
intent(in) :: v_comp
568 integer,
optional,
intent(in) :: halos
569 logical,
optional,
intent(in) :: scalars
572 logical :: are_scalars
573 are_scalars = .false. ;
if (
present(scalars)) are_scalars = scalars
575 if (debug_chksums)
then
576 call uvchksum(mesg, u_comp, v_comp, g%HI, halos)
578 if (debug_redundant)
then
579 if (are_scalars)
then
580 call check_redundant_c(mesg, u_comp, v_comp, g, direction=to_all+scalar_pair)
582 call check_redundant_c(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