\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{\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}