\hypertarget{interfacemom__restart_1_1query__initialized}{}\section{mom\+\_\+restart\+::query\+\_\+initialized Interface Reference} \label{interfacemom__restart_1_1query__initialized}\index{mom\_restart::query\_initialized@{mom\_restart::query\_initialized}} \subsection{Detailed Description} Indicate whether a field has been read from a restart file. Definition at line 127 of file M\+O\+M\+\_\+restart.\+F90. \subsection*{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} \subsection{Detailed Description} Indicate whether a field has been read from a restart file. Definition at line 127 of file M\+O\+M\+\_\+restart.\+F90. \subsection{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}} \subsubsection{\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 536 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}} \subsubsection{\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 675 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}} \subsubsection{\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 563 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}} \subsubsection{\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 710 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}} \subsubsection{\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 590 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}} \subsubsection{\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 746 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}} \subsubsection{\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 618 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}} \subsubsection{\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 782 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}} \subsubsection{\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 646 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}} \subsubsection{\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 818 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}} \subsubsection{\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 502 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}