\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 \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 \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{\tt in}  & {\em s} & Salinity \mbox{[}P\+SU\mbox{]}.\\
\hline
\mbox{\tt in}  & {\em pres} & Pressure \mbox{[}Pa\mbox{]}.\\
\hline
\mbox{\tt out}  & {\em t\+\_\+fr} & Freezing point potential temperature \mbox{[}degC\mbox{]}.\\
\hline
\mbox{\tt in}  & {\em start} & The starting point in the arrays.\\
\hline
\mbox{\tt 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}
106   \textcolor{keywordtype}{real},  \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)}  :: s\textcolor{comment}{     !< Salinity [PSU].}
107   \textcolor{keywordtype}{real},  \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)}  :: pres\textcolor{comment}{  !< Pressure [Pa].}
108   \textcolor{keywordtype}{real},  \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(out)} :: t\_fr\textcolor{comment}{  !< Freezing point potential temperature [degC].}
109   \textcolor{keywordtype}{integer},             \textcolor{keywordtype}{intent(in)}  :: start\textcolor{comment}{ !< The starting point in the arrays.}
110   \textcolor{keywordtype}{integer},             \textcolor{keywordtype}{intent(in)}  :: npts\textcolor{comment}{  !< The number of values to calculate.}
111 
112   \textcolor{comment}{! Local variables}
113   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{parameter} :: cs1 = -0.0575, cs3\_2 = 1.710523e-3, cs2 = -2.154996e-4
114   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{parameter} :: dtfr\_dp = -7.75e-8
115   \textcolor{keywordtype}{integer} :: j
116 
117   \textcolor{keywordflow}{do} j=start,start+npts-1
118     t\_fr(j) = s(j)*(cs1 + (cs3\_2 * sqrt(max(s(j),0.0)) + cs2 * s(j))) + &
119               dtfr\_dp*pres(j)
120 \textcolor{keywordflow}{  enddo}
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{\tt in}  & {\em s} & Salinity in P\+SU.\\
\hline
\mbox{\tt in}  & {\em pres} & Pressure \mbox{[}Pa\mbox{]}.\\
\hline
\mbox{\tt 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}
87   \textcolor{keywordtype}{real},    \textcolor{keywordtype}{intent(in)}  :: s\textcolor{comment}{    !< Salinity in PSU.}
88   \textcolor{keywordtype}{real},    \textcolor{keywordtype}{intent(in)}  :: pres\textcolor{comment}{ !< Pressure [Pa].}
89   \textcolor{keywordtype}{real},    \textcolor{keywordtype}{intent(out)} :: t\_fr\textcolor{comment}{ !< Freezing point potential temperature [degC].}
90 
91   \textcolor{comment}{! Local variables}
92   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{parameter} :: cs1 = -0.0575, cs3\_2 = 1.710523e-3, cs2 = -2.154996e-4
93   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{parameter} :: dtfr\_dp = -7.75e-8
94 
95   t\_fr = s*(cs1 + (cs3\_2 * sqrt(max(s,0.0)) + cs2 * s)) + dtfr\_dp*pres
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}
