\hypertarget{interfacemom__restart_1_1query__initialized}{}\doxysection{mom\+\_\+restart\+::query\+\_\+initialized Interface Reference}
\label{interfacemom__restart_1_1query__initialized}\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}}


\doxysubsection{Detailed Description}
Indicate whether a field has been read from a restart file. 

Definition at line 127 of file M\+O\+M\+\_\+restart.\+F90.

\doxysubsection*{Private functions}
\begin{DoxyCompactItemize}
\item 
logical function \mbox{\hyperlink{interfacemom__restart_1_1query__initialized_aab7618a35470325d0e71f735062076df}{query\+\_\+initialized\+\_\+name}} (name, CS)
\begin{DoxyCompactList}\small\item\em query\+\_\+initialized\+\_\+name determines whether a named field has been successfully read from a restart file yet. \end{DoxyCompactList}\item 
logical function \mbox{\hyperlink{interfacemom__restart_1_1query__initialized_a019232dcb10d95b4afb2465e3e9d156e}{query\+\_\+initialized\+\_\+0d}} (f\+\_\+ptr, CS)
\begin{DoxyCompactList}\small\item\em Indicate whether the field pointed to by f\+\_\+ptr has been initialized from a restart file. \end{DoxyCompactList}\item 
logical function \mbox{\hyperlink{interfacemom__restart_1_1query__initialized_a9b9078b4d2d319db2e42c5b136297ef3}{query\+\_\+initialized\+\_\+0d\+\_\+name}} (f\+\_\+ptr, name, CS)
\begin{DoxyCompactList}\small\item\em Indicate whether the field pointed to by f\+\_\+ptr or with the specified variable name has been initialized from a restart file. \end{DoxyCompactList}\item 
logical function \mbox{\hyperlink{interfacemom__restart_1_1query__initialized_af7d990c5d2fa87ba9ded702da6882e8a}{query\+\_\+initialized\+\_\+1d}} (f\+\_\+ptr, CS)
\begin{DoxyCompactList}\small\item\em Indicate whether the field pointed to by f\+\_\+ptr has been initialized from a restart file. \end{DoxyCompactList}\item 
logical function \mbox{\hyperlink{interfacemom__restart_1_1query__initialized_abc9c751887b1b1de63f314083190ae55}{query\+\_\+initialized\+\_\+1d\+\_\+name}} (f\+\_\+ptr, name, CS)
\begin{DoxyCompactList}\small\item\em Indicate whether the field pointed to by f\+\_\+ptr or with the specified variable name has been initialized from a restart file. \end{DoxyCompactList}\item 
logical function \mbox{\hyperlink{interfacemom__restart_1_1query__initialized_a26a3f5be16287c44d1c6671d09b57146}{query\+\_\+initialized\+\_\+2d}} (f\+\_\+ptr, CS)
\begin{DoxyCompactList}\small\item\em Indicate whether the field pointed to by f\+\_\+ptr has been initialized from a restart file. \end{DoxyCompactList}\item 
logical function \mbox{\hyperlink{interfacemom__restart_1_1query__initialized_a16c24c5211593798974d8b031df3f09f}{query\+\_\+initialized\+\_\+2d\+\_\+name}} (f\+\_\+ptr, name, CS)
\begin{DoxyCompactList}\small\item\em Indicate whether the field pointed to by f\+\_\+ptr or with the specified variable name has been initialized from a restart file. \end{DoxyCompactList}\item 
logical function \mbox{\hyperlink{interfacemom__restart_1_1query__initialized_a279ceb2d87f86af8cfe05c3b31591f7e}{query\+\_\+initialized\+\_\+3d}} (f\+\_\+ptr, CS)
\begin{DoxyCompactList}\small\item\em Indicate whether the field pointed to by f\+\_\+ptr has been initialized from a restart file. \end{DoxyCompactList}\item 
logical function \mbox{\hyperlink{interfacemom__restart_1_1query__initialized_a2a6459fa473dac0bcc1c021e617d1b12}{query\+\_\+initialized\+\_\+3d\+\_\+name}} (f\+\_\+ptr, name, CS)
\begin{DoxyCompactList}\small\item\em Indicate whether the field pointed to by f\+\_\+ptr or with the specified variable name has been initialized from a restart file. \end{DoxyCompactList}\item 
logical function \mbox{\hyperlink{interfacemom__restart_1_1query__initialized_a8ac9fb65f1baf382c18cc83882c97aa6}{query\+\_\+initialized\+\_\+4d}} (f\+\_\+ptr, CS)
\begin{DoxyCompactList}\small\item\em Indicate whether the field pointed to by f\+\_\+ptr has been initialized from a restart file. \end{DoxyCompactList}\item 
logical function \mbox{\hyperlink{interfacemom__restart_1_1query__initialized_a45b4e201527e3ce2d238e895d855878f}{query\+\_\+initialized\+\_\+4d\+\_\+name}} (f\+\_\+ptr, name, CS)
\begin{DoxyCompactList}\small\item\em Indicate whether the field pointed to by f\+\_\+ptr or with the specified variable name has been initialized from a restart file. \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}
Indicate whether a field has been read from a restart file. 

Definition at line 127 of file M\+O\+M\+\_\+restart.\+F90.



\doxysubsection{Functions and subroutines}
\mbox{\Hypertarget{interfacemom__restart_1_1query__initialized_a019232dcb10d95b4afb2465e3e9d156e}\label{interfacemom__restart_1_1query__initialized_a019232dcb10d95b4afb2465e3e9d156e}} 
\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}!query\_initialized\_0d@{query\_initialized\_0d}}
\index{query\_initialized\_0d@{query\_initialized\_0d}!mom\_restart::query\_initialized@{mom\_restart::query\_initialized}}
\doxysubsubsection{\texorpdfstring{query\_initialized\_0d()}{query\_initialized\_0d()}}
{\footnotesize\ttfamily logical function mom\+\_\+restart\+::query\+\_\+initialized\+::query\+\_\+initialized\+\_\+0d (\begin{DoxyParamCaption}\item[{real, intent(in), target}]{f\+\_\+ptr,  }\item[{type(\mbox{\hyperlink{structmom__restart_1_1mom__restart__cs}{mom\+\_\+restart\+\_\+cs}}), pointer}]{CS }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Indicate whether the field pointed to by f\+\_\+ptr has been initialized from a restart file. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em f\+\_\+ptr} & A pointer to the field that is being queried \\
\hline
 & {\em cs} & A pointer to a M\+O\+M\+\_\+restart\+\_\+\+CS object (intent in) \\
\hline
\end{DoxyParams}


Definition at line 535 of file M\+O\+M\+\_\+restart.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{536 \textcolor{keywordtype}{  real},         \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: f\_ptr\textcolor{comment}{ !< A pointer to the field that is being queried}}
\DoxyCodeLine{537   \textcolor{keywordtype}{type}(MOM\_restart\_CS), \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{ !< A pointer to a MOM\_restart\_CS object (intent in)}}
\DoxyCodeLine{538   \textcolor{keywordtype}{logical} :: query\_initialized}
\DoxyCodeLine{539 \textcolor{comment}{!   This subroutine tests whether the field pointed to by f\_ptr has}}
\DoxyCodeLine{540 \textcolor{comment}{! been initialized from a restart file.}}
\DoxyCodeLine{541 }
\DoxyCodeLine{542   \textcolor{keywordtype}{integer} :: m,n}
\DoxyCodeLine{543   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keyword}{call }mom\_error(fatal, \textcolor{stringliteral}{"{}MOM\_restart "{}} // \&}
\DoxyCodeLine{544       \textcolor{stringliteral}{"{}query\_initialized: Module must be initialized before it is used."{}})}
\DoxyCodeLine{545   \textcolor{keywordflow}{if} (cs\%novars > cs\%max\_fields) \textcolor{keyword}{call }restart\_error(cs)}
\DoxyCodeLine{546 }
\DoxyCodeLine{547   query\_initialized = .false.}
\DoxyCodeLine{548   n = cs\%novars+1}
\DoxyCodeLine{549   \textcolor{keywordflow}{do} m=1,cs\%novars}
\DoxyCodeLine{550     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(cs\%var\_ptr0d(m)\%p,f\_ptr)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{551       \textcolor{keywordflow}{if} (cs\%restart\_field(m)\%initialized) query\_initialized = .true.}
\DoxyCodeLine{552       n = m ; \textcolor{keywordflow}{exit}}
\DoxyCodeLine{553 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{554 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{555 \textcolor{comment}{! Assume that you are going to initialize it now, so set flag to initialized if}}
\DoxyCodeLine{556 \textcolor{comment}{! queried again.}}
\DoxyCodeLine{557   \textcolor{keywordflow}{if} (n<=cs\%novars) cs\%restart\_field(n)\%initialized = .true.}
\DoxyCodeLine{558 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__restart_1_1query__initialized_a9b9078b4d2d319db2e42c5b136297ef3}\label{interfacemom__restart_1_1query__initialized_a9b9078b4d2d319db2e42c5b136297ef3}} 
\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}!query\_initialized\_0d\_name@{query\_initialized\_0d\_name}}
\index{query\_initialized\_0d\_name@{query\_initialized\_0d\_name}!mom\_restart::query\_initialized@{mom\_restart::query\_initialized}}
\doxysubsubsection{\texorpdfstring{query\_initialized\_0d\_name()}{query\_initialized\_0d\_name()}}
{\footnotesize\ttfamily logical function mom\+\_\+restart\+::query\+\_\+initialized\+::query\+\_\+initialized\+\_\+0d\+\_\+name (\begin{DoxyParamCaption}\item[{real, intent(in), target}]{f\+\_\+ptr,  }\item[{character(len=$\ast$), intent(in)}]{name,  }\item[{type(\mbox{\hyperlink{structmom__restart_1_1mom__restart__cs}{mom\+\_\+restart\+\_\+cs}}), pointer}]{CS }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Indicate whether the field pointed to by f\+\_\+ptr or with the specified variable name has been initialized from a restart file. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em f\+\_\+ptr} & A pointer to the field that is being queried \\
\hline
\mbox{\texttt{ in}}  & {\em name} & The name of the field that is being queried \\
\hline
 & {\em cs} & A pointer to a M\+O\+M\+\_\+restart\+\_\+\+CS object (intent in) \\
\hline
\end{DoxyParams}


Definition at line 674 of file M\+O\+M\+\_\+restart.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{675 \textcolor{keywordtype}{  real},         \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: f\_ptr\textcolor{comment}{ !< A pointer to the field that is being queried}}
\DoxyCodeLine{676   \textcolor{keywordtype}{character(len=*)},     \textcolor{keywordtype}{intent(in)} :: name\textcolor{comment}{ !< The name of the field that is being queried}}
\DoxyCodeLine{677   \textcolor{keywordtype}{type}(MOM\_restart\_CS), \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{ !< A pointer to a MOM\_restart\_CS object (intent in)}}
\DoxyCodeLine{678   \textcolor{keywordtype}{logical} :: query\_initialized}
\DoxyCodeLine{679 \textcolor{comment}{!   This subroutine tests whether the field pointed to by f\_ptr or with the}}
\DoxyCodeLine{680 \textcolor{comment}{! specified variable name has been initialized from a restart file.}}
\DoxyCodeLine{681 }
\DoxyCodeLine{682   \textcolor{keywordtype}{integer} :: m,n}
\DoxyCodeLine{683   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keyword}{call }mom\_error(fatal, \textcolor{stringliteral}{"{}MOM\_restart "{}} // \&}
\DoxyCodeLine{684       \textcolor{stringliteral}{"{}query\_initialized: Module must be initialized before it is used."{}})}
\DoxyCodeLine{685   \textcolor{keywordflow}{if} (cs\%novars > cs\%max\_fields) \textcolor{keyword}{call }restart\_error(cs)}
\DoxyCodeLine{686 }
\DoxyCodeLine{687   query\_initialized = .false.}
\DoxyCodeLine{688   n = cs\%novars+1}
\DoxyCodeLine{689   \textcolor{keywordflow}{do} m=1,cs\%novars}
\DoxyCodeLine{690     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(cs\%var\_ptr0d(m)\%p,f\_ptr)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{691       \textcolor{keywordflow}{if} (cs\%restart\_field(m)\%initialized) query\_initialized = .true.}
\DoxyCodeLine{692       n = m ; \textcolor{keywordflow}{exit}}
\DoxyCodeLine{693 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{694 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{695 \textcolor{comment}{! Assume that you are going to initialize it now, so set flag to initialized if}}
\DoxyCodeLine{696 \textcolor{comment}{! queried again.}}
\DoxyCodeLine{697   \textcolor{keywordflow}{if} (n<=cs\%novars) cs\%restart\_field(n)\%initialized = .true.}
\DoxyCodeLine{698   \textcolor{keywordflow}{if} (n==cs\%novars+1) \textcolor{keywordflow}{then}}
\DoxyCodeLine{699     \textcolor{keywordflow}{if} (is\_root\_pe()) \&}
\DoxyCodeLine{700       \textcolor{keyword}{call }mom\_error(note,\textcolor{stringliteral}{"{}MOM\_restart: Unable to find "{}}//name//\textcolor{stringliteral}{"{} queried by pointer, "{}}//\&}
\DoxyCodeLine{701         \textcolor{stringliteral}{"{}probably because of the suspect comparison of pointers by ASSOCIATED."{}})}
\DoxyCodeLine{702     query\_initialized = query\_initialized\_name(name, cs)}
\DoxyCodeLine{703 \textcolor{keywordflow}{  endif}}
\DoxyCodeLine{704 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__restart_1_1query__initialized_af7d990c5d2fa87ba9ded702da6882e8a}\label{interfacemom__restart_1_1query__initialized_af7d990c5d2fa87ba9ded702da6882e8a}} 
\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}!query\_initialized\_1d@{query\_initialized\_1d}}
\index{query\_initialized\_1d@{query\_initialized\_1d}!mom\_restart::query\_initialized@{mom\_restart::query\_initialized}}
\doxysubsubsection{\texorpdfstring{query\_initialized\_1d()}{query\_initialized\_1d()}}
{\footnotesize\ttfamily logical function mom\+\_\+restart\+::query\+\_\+initialized\+::query\+\_\+initialized\+\_\+1d (\begin{DoxyParamCaption}\item[{real, dimension(\+:), intent(in), target}]{f\+\_\+ptr,  }\item[{type(\mbox{\hyperlink{structmom__restart_1_1mom__restart__cs}{mom\+\_\+restart\+\_\+cs}}), pointer}]{CS }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Indicate whether the field pointed to by f\+\_\+ptr has been initialized from a restart file. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em f\+\_\+ptr} & A pointer to the field that is being queried \\
\hline
 & {\em cs} & A pointer to a M\+O\+M\+\_\+restart\+\_\+\+CS object (intent in) \\
\hline
\end{DoxyParams}


Definition at line 562 of file M\+O\+M\+\_\+restart.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{563 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: f\_ptr\textcolor{comment}{ !< A pointer to the field that is being queried}}
\DoxyCodeLine{564   \textcolor{keywordtype}{type}(MOM\_restart\_CS),       \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{ !< A pointer to a MOM\_restart\_CS object (intent in)}}
\DoxyCodeLine{565   \textcolor{keywordtype}{logical} :: query\_initialized}
\DoxyCodeLine{566 \textcolor{comment}{!   This subroutine tests whether the field pointed to by f\_ptr has}}
\DoxyCodeLine{567 \textcolor{comment}{! been initialized from a restart file.}}
\DoxyCodeLine{568 }
\DoxyCodeLine{569   \textcolor{keywordtype}{integer} :: m,n}
\DoxyCodeLine{570   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keyword}{call }mom\_error(fatal, \textcolor{stringliteral}{"{}MOM\_restart "{}} // \&}
\DoxyCodeLine{571       \textcolor{stringliteral}{"{}query\_initialized: Module must be initialized before it is used."{}})}
\DoxyCodeLine{572   \textcolor{keywordflow}{if} (cs\%novars > cs\%max\_fields) \textcolor{keyword}{call }restart\_error(cs)}
\DoxyCodeLine{573 }
\DoxyCodeLine{574   query\_initialized = .false.}
\DoxyCodeLine{575   n = cs\%novars+1}
\DoxyCodeLine{576   \textcolor{keywordflow}{do} m=1,cs\%novars}
\DoxyCodeLine{577     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(cs\%var\_ptr1d(m)\%p,f\_ptr)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{578       \textcolor{keywordflow}{if} (cs\%restart\_field(m)\%initialized) query\_initialized = .true.}
\DoxyCodeLine{579       n = m ; \textcolor{keywordflow}{exit}}
\DoxyCodeLine{580 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{581 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{582 \textcolor{comment}{! Assume that you are going to initialize it now, so set flag to initialized if}}
\DoxyCodeLine{583 \textcolor{comment}{! queried again.}}
\DoxyCodeLine{584   \textcolor{keywordflow}{if} (n<=cs\%novars) cs\%restart\_field(n)\%initialized = .true.}
\DoxyCodeLine{585 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__restart_1_1query__initialized_abc9c751887b1b1de63f314083190ae55}\label{interfacemom__restart_1_1query__initialized_abc9c751887b1b1de63f314083190ae55}} 
\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}!query\_initialized\_1d\_name@{query\_initialized\_1d\_name}}
\index{query\_initialized\_1d\_name@{query\_initialized\_1d\_name}!mom\_restart::query\_initialized@{mom\_restart::query\_initialized}}
\doxysubsubsection{\texorpdfstring{query\_initialized\_1d\_name()}{query\_initialized\_1d\_name()}}
{\footnotesize\ttfamily logical function mom\+\_\+restart\+::query\+\_\+initialized\+::query\+\_\+initialized\+\_\+1d\+\_\+name (\begin{DoxyParamCaption}\item[{real, dimension(\+:), intent(in), target}]{f\+\_\+ptr,  }\item[{character(len=$\ast$), intent(in)}]{name,  }\item[{type(\mbox{\hyperlink{structmom__restart_1_1mom__restart__cs}{mom\+\_\+restart\+\_\+cs}}), pointer}]{CS }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Indicate whether the field pointed to by f\+\_\+ptr or with the specified variable name has been initialized from a restart file. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em f\+\_\+ptr} & A pointer to the field that is being queried \\
\hline
\mbox{\texttt{ in}}  & {\em name} & The name of the field that is being queried \\
\hline
 & {\em cs} & A pointer to a M\+O\+M\+\_\+restart\+\_\+\+CS object (intent in) \\
\hline
\end{DoxyParams}


Definition at line 709 of file M\+O\+M\+\_\+restart.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{710 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:)},  \&}
\DoxyCodeLine{711                 \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: f\_ptr\textcolor{comment}{ !< A pointer to the field that is being queried}}
\DoxyCodeLine{712   \textcolor{keywordtype}{character(len=*)},     \textcolor{keywordtype}{intent(in)} :: name\textcolor{comment}{ !< The name of the field that is being queried}}
\DoxyCodeLine{713   \textcolor{keywordtype}{type}(MOM\_restart\_CS), \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{ !< A pointer to a MOM\_restart\_CS object (intent in)}}
\DoxyCodeLine{714   \textcolor{keywordtype}{logical} :: query\_initialized}
\DoxyCodeLine{715 \textcolor{comment}{!   This subroutine tests whether the field pointed to by f\_ptr or with the}}
\DoxyCodeLine{716 \textcolor{comment}{! specified variable name has been initialized from a restart file.}}
\DoxyCodeLine{717 }
\DoxyCodeLine{718   \textcolor{keywordtype}{integer} :: m,n}
\DoxyCodeLine{719   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keyword}{call }mom\_error(fatal, \textcolor{stringliteral}{"{}MOM\_restart "{}} // \&}
\DoxyCodeLine{720       \textcolor{stringliteral}{"{}query\_initialized: Module must be initialized before it is used."{}})}
\DoxyCodeLine{721   \textcolor{keywordflow}{if} (cs\%novars > cs\%max\_fields) \textcolor{keyword}{call }restart\_error(cs)}
\DoxyCodeLine{722 }
\DoxyCodeLine{723   query\_initialized = .false.}
\DoxyCodeLine{724   n = cs\%novars+1}
\DoxyCodeLine{725   \textcolor{keywordflow}{do} m=1,cs\%novars}
\DoxyCodeLine{726     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(cs\%var\_ptr1d(m)\%p,f\_ptr)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{727       \textcolor{keywordflow}{if} (cs\%restart\_field(m)\%initialized) query\_initialized = .true.}
\DoxyCodeLine{728       n = m ; \textcolor{keywordflow}{exit}}
\DoxyCodeLine{729 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{730 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{731 \textcolor{comment}{! Assume that you are going to initialize it now, so set flag to initialized if}}
\DoxyCodeLine{732 \textcolor{comment}{! queried again.}}
\DoxyCodeLine{733   \textcolor{keywordflow}{if} (n<=cs\%novars) cs\%restart\_field(n)\%initialized = .true.}
\DoxyCodeLine{734   \textcolor{keywordflow}{if} (n==cs\%novars+1) \textcolor{keywordflow}{then}}
\DoxyCodeLine{735     \textcolor{keywordflow}{if} (is\_root\_pe()) \&}
\DoxyCodeLine{736       \textcolor{keyword}{call }mom\_error(note,\textcolor{stringliteral}{"{}MOM\_restart: Unable to find "{}}//name//\textcolor{stringliteral}{"{} queried by pointer, "{}}//\&}
\DoxyCodeLine{737         \textcolor{stringliteral}{"{}probably because of the suspect comparison of pointers by ASSOCIATED."{}})}
\DoxyCodeLine{738     query\_initialized = query\_initialized\_name(name, cs)}
\DoxyCodeLine{739 \textcolor{keywordflow}{  endif}}
\DoxyCodeLine{740 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__restart_1_1query__initialized_a26a3f5be16287c44d1c6671d09b57146}\label{interfacemom__restart_1_1query__initialized_a26a3f5be16287c44d1c6671d09b57146}} 
\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}!query\_initialized\_2d@{query\_initialized\_2d}}
\index{query\_initialized\_2d@{query\_initialized\_2d}!mom\_restart::query\_initialized@{mom\_restart::query\_initialized}}
\doxysubsubsection{\texorpdfstring{query\_initialized\_2d()}{query\_initialized\_2d()}}
{\footnotesize\ttfamily logical function mom\+\_\+restart\+::query\+\_\+initialized\+::query\+\_\+initialized\+\_\+2d (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:), intent(in), target}]{f\+\_\+ptr,  }\item[{type(\mbox{\hyperlink{structmom__restart_1_1mom__restart__cs}{mom\+\_\+restart\+\_\+cs}}), pointer}]{CS }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Indicate whether the field pointed to by f\+\_\+ptr has been initialized from a restart file. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em f\+\_\+ptr} & A pointer to the field that is being queried \\
\hline
 & {\em cs} & A pointer to a M\+O\+M\+\_\+restart\+\_\+\+CS object (intent in) \\
\hline
\end{DoxyParams}


Definition at line 589 of file M\+O\+M\+\_\+restart.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{590 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:)}, \&}
\DoxyCodeLine{591                 \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: f\_ptr\textcolor{comment}{ !< A pointer to the field that is being queried}}
\DoxyCodeLine{592   \textcolor{keywordtype}{type}(MOM\_restart\_CS), \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{ !< A pointer to a MOM\_restart\_CS object (intent in)}}
\DoxyCodeLine{593   \textcolor{keywordtype}{logical} :: query\_initialized}
\DoxyCodeLine{594 \textcolor{comment}{!   This subroutine tests whether the field pointed to by f\_ptr has}}
\DoxyCodeLine{595 \textcolor{comment}{! been initialized from a restart file.}}
\DoxyCodeLine{596 }
\DoxyCodeLine{597   \textcolor{keywordtype}{integer} :: m,n}
\DoxyCodeLine{598   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keyword}{call }mom\_error(fatal, \textcolor{stringliteral}{"{}MOM\_restart "{}} // \&}
\DoxyCodeLine{599       \textcolor{stringliteral}{"{}query\_initialized: Module must be initialized before it is used."{}})}
\DoxyCodeLine{600   \textcolor{keywordflow}{if} (cs\%novars > cs\%max\_fields) \textcolor{keyword}{call }restart\_error(cs)}
\DoxyCodeLine{601 }
\DoxyCodeLine{602   query\_initialized = .false.}
\DoxyCodeLine{603   n = cs\%novars+1}
\DoxyCodeLine{604   \textcolor{keywordflow}{do} m=1,cs\%novars}
\DoxyCodeLine{605     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(cs\%var\_ptr2d(m)\%p,f\_ptr)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{606       \textcolor{keywordflow}{if} (cs\%restart\_field(m)\%initialized) query\_initialized = .true.}
\DoxyCodeLine{607       n = m ; \textcolor{keywordflow}{exit}}
\DoxyCodeLine{608 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{609 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{610 \textcolor{comment}{! Assume that you are going to initialize it now, so set flag to initialized if}}
\DoxyCodeLine{611 \textcolor{comment}{! queried again.}}
\DoxyCodeLine{612   \textcolor{keywordflow}{if} (n<=cs\%novars) cs\%restart\_field(n)\%initialized = .true.}
\DoxyCodeLine{613 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__restart_1_1query__initialized_a16c24c5211593798974d8b031df3f09f}\label{interfacemom__restart_1_1query__initialized_a16c24c5211593798974d8b031df3f09f}} 
\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}!query\_initialized\_2d\_name@{query\_initialized\_2d\_name}}
\index{query\_initialized\_2d\_name@{query\_initialized\_2d\_name}!mom\_restart::query\_initialized@{mom\_restart::query\_initialized}}
\doxysubsubsection{\texorpdfstring{query\_initialized\_2d\_name()}{query\_initialized\_2d\_name()}}
{\footnotesize\ttfamily logical function mom\+\_\+restart\+::query\+\_\+initialized\+::query\+\_\+initialized\+\_\+2d\+\_\+name (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:), intent(in), target}]{f\+\_\+ptr,  }\item[{character(len=$\ast$), intent(in)}]{name,  }\item[{type(\mbox{\hyperlink{structmom__restart_1_1mom__restart__cs}{mom\+\_\+restart\+\_\+cs}}), pointer}]{CS }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Indicate whether the field pointed to by f\+\_\+ptr or with the specified variable name has been initialized from a restart file. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em f\+\_\+ptr} & A pointer to the field that is being queried \\
\hline
\mbox{\texttt{ in}}  & {\em name} & The name of the field that is being queried \\
\hline
 & {\em cs} & A pointer to a M\+O\+M\+\_\+restart\+\_\+\+CS object (intent in) \\
\hline
\end{DoxyParams}


Definition at line 745 of file M\+O\+M\+\_\+restart.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{746 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:)},  \&}
\DoxyCodeLine{747                 \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: f\_ptr\textcolor{comment}{ !< A pointer to the field that is being queried}}
\DoxyCodeLine{748   \textcolor{keywordtype}{character(len=*)},     \textcolor{keywordtype}{intent(in)} :: name\textcolor{comment}{ !< The name of the field that is being queried}}
\DoxyCodeLine{749   \textcolor{keywordtype}{type}(MOM\_restart\_CS), \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{ !< A pointer to a MOM\_restart\_CS object (intent in)}}
\DoxyCodeLine{750   \textcolor{keywordtype}{logical} :: query\_initialized}
\DoxyCodeLine{751 \textcolor{comment}{!   This subroutine tests whether the field pointed to by f\_ptr or with the}}
\DoxyCodeLine{752 \textcolor{comment}{! specified variable name has been initialized from a restart file.}}
\DoxyCodeLine{753 }
\DoxyCodeLine{754   \textcolor{keywordtype}{integer} :: m,n}
\DoxyCodeLine{755   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keyword}{call }mom\_error(fatal, \textcolor{stringliteral}{"{}MOM\_restart "{}} // \&}
\DoxyCodeLine{756       \textcolor{stringliteral}{"{}query\_initialized: Module must be initialized before it is used."{}})}
\DoxyCodeLine{757   \textcolor{keywordflow}{if} (cs\%novars > cs\%max\_fields) \textcolor{keyword}{call }restart\_error(cs)}
\DoxyCodeLine{758 }
\DoxyCodeLine{759   query\_initialized = .false.}
\DoxyCodeLine{760   n = cs\%novars+1}
\DoxyCodeLine{761   \textcolor{keywordflow}{do} m=1,cs\%novars}
\DoxyCodeLine{762     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(cs\%var\_ptr2d(m)\%p,f\_ptr)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{763       \textcolor{keywordflow}{if} (cs\%restart\_field(m)\%initialized) query\_initialized = .true.}
\DoxyCodeLine{764       n = m ; \textcolor{keywordflow}{exit}}
\DoxyCodeLine{765 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{766 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{767 \textcolor{comment}{! Assume that you are going to initialize it now, so set flag to initialized if}}
\DoxyCodeLine{768 \textcolor{comment}{! queried again.}}
\DoxyCodeLine{769   \textcolor{keywordflow}{if} (n<=cs\%novars) cs\%restart\_field(n)\%initialized = .true.}
\DoxyCodeLine{770   \textcolor{keywordflow}{if} (n==cs\%novars+1) \textcolor{keywordflow}{then}}
\DoxyCodeLine{771     \textcolor{keywordflow}{if} (is\_root\_pe()) \&}
\DoxyCodeLine{772       \textcolor{keyword}{call }mom\_error(note,\textcolor{stringliteral}{"{}MOM\_restart: Unable to find "{}}//name//\textcolor{stringliteral}{"{} queried by pointer, "{}}//\&}
\DoxyCodeLine{773         \textcolor{stringliteral}{"{}probably because of the suspect comparison of pointers by ASSOCIATED."{}})}
\DoxyCodeLine{774     query\_initialized = query\_initialized\_name(name, cs)}
\DoxyCodeLine{775 \textcolor{keywordflow}{  endif}}
\DoxyCodeLine{776 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__restart_1_1query__initialized_a279ceb2d87f86af8cfe05c3b31591f7e}\label{interfacemom__restart_1_1query__initialized_a279ceb2d87f86af8cfe05c3b31591f7e}} 
\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}!query\_initialized\_3d@{query\_initialized\_3d}}
\index{query\_initialized\_3d@{query\_initialized\_3d}!mom\_restart::query\_initialized@{mom\_restart::query\_initialized}}
\doxysubsubsection{\texorpdfstring{query\_initialized\_3d()}{query\_initialized\_3d()}}
{\footnotesize\ttfamily logical function mom\+\_\+restart\+::query\+\_\+initialized\+::query\+\_\+initialized\+\_\+3d (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:,\+:), intent(in), target}]{f\+\_\+ptr,  }\item[{type(\mbox{\hyperlink{structmom__restart_1_1mom__restart__cs}{mom\+\_\+restart\+\_\+cs}}), pointer}]{CS }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Indicate whether the field pointed to by f\+\_\+ptr has been initialized from a restart file. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em f\+\_\+ptr} & A pointer to the field that is being queried \\
\hline
 & {\em cs} & A pointer to a M\+O\+M\+\_\+restart\+\_\+\+CS object (intent in) \\
\hline
\end{DoxyParams}


Definition at line 617 of file M\+O\+M\+\_\+restart.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{618 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:,:)}, \&}
\DoxyCodeLine{619                 \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: f\_ptr\textcolor{comment}{ !< A pointer to the field that is being queried}}
\DoxyCodeLine{620   \textcolor{keywordtype}{type}(MOM\_restart\_CS), \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{ !< A pointer to a MOM\_restart\_CS object (intent in)}}
\DoxyCodeLine{621   \textcolor{keywordtype}{logical} :: query\_initialized}
\DoxyCodeLine{622 \textcolor{comment}{!   This subroutine tests whether the field pointed to by f\_ptr has}}
\DoxyCodeLine{623 \textcolor{comment}{! been initialized from a restart file.}}
\DoxyCodeLine{624 }
\DoxyCodeLine{625   \textcolor{keywordtype}{integer} :: m,n}
\DoxyCodeLine{626   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keyword}{call }mom\_error(fatal, \textcolor{stringliteral}{"{}MOM\_restart "{}} // \&}
\DoxyCodeLine{627       \textcolor{stringliteral}{"{}query\_initialized: Module must be initialized before it is used."{}})}
\DoxyCodeLine{628   \textcolor{keywordflow}{if} (cs\%novars > cs\%max\_fields) \textcolor{keyword}{call }restart\_error(cs)}
\DoxyCodeLine{629 }
\DoxyCodeLine{630   query\_initialized = .false.}
\DoxyCodeLine{631   n = cs\%novars+1}
\DoxyCodeLine{632   \textcolor{keywordflow}{do} m=1,cs\%novars}
\DoxyCodeLine{633     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(cs\%var\_ptr3d(m)\%p,f\_ptr)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{634       \textcolor{keywordflow}{if} (cs\%restart\_field(m)\%initialized) query\_initialized = .true.}
\DoxyCodeLine{635       n = m ; \textcolor{keywordflow}{exit}}
\DoxyCodeLine{636 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{637 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{638 \textcolor{comment}{! Assume that you are going to initialize it now, so set flag to initialized if}}
\DoxyCodeLine{639 \textcolor{comment}{! queried again.}}
\DoxyCodeLine{640   \textcolor{keywordflow}{if} (n<=cs\%novars) cs\%restart\_field(n)\%initialized = .true.}
\DoxyCodeLine{641 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__restart_1_1query__initialized_a2a6459fa473dac0bcc1c021e617d1b12}\label{interfacemom__restart_1_1query__initialized_a2a6459fa473dac0bcc1c021e617d1b12}} 
\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}!query\_initialized\_3d\_name@{query\_initialized\_3d\_name}}
\index{query\_initialized\_3d\_name@{query\_initialized\_3d\_name}!mom\_restart::query\_initialized@{mom\_restart::query\_initialized}}
\doxysubsubsection{\texorpdfstring{query\_initialized\_3d\_name()}{query\_initialized\_3d\_name()}}
{\footnotesize\ttfamily logical function mom\+\_\+restart\+::query\+\_\+initialized\+::query\+\_\+initialized\+\_\+3d\+\_\+name (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:,\+:), intent(in), target}]{f\+\_\+ptr,  }\item[{character(len=$\ast$), intent(in)}]{name,  }\item[{type(\mbox{\hyperlink{structmom__restart_1_1mom__restart__cs}{mom\+\_\+restart\+\_\+cs}}), pointer}]{CS }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Indicate whether the field pointed to by f\+\_\+ptr or with the specified variable name has been initialized from a restart file. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em f\+\_\+ptr} & A pointer to the field that is being queried \\
\hline
\mbox{\texttt{ in}}  & {\em name} & The name of the field that is being queried \\
\hline
 & {\em cs} & A pointer to a M\+O\+M\+\_\+restart\+\_\+\+CS object (intent in) \\
\hline
\end{DoxyParams}


Definition at line 781 of file M\+O\+M\+\_\+restart.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{782 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:,:)},  \&}
\DoxyCodeLine{783                 \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: f\_ptr\textcolor{comment}{ !< A pointer to the field that is being queried}}
\DoxyCodeLine{784   \textcolor{keywordtype}{character(len=*)},     \textcolor{keywordtype}{intent(in)} :: name\textcolor{comment}{ !< The name of the field that is being queried}}
\DoxyCodeLine{785   \textcolor{keywordtype}{type}(MOM\_restart\_CS), \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{ !< A pointer to a MOM\_restart\_CS object (intent in)}}
\DoxyCodeLine{786   \textcolor{keywordtype}{logical} :: query\_initialized}
\DoxyCodeLine{787 \textcolor{comment}{!   This subroutine tests whether the field pointed to by f\_ptr or with the}}
\DoxyCodeLine{788 \textcolor{comment}{! specified variable name has been initialized from a restart file.}}
\DoxyCodeLine{789 }
\DoxyCodeLine{790   \textcolor{keywordtype}{integer} :: m, n}
\DoxyCodeLine{791   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keyword}{call }mom\_error(fatal, \textcolor{stringliteral}{"{}MOM\_restart "{}} // \&}
\DoxyCodeLine{792       \textcolor{stringliteral}{"{}query\_initialized: Module must be initialized before it is used."{}})}
\DoxyCodeLine{793   \textcolor{keywordflow}{if} (cs\%novars > cs\%max\_fields) \textcolor{keyword}{call }restart\_error(cs)}
\DoxyCodeLine{794 }
\DoxyCodeLine{795   query\_initialized = .false.}
\DoxyCodeLine{796   n = cs\%novars+1}
\DoxyCodeLine{797   \textcolor{keywordflow}{do} m=1,cs\%novars}
\DoxyCodeLine{798     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(cs\%var\_ptr3d(m)\%p,f\_ptr)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{799       \textcolor{keywordflow}{if} (cs\%restart\_field(m)\%initialized) query\_initialized = .true.}
\DoxyCodeLine{800       n = m ; \textcolor{keywordflow}{exit}}
\DoxyCodeLine{801 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{802 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{803 \textcolor{comment}{! Assume that you are going to initialize it now, so set flag to initialized if}}
\DoxyCodeLine{804 \textcolor{comment}{! queried again.}}
\DoxyCodeLine{805   \textcolor{keywordflow}{if} (n<=cs\%novars) cs\%restart\_field(n)\%initialized = .true.}
\DoxyCodeLine{806   \textcolor{keywordflow}{if} (n==cs\%novars+1) \textcolor{keywordflow}{then}}
\DoxyCodeLine{807     \textcolor{keywordflow}{if} (is\_root\_pe()) \&}
\DoxyCodeLine{808       \textcolor{keyword}{call }mom\_error(note, \textcolor{stringliteral}{"{}MOM\_restart: Unable to find "{}}//name//\textcolor{stringliteral}{"{} queried by pointer, "{}}//\&}
\DoxyCodeLine{809         \textcolor{stringliteral}{"{}possibly because of the suspect comparison of pointers by ASSOCIATED."{}})}
\DoxyCodeLine{810     query\_initialized = query\_initialized\_name(name, cs)}
\DoxyCodeLine{811 \textcolor{keywordflow}{  endif}}
\DoxyCodeLine{812 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__restart_1_1query__initialized_a8ac9fb65f1baf382c18cc83882c97aa6}\label{interfacemom__restart_1_1query__initialized_a8ac9fb65f1baf382c18cc83882c97aa6}} 
\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}!query\_initialized\_4d@{query\_initialized\_4d}}
\index{query\_initialized\_4d@{query\_initialized\_4d}!mom\_restart::query\_initialized@{mom\_restart::query\_initialized}}
\doxysubsubsection{\texorpdfstring{query\_initialized\_4d()}{query\_initialized\_4d()}}
{\footnotesize\ttfamily logical function mom\+\_\+restart\+::query\+\_\+initialized\+::query\+\_\+initialized\+\_\+4d (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:,\+:,\+:), intent(in), target}]{f\+\_\+ptr,  }\item[{type(\mbox{\hyperlink{structmom__restart_1_1mom__restart__cs}{mom\+\_\+restart\+\_\+cs}}), pointer}]{CS }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Indicate whether the field pointed to by f\+\_\+ptr has been initialized from a restart file. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em f\+\_\+ptr} & A pointer to the field that is being queried \\
\hline
 & {\em cs} & A pointer to a M\+O\+M\+\_\+restart\+\_\+\+CS object (intent in) \\
\hline
\end{DoxyParams}


Definition at line 645 of file M\+O\+M\+\_\+restart.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{646 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:,:,:)},  \&}
\DoxyCodeLine{647                 \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: f\_ptr\textcolor{comment}{ !< A pointer to the field that is being queried}}
\DoxyCodeLine{648   \textcolor{keywordtype}{type}(MOM\_restart\_CS), \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{ !< A pointer to a MOM\_restart\_CS object (intent in)}}
\DoxyCodeLine{649   \textcolor{keywordtype}{logical} :: query\_initialized}
\DoxyCodeLine{650 \textcolor{comment}{!   This subroutine tests whether the field pointed to by f\_ptr has}}
\DoxyCodeLine{651 \textcolor{comment}{! been initialized from a restart file.}}
\DoxyCodeLine{652 }
\DoxyCodeLine{653   \textcolor{keywordtype}{integer} :: m,n}
\DoxyCodeLine{654   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keyword}{call }mom\_error(fatal, \textcolor{stringliteral}{"{}MOM\_restart "{}} // \&}
\DoxyCodeLine{655       \textcolor{stringliteral}{"{}query\_initialized: Module must be initialized before it is used."{}})}
\DoxyCodeLine{656   \textcolor{keywordflow}{if} (cs\%novars > cs\%max\_fields) \textcolor{keyword}{call }restart\_error(cs)}
\DoxyCodeLine{657 }
\DoxyCodeLine{658   query\_initialized = .false.}
\DoxyCodeLine{659   n = cs\%novars+1}
\DoxyCodeLine{660   \textcolor{keywordflow}{do} m=1,cs\%novars}
\DoxyCodeLine{661     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(cs\%var\_ptr4d(m)\%p,f\_ptr)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{662       \textcolor{keywordflow}{if} (cs\%restart\_field(m)\%initialized) query\_initialized = .true.}
\DoxyCodeLine{663       n = m ; \textcolor{keywordflow}{exit}}
\DoxyCodeLine{664 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{665 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{666 \textcolor{comment}{! Assume that you are going to initialize it now, so set flag to initialized if}}
\DoxyCodeLine{667 \textcolor{comment}{! queried again.}}
\DoxyCodeLine{668   \textcolor{keywordflow}{if} (n<=cs\%novars) cs\%restart\_field(n)\%initialized = .true.}
\DoxyCodeLine{669 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__restart_1_1query__initialized_a45b4e201527e3ce2d238e895d855878f}\label{interfacemom__restart_1_1query__initialized_a45b4e201527e3ce2d238e895d855878f}} 
\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}!query\_initialized\_4d\_name@{query\_initialized\_4d\_name}}
\index{query\_initialized\_4d\_name@{query\_initialized\_4d\_name}!mom\_restart::query\_initialized@{mom\_restart::query\_initialized}}
\doxysubsubsection{\texorpdfstring{query\_initialized\_4d\_name()}{query\_initialized\_4d\_name()}}
{\footnotesize\ttfamily logical function mom\+\_\+restart\+::query\+\_\+initialized\+::query\+\_\+initialized\+\_\+4d\+\_\+name (\begin{DoxyParamCaption}\item[{real, dimension(\+:,\+:,\+:,\+:), intent(in), target}]{f\+\_\+ptr,  }\item[{character(len=$\ast$), intent(in)}]{name,  }\item[{type(\mbox{\hyperlink{structmom__restart_1_1mom__restart__cs}{mom\+\_\+restart\+\_\+cs}}), pointer}]{CS }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Indicate whether the field pointed to by f\+\_\+ptr or with the specified variable name has been initialized from a restart file. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em f\+\_\+ptr} & A pointer to the field that is being queried \\
\hline
\mbox{\texttt{ in}}  & {\em name} & The name of the field that is being queried \\
\hline
 & {\em cs} & A pointer to a M\+O\+M\+\_\+restart\+\_\+\+CS object (intent in) \\
\hline
\end{DoxyParams}


Definition at line 817 of file M\+O\+M\+\_\+restart.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{818 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{dimension(:,:,:,:)},  \&}
\DoxyCodeLine{819                 \textcolor{keywordtype}{target}, \textcolor{keywordtype}{intent(in)} :: f\_ptr\textcolor{comment}{ !< A pointer to the field that is being queried}}
\DoxyCodeLine{820   \textcolor{keywordtype}{character(len=*)},     \textcolor{keywordtype}{intent(in)} :: name\textcolor{comment}{ !< The name of the field that is being queried}}
\DoxyCodeLine{821   \textcolor{keywordtype}{type}(MOM\_restart\_CS), \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{ !< A pointer to a MOM\_restart\_CS object (intent in)}}
\DoxyCodeLine{822   \textcolor{keywordtype}{logical} :: query\_initialized}
\DoxyCodeLine{823 \textcolor{comment}{!   This subroutine tests whether the field pointed to by f\_ptr or with the}}
\DoxyCodeLine{824 \textcolor{comment}{! specified variable name has been initialized from a restart file.}}
\DoxyCodeLine{825 }
\DoxyCodeLine{826   \textcolor{keywordtype}{integer} :: m, n}
\DoxyCodeLine{827   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keyword}{call }mom\_error(fatal, \textcolor{stringliteral}{"{}MOM\_restart "{}} // \&}
\DoxyCodeLine{828       \textcolor{stringliteral}{"{}query\_initialized: Module must be initialized before it is used."{}})}
\DoxyCodeLine{829   \textcolor{keywordflow}{if} (cs\%novars > cs\%max\_fields) \textcolor{keyword}{call }restart\_error(cs)}
\DoxyCodeLine{830 }
\DoxyCodeLine{831   query\_initialized = .false.}
\DoxyCodeLine{832   n = cs\%novars+1}
\DoxyCodeLine{833   \textcolor{keywordflow}{do} m=1,cs\%novars}
\DoxyCodeLine{834     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(cs\%var\_ptr4d(m)\%p,f\_ptr)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{835       \textcolor{keywordflow}{if} (cs\%restart\_field(m)\%initialized) query\_initialized = .true.}
\DoxyCodeLine{836       n = m ; \textcolor{keywordflow}{exit}}
\DoxyCodeLine{837 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{838 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{839 \textcolor{comment}{! Assume that you are going to initialize it now, so set flag to initialized if}}
\DoxyCodeLine{840 \textcolor{comment}{! queried again.}}
\DoxyCodeLine{841   \textcolor{keywordflow}{if} (n<=cs\%novars) cs\%restart\_field(n)\%initialized = .true.}
\DoxyCodeLine{842   \textcolor{keywordflow}{if} (n==cs\%novars+1) \textcolor{keywordflow}{then}}
\DoxyCodeLine{843     \textcolor{keywordflow}{if} (is\_root\_pe()) \&}
\DoxyCodeLine{844       \textcolor{keyword}{call }mom\_error(note, \textcolor{stringliteral}{"{}MOM\_restart: Unable to find "{}}//name//\textcolor{stringliteral}{"{} queried by pointer, "{}}//\&}
\DoxyCodeLine{845         \textcolor{stringliteral}{"{}possibly because of the suspect comparison of pointers by ASSOCIATED."{}})}
\DoxyCodeLine{846     query\_initialized = query\_initialized\_name(name, cs)}
\DoxyCodeLine{847 \textcolor{keywordflow}{  endif}}
\DoxyCodeLine{848 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__restart_1_1query__initialized_aab7618a35470325d0e71f735062076df}\label{interfacemom__restart_1_1query__initialized_aab7618a35470325d0e71f735062076df}} 
\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}!query\_initialized\_name@{query\_initialized\_name}}
\index{query\_initialized\_name@{query\_initialized\_name}!mom\_restart::query\_initialized@{mom\_restart::query\_initialized}}
\doxysubsubsection{\texorpdfstring{query\_initialized\_name()}{query\_initialized\_name()}}
{\footnotesize\ttfamily logical function mom\+\_\+restart\+::query\+\_\+initialized\+::query\+\_\+initialized\+\_\+name (\begin{DoxyParamCaption}\item[{character(len=$\ast$), intent(in)}]{name,  }\item[{type(\mbox{\hyperlink{structmom__restart_1_1mom__restart__cs}{mom\+\_\+restart\+\_\+cs}}), pointer}]{CS }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



query\+\_\+initialized\+\_\+name determines whether a named field has been successfully read from a restart file yet. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em name} & The name of the field that is being queried \\
\hline
 & {\em cs} & A pointer to a M\+O\+M\+\_\+restart\+\_\+\+CS object (intent in) \\
\hline
\end{DoxyParams}


Definition at line 501 of file M\+O\+M\+\_\+restart.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{502   \textcolor{keywordtype}{character(len=*)},     \textcolor{keywordtype}{intent(in)} :: name\textcolor{comment}{ !< The name of the field that is being queried}}
\DoxyCodeLine{503   \textcolor{keywordtype}{type}(MOM\_restart\_CS), \textcolor{keywordtype}{pointer}    :: CS\textcolor{comment}{ !< A pointer to a MOM\_restart\_CS object (intent in)}}
\DoxyCodeLine{504   \textcolor{keywordtype}{logical} :: query\_initialized}
\DoxyCodeLine{505 \textcolor{comment}{!   This subroutine returns .true. if the field referred to by name has}}
\DoxyCodeLine{506 \textcolor{comment}{! initialized from a restart file, and .false. otherwise.}}
\DoxyCodeLine{507 }
\DoxyCodeLine{508   \textcolor{keywordtype}{integer} :: m,n}
\DoxyCodeLine{509   \textcolor{keywordflow}{if} (.not.\textcolor{keyword}{associated}(cs)) \textcolor{keyword}{call }mom\_error(fatal, \textcolor{stringliteral}{"{}MOM\_restart "{}} // \&}
\DoxyCodeLine{510       \textcolor{stringliteral}{"{}query\_initialized: Module must be initialized before it is used."{}})}
\DoxyCodeLine{511   \textcolor{keywordflow}{if} (cs\%novars > cs\%max\_fields) \textcolor{keyword}{call }restart\_error(cs)}
\DoxyCodeLine{512 }
\DoxyCodeLine{513   query\_initialized = .false.}
\DoxyCodeLine{514   n = cs\%novars+1}
\DoxyCodeLine{515   \textcolor{keywordflow}{do} m=1,cs\%novars}
\DoxyCodeLine{516     \textcolor{keywordflow}{if} (trim(name) == cs\%restart\_field(m)\%var\_name) \textcolor{keywordflow}{then}}
\DoxyCodeLine{517       \textcolor{keywordflow}{if} (cs\%restart\_field(m)\%initialized) query\_initialized = .true.}
\DoxyCodeLine{518       n = m ; \textcolor{keywordflow}{exit}}
\DoxyCodeLine{519 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{520 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{521 \textcolor{comment}{! Assume that you are going to initialize it now, so set flag to initialized if}}
\DoxyCodeLine{522 \textcolor{comment}{! queried again.}}
\DoxyCodeLine{523   \textcolor{keywordflow}{if} (n<=cs\%novars) cs\%restart\_field(n)\%initialized = .true.}
\DoxyCodeLine{524   \textcolor{keywordflow}{if} ((n==cs\%novars+1) .and. (is\_root\_pe())) \&}
\DoxyCodeLine{525     \textcolor{keyword}{call }mom\_error(note,\textcolor{stringliteral}{"{}MOM\_restart: Unknown restart variable "{}}//name// \&}
\DoxyCodeLine{526                         \textcolor{stringliteral}{"{} queried for initialization."{}})}
\DoxyCodeLine{527 }
\DoxyCodeLine{528   \textcolor{keywordflow}{if} ((is\_root\_pe()) .and. query\_initialized) \&}
\DoxyCodeLine{529     \textcolor{keyword}{call }mom\_error(note,\textcolor{stringliteral}{"{}MOM\_restart: "{}}//name// \&}
\DoxyCodeLine{530                          \textcolor{stringliteral}{"{} initialization confirmed by name."{}})}
\DoxyCodeLine{531 }

\end{DoxyCode}


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