\hypertarget{namespacemom__error__handler}{}\section{mom\+\_\+error\+\_\+handler Module Reference}
\label{namespacemom__error__handler}\index{mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}}


\subsection{Detailed Description}
Routines for error handling and I/O management. \subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
\mbox{\Hypertarget{namespacemom__error__handler_ad5f00a53059c72fe2332d1436c80ca71}\label{namespacemom__error__handler_ad5f00a53059c72fe2332d1436c80ca71}} 
logical function, public \hyperlink{namespacemom__error__handler_ad5f00a53059c72fe2332d1436c80ca71}{is\+\_\+root\+\_\+pe} ()
\begin{DoxyCompactList}\small\item\em This returns .true. if the current PE is the root PE. \end{DoxyCompactList}\item 
subroutine, public \hyperlink{namespacemom__error__handler_a1c462df7b61f1296407b4af51dfeceab}{mom\+\_\+mesg} (message, verb, all\+\_\+print)
\begin{DoxyCompactList}\small\item\em This provides a convenient interface for writing an informative comment. \end{DoxyCompactList}\item 
subroutine, public \hyperlink{namespacemom__error__handler_a460cfb79a06c29fc249952c2a3710d67}{mom\+\_\+error} (level, message, all\+\_\+print)
\begin{DoxyCompactList}\small\item\em This provides a convenient interface for writing an mpp\+\_\+error message with run-\/time filter based on a verbosity. \end{DoxyCompactList}\item 
subroutine, public \hyperlink{namespacemom__error__handler_a12e2a267e28b6e335f7492a058f4dfa0}{mom\+\_\+set\+\_\+verbosity} (verb)
\begin{DoxyCompactList}\small\item\em This subroutine sets the level of verbosity filtering M\+OM error messages. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{namespacemom__error__handler_a2e47f830d9b3ae003d057141096867d5}\label{namespacemom__error__handler_a2e47f830d9b3ae003d057141096867d5}} 
integer function, public \hyperlink{namespacemom__error__handler_a2e47f830d9b3ae003d057141096867d5}{mom\+\_\+get\+\_\+verbosity} ()
\begin{DoxyCompactList}\small\item\em This subroutine gets the level of verbosity filtering M\+OM error messages. \end{DoxyCompactList}\item 
logical function, public \hyperlink{namespacemom__error__handler_a89f02f60296620d3b28e73bd4d771987}{mom\+\_\+verbose\+\_\+enough} (verb)
\begin{DoxyCompactList}\small\item\em This tests whether the level of verbosity filtering M\+OM error messages is sufficient to write a message of verbosity level verb. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{namespacemom__error__handler_a82a9f62f000a7ad9ad9c8d3014346888}\label{namespacemom__error__handler_a82a9f62f000a7ad9ad9c8d3014346888}} 
logical function, public \hyperlink{namespacemom__error__handler_a82a9f62f000a7ad9ad9c8d3014346888}{calltree\+\_\+showquery} ()
\begin{DoxyCompactList}\small\item\em Returns True, if the verbosity$>$=6 indicating to show the call tree. \end{DoxyCompactList}\item 
subroutine, public \hyperlink{namespacemom__error__handler_a9cda07a87815f0e5594066162b4345c3}{calltree\+\_\+enter} (mesg, n)
\begin{DoxyCompactList}\small\item\em Writes a message about entering a subroutine if call tree reporting is active. \end{DoxyCompactList}\item 
subroutine, public \hyperlink{namespacemom__error__handler_a88ea67781e2ed9b73ab7eac8ea5e8578}{calltree\+\_\+leave} (mesg)
\begin{DoxyCompactList}\small\item\em Writes a message about leaving a subroutine if call tree reporting is active. \end{DoxyCompactList}\item 
subroutine, public \hyperlink{namespacemom__error__handler_a34a02e601a60f03cb97a72fe25a32853}{calltree\+\_\+waypoint} (mesg, n)
\begin{DoxyCompactList}\small\item\em Writes a message about reaching a milestone if call tree reporting is active. \end{DoxyCompactList}\item 
subroutine, public \hyperlink{namespacemom__error__handler_a33bcd190d460095104954f2e654f9fe6}{assert} (logical\+\_\+arg, msg)
\begin{DoxyCompactList}\small\item\em Issues a F\+A\+T\+AL error if the assertion fails, i.\+e. the first argument is false. \end{DoxyCompactList}\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
\mbox{\Hypertarget{namespacemom__error__handler_a516933590aeca45aa2023cf8f0774ef6}\label{namespacemom__error__handler_a516933590aeca45aa2023cf8f0774ef6}} 
integer \hyperlink{namespacemom__error__handler_a516933590aeca45aa2023cf8f0774ef6}{verbosity} = 6
\begin{DoxyCompactList}\small\item\em Verbosity level\+: 0 -\/ F\+A\+T\+AL messages only 1 -\/ F\+A\+T\+AL + W\+A\+R\+N\+I\+NG messages only 2 -\/ F\+A\+T\+AL + W\+A\+R\+N\+I\+NG + N\+O\+TE messages only \mbox{[}default\mbox{]} 3 -\/ above + informational 4 -\/ 5 -\/ 6 -\/ above + call tree 7 -\/ 8 -\/ 9 -\/ anything and everything (also set with D\+E\+B\+UG=True) \end{DoxyCompactList}\item 
\mbox{\Hypertarget{namespacemom__error__handler_ab177e97657bfddd06347ade5133cd5c0}\label{namespacemom__error__handler_ab177e97657bfddd06347ade5133cd5c0}} 
integer \hyperlink{namespacemom__error__handler_ab177e97657bfddd06347ade5133cd5c0}{calltreeindentlevel} = 0
\begin{DoxyCompactList}\small\item\em The level of calling within the call tree. \end{DoxyCompactList}\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacemom__error__handler_a33bcd190d460095104954f2e654f9fe6}\label{namespacemom__error__handler_a33bcd190d460095104954f2e654f9fe6}} 
\index{mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}!assert@{assert}}
\index{assert@{assert}!mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}}
\subsubsection{\texorpdfstring{assert()}{assert()}}
{\footnotesize\ttfamily subroutine, public mom\+\_\+error\+\_\+handler\+::assert (\begin{DoxyParamCaption}\item[{logical, intent(in)}]{logical\+\_\+arg,  }\item[{character(len=$\ast$), intent(in)}]{msg }\end{DoxyParamCaption})}



Issues a F\+A\+T\+AL error if the assertion fails, i.\+e. the first argument is false. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em logical\+\_\+arg} & If false causes a F\+A\+T\+AL error\\
\hline
\mbox{\tt in}  & {\em msg} & Message to issue in case of failed assertion \\
\hline
\end{DoxyParams}


Definition at line 182 of file M\+O\+M\+\_\+error\+\_\+handler.\+F90.


\begin{DoxyCode}
182   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)} :: logical\_arg\textcolor{comment}{ !< If false causes a FATAL error}
183   \textcolor{keywordtype}{character(len=*)}, \textcolor{keywordtype}{intent(in)} :: msg\textcolor{comment}{ !< Message to issue in case of failed assertion}
184 
185   \textcolor{keywordflow}{if} (.not. logical\_arg) \textcolor{keywordflow}{then}
186     \textcolor{keyword}{call }mom\_error(fatal, msg)
187 \textcolor{keywordflow}{  endif}
188 
\end{DoxyCode}
\mbox{\Hypertarget{namespacemom__error__handler_a9cda07a87815f0e5594066162b4345c3}\label{namespacemom__error__handler_a9cda07a87815f0e5594066162b4345c3}} 
\index{mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}!calltree\+\_\+enter@{calltree\+\_\+enter}}
\index{calltree\+\_\+enter@{calltree\+\_\+enter}!mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}}
\subsubsection{\texorpdfstring{calltree\+\_\+enter()}{calltree\_enter()}}
{\footnotesize\ttfamily subroutine, public mom\+\_\+error\+\_\+handler\+::calltree\+\_\+enter (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{mesg,  }\item[{integer, intent(in), optional}]{n }\end{DoxyParamCaption})}



Writes a message about entering a subroutine if call tree reporting is active. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em mesg} & Message to write\\
\hline
\mbox{\tt in}  & {\em n} & An optional integer to write at end of message \\
\hline
\end{DoxyParams}


Definition at line 130 of file M\+O\+M\+\_\+error\+\_\+handler.\+F90.


\begin{DoxyCode}
130   \textcolor{keywordtype}{character(len=*)},  \textcolor{keywordtype}{intent(in)} :: mesg\textcolor{comment}{ !< Message to write}
131   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: n\textcolor{comment}{ !< An optional integer to write at end of message}
132   \textcolor{comment}{! Local variables}
133   \textcolor{keywordtype}{character(len=8)} :: nasstring
134   calltreeindentlevel = calltreeindentlevel + 1
135   \textcolor{keywordflow}{if} (verbosity<6) \textcolor{keywordflow}{return}
136   \textcolor{keywordflow}{if} (is\_root\_pe()) \textcolor{keywordflow}{then}
137     nasstring = \textcolor{stringliteral}{''}
138     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(n)) \textcolor{keywordflow}{then}
139       \textcolor{keyword}{write}(nasstring(1:8),\textcolor{stringliteral}{'(i8)'}) n
140       \textcolor{keyword}{call }mpp\_error(note, \textcolor{stringliteral}{'callTree: '}// &
141         repeat(\textcolor{stringliteral}{'   '},calltreeindentlevel-1)//\textcolor{stringliteral}{'loop '}//trim(mesg)//trim(nasstring))
142     \textcolor{keywordflow}{else}
143       \textcolor{keyword}{call }mpp\_error(note, \textcolor{stringliteral}{'callTree: '}// &
144         repeat(\textcolor{stringliteral}{'   '},calltreeindentlevel-1)//\textcolor{stringliteral}{'---> '}//trim(mesg))
145 \textcolor{keywordflow}{    endif}
146 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
\mbox{\Hypertarget{namespacemom__error__handler_a88ea67781e2ed9b73ab7eac8ea5e8578}\label{namespacemom__error__handler_a88ea67781e2ed9b73ab7eac8ea5e8578}} 
\index{mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}!calltree\+\_\+leave@{calltree\+\_\+leave}}
\index{calltree\+\_\+leave@{calltree\+\_\+leave}!mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}}
\subsubsection{\texorpdfstring{calltree\+\_\+leave()}{calltree\_leave()}}
{\footnotesize\ttfamily subroutine, public mom\+\_\+error\+\_\+handler\+::calltree\+\_\+leave (\begin{DoxyParamCaption}\item[{character(len=$\ast$)}]{mesg }\end{DoxyParamCaption})}



Writes a message about leaving a subroutine if call tree reporting is active. 


\begin{DoxyParams}{Parameters}
{\em mesg} & Message to write \\
\hline
\end{DoxyParams}


Definition at line 151 of file M\+O\+M\+\_\+error\+\_\+handler.\+F90.


\begin{DoxyCode}
151   \textcolor{keywordtype}{character(len=*)} :: mesg\textcolor{comment}{ !< Message to write}
152   \textcolor{keywordflow}{if} (calltreeindentlevel<1) \textcolor{keyword}{write}(0,*) \textcolor{stringliteral}{'callTree\_leave: error callTreeIndentLevel='},calltreeindentlevel,
      trim(mesg)
153   calltreeindentlevel = calltreeindentlevel - 1
154   \textcolor{keywordflow}{if} (verbosity<6) \textcolor{keywordflow}{return}
155   \textcolor{keywordflow}{if} (is\_root\_pe()) \textcolor{keyword}{call }mpp\_error(note, \textcolor{stringliteral}{'callTree: '}// &
156         repeat(\textcolor{stringliteral}{'   '},calltreeindentlevel)//\textcolor{stringliteral}{'<--- '}//trim(mesg))
\end{DoxyCode}
\mbox{\Hypertarget{namespacemom__error__handler_a34a02e601a60f03cb97a72fe25a32853}\label{namespacemom__error__handler_a34a02e601a60f03cb97a72fe25a32853}} 
\index{mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}!calltree\+\_\+waypoint@{calltree\+\_\+waypoint}}
\index{calltree\+\_\+waypoint@{calltree\+\_\+waypoint}!mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}}
\subsubsection{\texorpdfstring{calltree\+\_\+waypoint()}{calltree\_waypoint()}}
{\footnotesize\ttfamily subroutine, public mom\+\_\+error\+\_\+handler\+::calltree\+\_\+waypoint (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{mesg,  }\item[{integer, intent(in), optional}]{n }\end{DoxyParamCaption})}



Writes a message about reaching a milestone if call tree reporting is active. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em mesg} & Message to write\\
\hline
\mbox{\tt in}  & {\em n} & An optional integer to write at end of message \\
\hline
\end{DoxyParams}


Definition at line 161 of file M\+O\+M\+\_\+error\+\_\+handler.\+F90.


\begin{DoxyCode}
161   \textcolor{keywordtype}{character(len=*)},  \textcolor{keywordtype}{intent(in)} :: mesg\textcolor{comment}{ !< Message to write}
162   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: n\textcolor{comment}{ !< An optional integer to write at end of message}
163   \textcolor{comment}{! Local variables}
164   \textcolor{keywordtype}{character(len=8)} :: nasstring
165   \textcolor{keywordflow}{if} (calltreeindentlevel<0) \textcolor{keyword}{write}(0,*) \textcolor{stringliteral}{'callTree\_waypoint: error callTreeIndentLevel='},calltreeindentlevel
      ,trim(mesg)
166   \textcolor{keywordflow}{if} (verbosity<6) \textcolor{keywordflow}{return}
167   \textcolor{keywordflow}{if} (is\_root\_pe()) \textcolor{keywordflow}{then}
168     nasstring = \textcolor{stringliteral}{''}
169     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(n)) \textcolor{keywordflow}{then}
170       \textcolor{keyword}{write}(nasstring(1:8),\textcolor{stringliteral}{'(i8)'}) n
171       \textcolor{keyword}{call }mpp\_error(note, \textcolor{stringliteral}{'callTree: '}// &
172         repeat(\textcolor{stringliteral}{'   '},calltreeindentlevel)//\textcolor{stringliteral}{'loop '}//trim(mesg)//trim(nasstring))
173     \textcolor{keywordflow}{else}
174       \textcolor{keyword}{call }mpp\_error(note, \textcolor{stringliteral}{'callTree: '}// &
175         repeat(\textcolor{stringliteral}{'   '},calltreeindentlevel)//\textcolor{stringliteral}{'o '}//trim(mesg))
176 \textcolor{keywordflow}{    endif}
177 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
\mbox{\Hypertarget{namespacemom__error__handler_a460cfb79a06c29fc249952c2a3710d67}\label{namespacemom__error__handler_a460cfb79a06c29fc249952c2a3710d67}} 
\index{mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}!mom\+\_\+error@{mom\+\_\+error}}
\index{mom\+\_\+error@{mom\+\_\+error}!mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}}
\subsubsection{\texorpdfstring{mom\+\_\+error()}{mom\_error()}}
{\footnotesize\ttfamily subroutine, public mom\+\_\+error\+\_\+handler\+::mom\+\_\+error (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{level,  }\item[{character(len=$\ast$), intent(in)}]{message,  }\item[{logical, intent(in), optional}]{all\+\_\+print }\end{DoxyParamCaption})}



This provides a convenient interface for writing an mpp\+\_\+error message with run-\/time filter based on a verbosity. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em level} & The verbosity level of this message\\
\hline
\mbox{\tt in}  & {\em message} & A message to write out\\
\hline
\mbox{\tt in}  & {\em all\+\_\+print} & If present and true, any P\+Es are able to write this message. \\
\hline
\end{DoxyParams}


Definition at line 72 of file M\+O\+M\+\_\+error\+\_\+handler.\+F90.


\begin{DoxyCode}
72   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)} :: level\textcolor{comment}{ !< The verbosity level of this message}
73   \textcolor{keywordtype}{character(len=*)},  \textcolor{keywordtype}{intent(in)} :: message\textcolor{comment}{ !< A message to write out}
74   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: all\_print\textcolor{comment}{ !< If present and true, any PEs are}
75 \textcolor{comment}{                                             !! able to write this message.}
76   \textcolor{comment}{! This provides a convenient interface for writing an mpp\_error message}
77   \textcolor{comment}{! with run-time filter based on a verbosity.}
78   \textcolor{keywordtype}{logical} :: write\_msg
79 
80   write\_msg = is\_root\_pe()
81   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(all\_print)) write\_msg = write\_msg .or. all\_print
82 
83   \textcolor{keywordflow}{select case} (level)
84     \textcolor{keywordflow}{case} (note)
85       \textcolor{keywordflow}{if} (write\_msg.and.verbosity>=2) \textcolor{keyword}{call }mpp\_error(note, message)
86     \textcolor{keywordflow}{case} (warning)
87       \textcolor{keywordflow}{if} (write\_msg.and.verbosity>=1) \textcolor{keyword}{call }mpp\_error(warning, message)
88     \textcolor{keywordflow}{case} (fatal)
89       \textcolor{keywordflow}{if} (verbosity>=0) \textcolor{keyword}{call }mpp\_error(fatal, message)
90 \textcolor{keywordflow}{    case default}
91       \textcolor{keyword}{call }mpp\_error(level, message)
92 \textcolor{keywordflow}{  end select}
\end{DoxyCode}
\mbox{\Hypertarget{namespacemom__error__handler_a1c462df7b61f1296407b4af51dfeceab}\label{namespacemom__error__handler_a1c462df7b61f1296407b4af51dfeceab}} 
\index{mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}!mom\+\_\+mesg@{mom\+\_\+mesg}}
\index{mom\+\_\+mesg@{mom\+\_\+mesg}!mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}}
\subsubsection{\texorpdfstring{mom\+\_\+mesg()}{mom\_mesg()}}
{\footnotesize\ttfamily subroutine, public mom\+\_\+error\+\_\+handler\+::mom\+\_\+mesg (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{message,  }\item[{integer, intent(in), optional}]{verb,  }\item[{logical, intent(in), optional}]{all\+\_\+print }\end{DoxyParamCaption})}



This provides a convenient interface for writing an informative comment. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em message} & A message to write out\\
\hline
\mbox{\tt in}  & {\em verb} & A level of verbosity for this message\\
\hline
\mbox{\tt in}  & {\em all\+\_\+print} & If present and true, any P\+Es are able to write this message. \\
\hline
\end{DoxyParams}


Definition at line 53 of file M\+O\+M\+\_\+error\+\_\+handler.\+F90.


\begin{DoxyCode}
53   \textcolor{keywordtype}{character(len=*)}, \textcolor{keywordtype}{intent(in)}  :: message\textcolor{comment}{ !< A message to write out}
54   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: verb\textcolor{comment}{ !< A level of verbosity for this message}
55   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: all\_print\textcolor{comment}{ !< If present and true, any PEs are}
56 \textcolor{comment}{                                             !! able to write this message.}
57   \textcolor{comment}{! This provides a convenient interface for writing an informative comment.}
58   \textcolor{keywordtype}{integer} :: verb\_msg
59   \textcolor{keywordtype}{logical} :: write\_msg
60 
61   write\_msg = is\_root\_pe()
62   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(all\_print)) write\_msg = write\_msg .or. all\_print
63 
64   verb\_msg = 2 ; \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(verb)) verb\_msg = verb
65   \textcolor{keywordflow}{if} (write\_msg .and. (verbosity >= verb\_msg)) \textcolor{keyword}{call }mpp\_error(note, message)
66 
\end{DoxyCode}
\mbox{\Hypertarget{namespacemom__error__handler_a12e2a267e28b6e335f7492a058f4dfa0}\label{namespacemom__error__handler_a12e2a267e28b6e335f7492a058f4dfa0}} 
\index{mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}!mom\+\_\+set\+\_\+verbosity@{mom\+\_\+set\+\_\+verbosity}}
\index{mom\+\_\+set\+\_\+verbosity@{mom\+\_\+set\+\_\+verbosity}!mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}}
\subsubsection{\texorpdfstring{mom\+\_\+set\+\_\+verbosity()}{mom\_set\_verbosity()}}
{\footnotesize\ttfamily subroutine, public mom\+\_\+error\+\_\+handler\+::mom\+\_\+set\+\_\+verbosity (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{verb }\end{DoxyParamCaption})}



This subroutine sets the level of verbosity filtering M\+OM error messages. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em verb} & A level of verbosity to set \\
\hline
\end{DoxyParams}


Definition at line 97 of file M\+O\+M\+\_\+error\+\_\+handler.\+F90.


\begin{DoxyCode}
97   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: verb\textcolor{comment}{ !< A level of verbosity to set}
98   \textcolor{keywordtype}{character(len=80)} :: msg
99   \textcolor{keywordflow}{if} (verb>0 .and. verb<10) \textcolor{keywordflow}{then}
100     verbosity=verb
101   \textcolor{keywordflow}{else}
102     \textcolor{keyword}{write}(msg(1:80),\textcolor{stringliteral}{'("Attempt to set verbosity outside of range (0-9). verb=",I0)'}) verb
103     \textcolor{keyword}{call }mom\_error(fatal,msg)
104 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
\mbox{\Hypertarget{namespacemom__error__handler_a89f02f60296620d3b28e73bd4d771987}\label{namespacemom__error__handler_a89f02f60296620d3b28e73bd4d771987}} 
\index{mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}!mom\+\_\+verbose\+\_\+enough@{mom\+\_\+verbose\+\_\+enough}}
\index{mom\+\_\+verbose\+\_\+enough@{mom\+\_\+verbose\+\_\+enough}!mom\+\_\+error\+\_\+handler@{mom\+\_\+error\+\_\+handler}}
\subsubsection{\texorpdfstring{mom\+\_\+verbose\+\_\+enough()}{mom\_verbose\_enough()}}
{\footnotesize\ttfamily logical function, public mom\+\_\+error\+\_\+handler\+::mom\+\_\+verbose\+\_\+enough (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{verb }\end{DoxyParamCaption})}



This tests whether the level of verbosity filtering M\+OM error messages is sufficient to write a message of verbosity level verb. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em verb} & A level of verbosity to test \\
\hline
\end{DoxyParams}


Definition at line 116 of file M\+O\+M\+\_\+error\+\_\+handler.\+F90.


\begin{DoxyCode}
116   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: verb\textcolor{comment}{ !< A level of verbosity to test}
117   \textcolor{keywordtype}{logical} :: mom\_verbose\_enough
118   mom\_verbose\_enough = (verbosity >= verb)
\end{DoxyCode}
