\hypertarget{interfacemom__tfreeze_1_1calculate__tfreeze__millero}{}\section{mom\+\_\+tfreeze\+::calculate\+\_\+tfreeze\+\_\+millero Interface Reference}
\label{interfacemom__tfreeze_1_1calculate__tfreeze__millero}\index{mom\_tfreeze::calculate\_tfreeze\_millero@{mom\_tfreeze::calculate\_tfreeze\_millero}}


\subsection{Detailed Description}
Compute the freezing point potential temperature \mbox{[}degC\mbox{]} from salinity \mbox{[}P\+SU\mbox{]} and pressure \mbox{[}Pa\mbox{]} using the expression from Millero (1978) (and in appendix A of Gill 1982), but with the of the pressure dependence changed from 7.\+53e-\/8 to 7.\+75e-\/8 to make this an expression for potential temperature (not in situ temperature), using a value that is correct at the freezing point at 35 P\+SU and 5e6 Pa (500 dbar). 

Definition at line 27 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90.

\subsection*{Private functions}
\begin{DoxyCompactItemize}
\item 
subroutine \mbox{\hyperlink{interfacemom__tfreeze_1_1calculate__tfreeze__millero_a15cc8e9678e312de218435be5a2663ef}{calculate\+\_\+tfreeze\+\_\+millero\+\_\+scalar}} (S, pres, T\+\_\+\+Fr)
\begin{DoxyCompactList}\small\item\em This subroutine computes the freezing point potential temperature \mbox{[}degC\mbox{]} from salinity \mbox{[}ppt\mbox{]}, and pressure \mbox{[}Pa\mbox{]} using the expression from Millero (1978) (and in appendix A of Gill 1982), but with the of the pressure dependence changed from 7.\+53e-\/8 to 7.\+75e-\/8 to make this an expression for potential temperature (not in situ temperature), using a value that is correct at the freezing point at 35 P\+SU and 5e6 Pa (500 dbar). \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{interfacemom__tfreeze_1_1calculate__tfreeze__millero_abf20a69bc0d21d67c78e829db102bb88}{calculate\+\_\+tfreeze\+\_\+millero\+\_\+array}} (S, pres, T\+\_\+\+Fr, start, npts)
\begin{DoxyCompactList}\small\item\em This subroutine computes the freezing point potential temperature \mbox{[}degC\mbox{]} from salinity \mbox{[}ppt\mbox{]}, and pressure \mbox{[}Pa\mbox{]} using the expression from Millero (1978) (and in appendix A of Gill 1982), but with the of the pressure dependence changed from 7.\+53e-\/8 to 7.\+75e-\/8 to make this an expression for potential temperature (not in situ temperature), using a value that is correct at the freezing point at 35 P\+SU and 5e6 Pa (500 dbar). \end{DoxyCompactList}\end{DoxyCompactItemize}


\subsection{Detailed Description}
Compute the freezing point potential temperature \mbox{[}degC\mbox{]} from salinity \mbox{[}P\+SU\mbox{]} and pressure \mbox{[}Pa\mbox{]} using the expression from Millero (1978) (and in appendix A of Gill 1982), but with the of the pressure dependence changed from 7.\+53e-\/8 to 7.\+75e-\/8 to make this an expression for potential temperature (not in situ temperature), using a value that is correct at the freezing point at 35 P\+SU and 5e6 Pa (500 dbar). 

Definition at line 27 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90.



\subsection{Functions and subroutines}
\mbox{\Hypertarget{interfacemom__tfreeze_1_1calculate__tfreeze__millero_abf20a69bc0d21d67c78e829db102bb88}\label{interfacemom__tfreeze_1_1calculate__tfreeze__millero_abf20a69bc0d21d67c78e829db102bb88}} 
\index{mom\_tfreeze::calculate\_tfreeze\_millero@{mom\_tfreeze::calculate\_tfreeze\_millero}!calculate\_tfreeze\_millero\_array@{calculate\_tfreeze\_millero\_array}}
\index{calculate\_tfreeze\_millero\_array@{calculate\_tfreeze\_millero\_array}!mom\_tfreeze::calculate\_tfreeze\_millero@{mom\_tfreeze::calculate\_tfreeze\_millero}}
\subsubsection{\texorpdfstring{calculate\_tfreeze\_millero\_array()}{calculate\_tfreeze\_millero\_array()}}
{\footnotesize\ttfamily subroutine mom\+\_\+tfreeze\+::calculate\+\_\+tfreeze\+\_\+millero\+::calculate\+\_\+tfreeze\+\_\+millero\+\_\+array (\begin{DoxyParamCaption}\item[{real, dimension(\+:), intent(in)}]{S,  }\item[{real, dimension(\+:), intent(in)}]{pres,  }\item[{real, dimension(\+:), intent(out)}]{T\+\_\+\+Fr,  }\item[{integer, intent(in)}]{start,  }\item[{integer, intent(in)}]{npts }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



This subroutine computes the freezing point potential temperature \mbox{[}degC\mbox{]} from salinity \mbox{[}ppt\mbox{]}, and pressure \mbox{[}Pa\mbox{]} using the expression from Millero (1978) (and in appendix A of Gill 1982), but with the of the pressure dependence changed from 7.\+53e-\/8 to 7.\+75e-\/8 to make this an expression for potential temperature (not in situ temperature), using a value that is correct at the freezing point at 35 P\+SU and 5e6 Pa (500 dbar). 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em s} & Salinity \mbox{[}P\+SU\mbox{]}. \\
\hline
\mbox{\texttt{ in}}  & {\em pres} & Pressure \mbox{[}Pa\mbox{]}. \\
\hline
\mbox{\texttt{ out}}  & {\em t\+\_\+fr} & Freezing point potential temperature \mbox{[}degC\mbox{]}. \\
\hline
\mbox{\texttt{ in}}  & {\em start} & The starting point in the arrays. \\
\hline
\mbox{\texttt{ in}}  & {\em npts} & The number of values to calculate. \\
\hline
\end{DoxyParams}


Definition at line 106 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{106 \textcolor{keywordtype}{  real},  \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)}  :: S\textcolor{comment}{     !< Salinity [PSU].}}
\DoxyCodeLine{107 \textcolor{keywordtype}{  real},  \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)}  :: pres\textcolor{comment}{  !< Pressure [Pa].}}
\DoxyCodeLine{108 \textcolor{keywordtype}{  real},  \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(out)} :: T\_Fr\textcolor{comment}{  !< Freezing point potential temperature [degC].}}
\DoxyCodeLine{109   \textcolor{keywordtype}{integer},             \textcolor{keywordtype}{intent(in)}  :: start\textcolor{comment}{ !< The starting point in the arrays.}}
\DoxyCodeLine{110   \textcolor{keywordtype}{integer},             \textcolor{keywordtype}{intent(in)}  :: npts\textcolor{comment}{  !< The number of values to calculate.}}
\DoxyCodeLine{111 }
\DoxyCodeLine{112   \textcolor{comment}{! Local variables}}
\DoxyCodeLine{113 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{parameter} :: cS1 = -0.0575, cs3\_2 = 1.710523e-3, cs2 = -2.154996e-4}
\DoxyCodeLine{114 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{parameter} :: dTFr\_dp = -7.75e-8}
\DoxyCodeLine{115   \textcolor{keywordtype}{integer} :: j}
\DoxyCodeLine{116 }
\DoxyCodeLine{117   \textcolor{keywordflow}{do} j=start,start+npts-1}
\DoxyCodeLine{118     t\_fr(j) = s(j)*(cs1 + (cs3\_2 * sqrt(max(s(j),0.0)) + cs2 * s(j))) + \&}
\DoxyCodeLine{119               dtfr\_dp*pres(j)}
\DoxyCodeLine{120 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{121 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__tfreeze_1_1calculate__tfreeze__millero_a15cc8e9678e312de218435be5a2663ef}\label{interfacemom__tfreeze_1_1calculate__tfreeze__millero_a15cc8e9678e312de218435be5a2663ef}} 
\index{mom\_tfreeze::calculate\_tfreeze\_millero@{mom\_tfreeze::calculate\_tfreeze\_millero}!calculate\_tfreeze\_millero\_scalar@{calculate\_tfreeze\_millero\_scalar}}
\index{calculate\_tfreeze\_millero\_scalar@{calculate\_tfreeze\_millero\_scalar}!mom\_tfreeze::calculate\_tfreeze\_millero@{mom\_tfreeze::calculate\_tfreeze\_millero}}
\subsubsection{\texorpdfstring{calculate\_tfreeze\_millero\_scalar()}{calculate\_tfreeze\_millero\_scalar()}}
{\footnotesize\ttfamily subroutine mom\+\_\+tfreeze\+::calculate\+\_\+tfreeze\+\_\+millero\+::calculate\+\_\+tfreeze\+\_\+millero\+\_\+scalar (\begin{DoxyParamCaption}\item[{real, intent(in)}]{S,  }\item[{real, intent(in)}]{pres,  }\item[{real, intent(out)}]{T\+\_\+\+Fr }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



This subroutine computes the freezing point potential temperature \mbox{[}degC\mbox{]} from salinity \mbox{[}ppt\mbox{]}, and pressure \mbox{[}Pa\mbox{]} using the expression from Millero (1978) (and in appendix A of Gill 1982), but with the of the pressure dependence changed from 7.\+53e-\/8 to 7.\+75e-\/8 to make this an expression for potential temperature (not in situ temperature), using a value that is correct at the freezing point at 35 P\+SU and 5e6 Pa (500 dbar). 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em s} & Salinity in P\+SU. \\
\hline
\mbox{\texttt{ in}}  & {\em pres} & Pressure \mbox{[}Pa\mbox{]}. \\
\hline
\mbox{\texttt{ out}}  & {\em t\+\_\+fr} & Freezing point potential temperature \mbox{[}degC\mbox{]}. \\
\hline
\end{DoxyParams}


Definition at line 87 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{87 \textcolor{keywordtype}{  real},    \textcolor{keywordtype}{intent(in)}  :: S\textcolor{comment}{    !< Salinity in PSU.}}
\DoxyCodeLine{88 \textcolor{keywordtype}{  real},    \textcolor{keywordtype}{intent(in)}  :: pres\textcolor{comment}{ !< Pressure [Pa].}}
\DoxyCodeLine{89 \textcolor{keywordtype}{  real},    \textcolor{keywordtype}{intent(out)} :: T\_Fr\textcolor{comment}{ !< Freezing point potential temperature [degC].}}
\DoxyCodeLine{90 }
\DoxyCodeLine{91   \textcolor{comment}{! Local variables}}
\DoxyCodeLine{92 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{parameter} :: cS1 = -0.0575, cs3\_2 = 1.710523e-3, cs2 = -2.154996e-4}
\DoxyCodeLine{93 \textcolor{keywordtype}{  real}, \textcolor{keywordtype}{parameter} :: dTFr\_dp = -7.75e-8}
\DoxyCodeLine{94 }
\DoxyCodeLine{95   t\_fr = s*(cs1 + (cs3\_2 * sqrt(max(s,0.0)) + cs2 * s)) + dtfr\_dp*pres}
\DoxyCodeLine{96 }

\end{DoxyCode}


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