MOM6
mom_debugging::vec_chksum Interface Reference

Detailed Description

Do checksums on the components of a C-grid vector.

Definition at line 52 of file MOM_debugging.F90.

Private functions

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...
 

Functions and subroutines

◆ 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]mesgAn identifying message
[in,out]gThe ocean's grid structure
[in]u_compThe u-component of the vector
[in]v_compThe v-component of the vector
[in]halosThe width of halos to check (default 0)
[in]scalarsIf 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 !< An identifying message
591  type(ocean_grid_type), intent(inout) :: G !< The ocean's grid structure
592  real, dimension(G%IsdB:,G%jsd:), intent(in) :: u_comp !< The u-component of the vector
593  real, dimension(G%isd:,G%JsdB:), intent(in) :: v_comp !< The v-component of the vector
594  integer, optional, intent(in) :: halos !< The width of halos to check (default 0)
595  logical, optional, intent(in) :: scalars !< If true this is a pair of
596  !! scalars that are being checked.
597  ! Local variables
598  logical :: are_scalars
599  are_scalars = .false. ; if (present(scalars)) are_scalars = scalars
600 
601  if (debug_chksums) then
602  call uvchksum(mesg, u_comp, v_comp, g%HI, halos)
603  endif
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)
607  else
608  call check_redundant_c(mesg, u_comp, v_comp, g)
609  endif
610  endif
611 

◆ 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]mesgAn identifying message
[in,out]gThe ocean's grid structure
[in]u_compThe u-component of the vector
[in]v_compThe v-component of the vector
[in]halosThe width of halos to check (default 0)
[in]scalarsIf 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 !< An identifying message
565  type(ocean_grid_type), intent(inout) :: G !< The ocean's grid structure
566  real, dimension(G%IsdB:,G%jsd:,:), intent(in) :: u_comp !< The u-component of the vector
567  real, dimension(G%isd:,G%JsdB:,:), intent(in) :: v_comp !< The v-component of the vector
568  integer, optional, intent(in) :: halos !< The width of halos to check (default 0)
569  logical, optional, intent(in) :: scalars !< If true this is a pair of
570  !! scalars that are being checked.
571  ! Local variables
572  logical :: are_scalars
573  are_scalars = .false. ; if (present(scalars)) are_scalars = scalars
574 
575  if (debug_chksums) then
576  call uvchksum(mesg, u_comp, v_comp, g%HI, halos)
577  endif
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)
581  else
582  call check_redundant_c(mesg, u_comp, v_comp, g)
583  endif
584  endif
585 

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