\hypertarget{structmom__geothermal_1_1geothermal__cs}{}\section{mom\+\_\+geothermal\+::geothermal\+\_\+cs Type Reference}
\label{structmom__geothermal_1_1geothermal__cs}\index{mom\_geothermal::geothermal\_cs@{mom\_geothermal::geothermal\_cs}}


\subsection{Detailed Description}
Control structure for geothermal heating. 

Definition at line 25 of file M\+O\+M\+\_\+geothermal.\+F90.



Collaboration diagram for mom\+\_\+geothermal\+::geothermal\+\_\+cs\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{structmom__geothermal_1_1geothermal__cs__coll__graph}
\end{center}
\end{figure}
\subsection*{Public variables and constants}
\begin{DoxyCompactItemize}
\item 
\mbox{\Hypertarget{structmom__geothermal_1_1geothermal__cs_a7be08d190b5890de1a1c16de10313d54}\label{structmom__geothermal_1_1geothermal__cs_a7be08d190b5890de1a1c16de10313d54}} 
real \mbox{\hyperlink{structmom__geothermal_1_1geothermal__cs_a7be08d190b5890de1a1c16de10313d54}{drcv\+\_\+dt\+\_\+inplace}}
\begin{DoxyCompactList}\small\item\em The value of d\+Rcv\+\_\+dT above which (d\+Rcv\+\_\+dT is negative) the water is heated in place instead of moving upward between layers \mbox{[}R deg\+C-\/1 $\sim$$>$ kg m-\/3 deg\+C-\/1\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__geothermal_1_1geothermal__cs_a5382ca998f1d5f179ad8bce79f45e6f9}\label{structmom__geothermal_1_1geothermal__cs_a5382ca998f1d5f179ad8bce79f45e6f9}} 
real, dimension(\+:,\+:), pointer \mbox{\hyperlink{structmom__geothermal_1_1geothermal__cs_a5382ca998f1d5f179ad8bce79f45e6f9}{geo\+\_\+heat}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em The geothermal heat flux \mbox{[}J m-\/2 T-\/1 $\sim$$>$ W m-\/2\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__geothermal_1_1geothermal__cs_ab4d97e680ef006348b8805692d8686de}\label{structmom__geothermal_1_1geothermal__cs_ab4d97e680ef006348b8805692d8686de}} 
real \mbox{\hyperlink{structmom__geothermal_1_1geothermal__cs_ab4d97e680ef006348b8805692d8686de}{geothermal\+\_\+thick}}
\begin{DoxyCompactList}\small\item\em The thickness over which geothermal heating is applied \mbox{[}H $\sim$$>$ m or kg m-\/2\mbox{]}. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__geothermal_1_1geothermal__cs_afdee8f544437c2b8a01cda5535a05dc8}\label{structmom__geothermal_1_1geothermal__cs_afdee8f544437c2b8a01cda5535a05dc8}} 
logical \mbox{\hyperlink{structmom__geothermal_1_1geothermal__cs_afdee8f544437c2b8a01cda5535a05dc8}{apply\+\_\+geothermal}}
\begin{DoxyCompactList}\small\item\em If true, geothermal heating will be applied otherwise G\+E\+O\+T\+H\+E\+R\+M\+A\+L\+\_\+\+S\+C\+A\+LE has been set to 0 and there is no heat to apply. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__geothermal_1_1geothermal__cs_a4e26fe9ac8af340f1761d158b681d610}\label{structmom__geothermal_1_1geothermal__cs_a4e26fe9ac8af340f1761d158b681d610}} 
type(time\+\_\+type), pointer \mbox{\hyperlink{structmom__geothermal_1_1geothermal__cs_a4e26fe9ac8af340f1761d158b681d610}{time}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em A pointer to the ocean model\textquotesingle{}s clock. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__geothermal_1_1geothermal__cs_ad32d8629e95ab20f3a7fdfff1b40418f}\label{structmom__geothermal_1_1geothermal__cs_ad32d8629e95ab20f3a7fdfff1b40418f}} 
type(diag\+\_\+ctrl), pointer \mbox{\hyperlink{structmom__geothermal_1_1geothermal__cs_ad32d8629e95ab20f3a7fdfff1b40418f}{diag}} =$>$ N\+U\+LL()
\begin{DoxyCompactList}\small\item\em A structure that is used to regulate the timing of diagnostic output. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__geothermal_1_1geothermal__cs_a20d4cc08ad3c99c33ee4a461405c94bc}\label{structmom__geothermal_1_1geothermal__cs_a20d4cc08ad3c99c33ee4a461405c94bc}} 
integer \mbox{\hyperlink{structmom__geothermal_1_1geothermal__cs_a20d4cc08ad3c99c33ee4a461405c94bc}{id\+\_\+internal\+\_\+heat\+\_\+heat\+\_\+tendency}} = -\/1
\begin{DoxyCompactList}\small\item\em ID for diagnostic of heat tendency. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__geothermal_1_1geothermal__cs_aaabfab1c7fb5408e05610241f1a3eda7}\label{structmom__geothermal_1_1geothermal__cs_aaabfab1c7fb5408e05610241f1a3eda7}} 
integer \mbox{\hyperlink{structmom__geothermal_1_1geothermal__cs_aaabfab1c7fb5408e05610241f1a3eda7}{id\+\_\+internal\+\_\+heat\+\_\+temp\+\_\+tendency}} = -\/1
\begin{DoxyCompactList}\small\item\em ID for diagnostic of temperature tendency. \end{DoxyCompactList}\item 
\mbox{\Hypertarget{structmom__geothermal_1_1geothermal__cs_ac1d15c987e2b31357a9d5a3fc745373f}\label{structmom__geothermal_1_1geothermal__cs_ac1d15c987e2b31357a9d5a3fc745373f}} 
integer \mbox{\hyperlink{structmom__geothermal_1_1geothermal__cs_ac1d15c987e2b31357a9d5a3fc745373f}{id\+\_\+internal\+\_\+heat\+\_\+h\+\_\+tendency}} = -\/1
\begin{DoxyCompactList}\small\item\em ID for diagnostic of thickness tendency. \end{DoxyCompactList}\end{DoxyCompactItemize}


\subsection{Detailed Description}
Control structure for geothermal heating. 

Definition at line 25 of file M\+O\+M\+\_\+geothermal.\+F90.



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