\hypertarget{interfacemom__debugging_1_1vec__chksum__a}{}\section{mom\+\_\+debugging\+:\+:vec\+\_\+chksum\+\_\+a Interface Reference}
\label{interfacemom__debugging_1_1vec__chksum__a}\index{mom\+\_\+debugging\+::vec\+\_\+chksum\+\_\+a@{mom\+\_\+debugging\+::vec\+\_\+chksum\+\_\+a}}


\subsection{Detailed Description}
Do checksums on the components of an A-\/grid vector. 

Definition at line 64 of file M\+O\+M\+\_\+debugging.\+F90.

\subsection*{Private functions}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{interfacemom__debugging_1_1vec__chksum__a_a558e6d2492743a1829e80a05994ccc28}{chksum\+\_\+vec\+\_\+a3d} (mesg, u\+\_\+comp, v\+\_\+comp, G, halos, scalars)
\begin{DoxyCompactList}\small\item\em Do a checksum and redundant point check on a 3d C-\/grid vector. \end{DoxyCompactList}\item 
subroutine \hyperlink{interfacemom__debugging_1_1vec__chksum__a_a98ce4c76b25ab1255243b28f1c1b9a43}{chksum\+\_\+vec\+\_\+a2d} (mesg, u\+\_\+comp, v\+\_\+comp, G, halos, scalars)
\begin{DoxyCompactList}\small\item\em Do a checksum and redundant point check on a 2d C-\/grid vector. \end{DoxyCompactList}\end{DoxyCompactItemize}


\subsection{Detailed Description}
Do checksums on the components of an A-\/grid vector. 

Definition at line 64 of file M\+O\+M\+\_\+debugging.\+F90.



\subsection{Functions and subroutines}
\mbox{\Hypertarget{interfacemom__debugging_1_1vec__chksum__a_a98ce4c76b25ab1255243b28f1c1b9a43}\label{interfacemom__debugging_1_1vec__chksum__a_a98ce4c76b25ab1255243b28f1c1b9a43}} 
\index{mom\+\_\+debugging\+::vec\+\_\+chksum\+\_\+a@{mom\+\_\+debugging\+::vec\+\_\+chksum\+\_\+a}!chksum\+\_\+vec\+\_\+a2d@{chksum\+\_\+vec\+\_\+a2d}}
\index{chksum\+\_\+vec\+\_\+a2d@{chksum\+\_\+vec\+\_\+a2d}!mom\+\_\+debugging\+::vec\+\_\+chksum\+\_\+a@{mom\+\_\+debugging\+::vec\+\_\+chksum\+\_\+a}}
\subsubsection{\texorpdfstring{chksum\+\_\+vec\+\_\+a2d()}{chksum\_vec\_a2d()}}
{\footnotesize\ttfamily subroutine mom\+\_\+debugging\+::vec\+\_\+chksum\+\_\+a\+::chksum\+\_\+vec\+\_\+a2d (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{mesg,  }\item[{real, dimension(g\%isd\+:,g\%jsd\+:), intent(in)}]{u\+\_\+comp,  }\item[{real, dimension(g\%isd\+:,g\%jsd\+:), intent(in)}]{v\+\_\+comp,  }\item[{type(ocean\+\_\+grid\+\_\+type), intent(inout)}]{G,  }\item[{integer, intent(in), optional}]{halos,  }\item[{logical, intent(in), optional}]{scalars }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Do a checksum and redundant point check on a 2d C-\/grid vector. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em mesg} & An identifying message\\
\hline
\mbox{\tt in,out}  & {\em g} & The ocean\textquotesingle{}s grid structure\\
\hline
\mbox{\tt in}  & {\em u\+\_\+comp} & The u-\/component of the vector\\
\hline
\mbox{\tt in}  & {\em v\+\_\+comp} & The v-\/component of the vector\\
\hline
\mbox{\tt in}  & {\em halos} & The width of halos to check (default 0)\\
\hline
\mbox{\tt in}  & {\em scalars} & If true this is a pair of scalars that are being checked. \\
\hline
\end{DoxyParams}


Definition at line 699 of file M\+O\+M\+\_\+debugging.\+F90.


\begin{DoxyCode}
699   \textcolor{keywordtype}{character(len=*)},               \textcolor{keywordtype}{intent(in)}    :: mesg\textcolor{comment}{   !< An identifying message}
700   \textcolor{keywordtype}{type}(ocean\_grid\_type),          \textcolor{keywordtype}{intent(inout)} :: g\textcolor{comment}{      !< The ocean's grid structure}
701   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(G%isd:,G%jsd:)}, \textcolor{keywordtype}{intent(in)}    :: u\_comp\textcolor{comment}{ !< The u-component of the vector}
702   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(G%isd:,G%jsd:)}, \textcolor{keywordtype}{intent(in)}    :: v\_comp\textcolor{comment}{ !< The v-component of the vector}
703   \textcolor{keywordtype}{integer},              \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: halos\textcolor{comment}{  !< The width of halos to check (default 0)}
704   \textcolor{keywordtype}{logical},              \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: scalars\textcolor{comment}{ !< If true this is a pair of}
705 \textcolor{comment}{                                                          !! scalars that are being checked.}
706   \textcolor{comment}{! Local variables}
707   \textcolor{keywordtype}{logical} :: are\_scalars
708   are\_scalars = .false. ; \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(scalars)) are\_scalars = scalars
709 
710   \textcolor{keywordflow}{if} (debug\_chksums) \textcolor{keywordflow}{then}
711     \textcolor{keyword}{call }hchksum(u\_comp, mesg//\textcolor{stringliteral}{"(u)"}, g%HI, halos)
712     \textcolor{keyword}{call }hchksum(v\_comp, mesg//\textcolor{stringliteral}{"(v)"}, g%HI, halos)
713 \textcolor{keywordflow}{  endif}
714   \textcolor{keywordflow}{if} (debug\_redundant) \textcolor{keywordflow}{then}
715     \textcolor{keywordflow}{if} (are\_scalars) \textcolor{keywordflow}{then}
716       \textcolor{keyword}{call }check\_redundant\_t(mesg, u\_comp, v\_comp, g, direction=to\_all+scalar\_pair)
717     \textcolor{keywordflow}{else}
718       \textcolor{keyword}{call }check\_redundant\_t(mesg, u\_comp, v\_comp, g)
719 \textcolor{keywordflow}{    endif}
720 \textcolor{keywordflow}{  endif}
721 
\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__debugging_1_1vec__chksum__a_a558e6d2492743a1829e80a05994ccc28}\label{interfacemom__debugging_1_1vec__chksum__a_a558e6d2492743a1829e80a05994ccc28}} 
\index{mom\+\_\+debugging\+::vec\+\_\+chksum\+\_\+a@{mom\+\_\+debugging\+::vec\+\_\+chksum\+\_\+a}!chksum\+\_\+vec\+\_\+a3d@{chksum\+\_\+vec\+\_\+a3d}}
\index{chksum\+\_\+vec\+\_\+a3d@{chksum\+\_\+vec\+\_\+a3d}!mom\+\_\+debugging\+::vec\+\_\+chksum\+\_\+a@{mom\+\_\+debugging\+::vec\+\_\+chksum\+\_\+a}}
\subsubsection{\texorpdfstring{chksum\+\_\+vec\+\_\+a3d()}{chksum\_vec\_a3d()}}
{\footnotesize\ttfamily subroutine mom\+\_\+debugging\+::vec\+\_\+chksum\+\_\+a\+::chksum\+\_\+vec\+\_\+a3d (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{mesg,  }\item[{real, dimension(g\%isd\+:,g\%jsd\+:,\+:), intent(in)}]{u\+\_\+comp,  }\item[{real, dimension(g\%isd\+:,g\%jsd\+:,\+:), intent(in)}]{v\+\_\+comp,  }\item[{type(ocean\+\_\+grid\+\_\+type), intent(inout)}]{G,  }\item[{integer, intent(in), optional}]{halos,  }\item[{logical, intent(in), optional}]{scalars }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Do a checksum and redundant point check on a 3d C-\/grid vector. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em mesg} & An identifying message\\
\hline
\mbox{\tt in,out}  & {\em g} & The ocean\textquotesingle{}s grid structure\\
\hline
\mbox{\tt in}  & {\em u\+\_\+comp} & The u-\/component of the vector\\
\hline
\mbox{\tt in}  & {\em v\+\_\+comp} & The v-\/component of the vector\\
\hline
\mbox{\tt in}  & {\em halos} & The width of halos to check (default 0)\\
\hline
\mbox{\tt in}  & {\em scalars} & If true this is a pair of scalars that are being checked. \\
\hline
\end{DoxyParams}


Definition at line 672 of file M\+O\+M\+\_\+debugging.\+F90.


\begin{DoxyCode}
672   \textcolor{keywordtype}{character(len=*)},                 \textcolor{keywordtype}{intent(in)}    :: mesg\textcolor{comment}{   !< An identifying message}
673   \textcolor{keywordtype}{type}(ocean\_grid\_type),            \textcolor{keywordtype}{intent(inout)} :: g\textcolor{comment}{      !< The ocean's grid structure}
674   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(G%isd:,G%jsd:,:)}, \textcolor{keywordtype}{intent(in)}    :: u\_comp\textcolor{comment}{ !< The u-component of the vector}
675   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(G%isd:,G%jsd:,:)}, \textcolor{keywordtype}{intent(in)}    :: v\_comp\textcolor{comment}{ !< The v-component of the vector}
676   \textcolor{keywordtype}{integer},                \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: halos\textcolor{comment}{  !< The width of halos to check (default 0)}
677   \textcolor{keywordtype}{logical},                \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)}    :: scalars\textcolor{comment}{ !< If true this is a pair of}
678 \textcolor{comment}{                                                            !! scalars that are being checked.}
679   \textcolor{comment}{! Local variables}
680   \textcolor{keywordtype}{logical} :: are\_scalars
681   are\_scalars = .false. ; \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(scalars)) are\_scalars = scalars
682 
683   \textcolor{keywordflow}{if} (debug\_chksums) \textcolor{keywordflow}{then}
684     \textcolor{keyword}{call }hchksum(u\_comp, mesg//\textcolor{stringliteral}{"(u)"}, g%HI, halos)
685     \textcolor{keyword}{call }hchksum(v\_comp, mesg//\textcolor{stringliteral}{"(v)"}, g%HI, halos)
686 \textcolor{keywordflow}{  endif}
687   \textcolor{keywordflow}{if} (debug\_redundant) \textcolor{keywordflow}{then}
688     \textcolor{keywordflow}{if} (are\_scalars) \textcolor{keywordflow}{then}
689       \textcolor{keyword}{call }check\_redundant\_t(mesg, u\_comp, v\_comp, g, direction=to\_all+scalar\_pair)
690     \textcolor{keywordflow}{else}
691       \textcolor{keyword}{call }check\_redundant\_t(mesg, u\_comp, v\_comp, g)
692 \textcolor{keywordflow}{    endif}
693 \textcolor{keywordflow}{  endif}
694 
\end{DoxyCode}


The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize}
\item 
/home/cermak/src/\+M\+O\+M6.\+devrob/src/diagnostics/M\+O\+M\+\_\+debugging.\+F90\end{DoxyCompactItemize}
