\hypertarget{interfacemom__tfreeze_1_1calculate__tfreeze__teos10}{}\doxysection{mom\+\_\+tfreeze\+::calculate\+\_\+tfreeze\+\_\+teos10 Interface Reference} \label{interfacemom__tfreeze_1_1calculate__tfreeze__teos10}\index{mom\_tfreeze::calculate\_tfreeze\_teos10@{mom\_tfreeze::calculate\_tfreeze\_teos10}} \doxysubsection{Detailed Description} Compute the freezing point conservative temperature \mbox{[}degC\mbox{]} from absolute salinity \mbox{[}g/kg\mbox{]} and pressure \mbox{[}Pa\mbox{]} using the T\+E\+O\+S10 package. Definition at line 33 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90. \doxysubsection*{Private functions} \begin{DoxyCompactItemize} \item subroutine \mbox{\hyperlink{interfacemom__tfreeze_1_1calculate__tfreeze__teos10_ab0c8bd569486d1a289f8e8215870fa59}{calculate\+\_\+tfreeze\+\_\+teos10\+\_\+scalar}} (S, pres, T\+\_\+\+Fr) \begin{DoxyCompactList}\small\item\em This subroutine computes the freezing point conservative temperature \mbox{[}degC\mbox{]} from absolute salinity \mbox{[}g/kg\mbox{]}, and pressure \mbox{[}Pa\mbox{]} using the T\+E\+O\+S10 package. \end{DoxyCompactList}\item subroutine \mbox{\hyperlink{interfacemom__tfreeze_1_1calculate__tfreeze__teos10_a6f020ea1fc20f17545708740b285d743}{calculate\+\_\+tfreeze\+\_\+teos10\+\_\+array}} (S, pres, T\+\_\+\+Fr, start, npts) \begin{DoxyCompactList}\small\item\em This subroutine computes the freezing point conservative temperature \mbox{[}degC\mbox{]} from absolute salinity \mbox{[}g/kg\mbox{]}, and pressure \mbox{[}Pa\mbox{]} using the T\+E\+O\+S10 package. \end{DoxyCompactList}\end{DoxyCompactItemize} \doxysubsection{Detailed Description} Compute the freezing point conservative temperature \mbox{[}degC\mbox{]} from absolute salinity \mbox{[}g/kg\mbox{]} and pressure \mbox{[}Pa\mbox{]} using the T\+E\+O\+S10 package. Definition at line 33 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90. \doxysubsection{Functions and subroutines} \mbox{\Hypertarget{interfacemom__tfreeze_1_1calculate__tfreeze__teos10_a6f020ea1fc20f17545708740b285d743}\label{interfacemom__tfreeze_1_1calculate__tfreeze__teos10_a6f020ea1fc20f17545708740b285d743}} \index{mom\_tfreeze::calculate\_tfreeze\_teos10@{mom\_tfreeze::calculate\_tfreeze\_teos10}!calculate\_tfreeze\_teos10\_array@{calculate\_tfreeze\_teos10\_array}} \index{calculate\_tfreeze\_teos10\_array@{calculate\_tfreeze\_teos10\_array}!mom\_tfreeze::calculate\_tfreeze\_teos10@{mom\_tfreeze::calculate\_tfreeze\_teos10}} \doxysubsubsection{\texorpdfstring{calculate\_tfreeze\_teos10\_array()}{calculate\_tfreeze\_teos10\_array()}} {\footnotesize\ttfamily subroutine mom\+\_\+tfreeze\+::calculate\+\_\+tfreeze\+\_\+teos10\+::calculate\+\_\+tfreeze\+\_\+teos10\+\_\+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 conservative temperature \mbox{[}degC\mbox{]} from absolute salinity \mbox{[}g/kg\mbox{]}, and pressure \mbox{[}Pa\mbox{]} using the T\+E\+O\+S10 package. \begin{DoxyParams}[1]{Parameters} \mbox{\texttt{ in}} & {\em s} & absolute salinity \mbox{[}g/kg\mbox{]}. \\ \hline \mbox{\texttt{ in}} & {\em pres} & pressure \mbox{[}Pa\mbox{]}. \\ \hline \mbox{\texttt{ out}} & {\em t\+\_\+fr} & Freezing point conservative 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 148 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90. \begin{DoxyCode}{0} \DoxyCodeLine{148 \textcolor{keywordtype}{ real}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)} :: S\textcolor{comment}{ !< absolute salinity [g/kg].}} \DoxyCodeLine{149 \textcolor{keywordtype}{ real}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)} :: pres\textcolor{comment}{ !< pressure [Pa].}} \DoxyCodeLine{150 \textcolor{keywordtype}{ real}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(out)} :: T\_Fr\textcolor{comment}{ !< Freezing point conservative temperature [degC].}} \DoxyCodeLine{151 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: start\textcolor{comment}{ !< the starting point in the arrays.}} \DoxyCodeLine{152 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: npts\textcolor{comment}{ !< the number of values to calculate.}} \DoxyCodeLine{153 } \DoxyCodeLine{154 \textcolor{comment}{! Local variables}} \DoxyCodeLine{155 \textcolor{keywordtype}{ real}, \textcolor{keywordtype}{parameter} :: Pa2db = 1.e-\/4 \textcolor{comment}{! The conversion factor from Pa to dbar.}} \DoxyCodeLine{156 \textcolor{keywordtype}{ real} :: zs,zp} \DoxyCodeLine{157 \textcolor{keywordtype}{integer} :: j} \DoxyCodeLine{158 \textcolor{comment}{! Assume sea-\/water contains no dissolved air.}} \DoxyCodeLine{159 \textcolor{keywordtype}{ real}, \textcolor{keywordtype}{parameter} :: saturation\_fraction = 0.0} \DoxyCodeLine{160 } \DoxyCodeLine{161 \textcolor{keywordflow}{do} j=start,start+npts-\/1} \DoxyCodeLine{162 \textcolor{comment}{!Conversions}} \DoxyCodeLine{163 zs = s(j)} \DoxyCodeLine{164 zp = pres(j)* pa2db \textcolor{comment}{!Convert pressure from Pascal to decibar}} \DoxyCodeLine{165 } \DoxyCodeLine{166 \textcolor{keywordflow}{if} (s(j) < -\/1.0e-\/10) cycle \textcolor{comment}{!Can we assume safely that this is a missing value?}} \DoxyCodeLine{167 t\_fr(j) = gsw\_ct\_freezing\_exact(zs,zp,saturation\_fraction)} \DoxyCodeLine{168 \textcolor{keywordflow}{ enddo}} \DoxyCodeLine{169 } \end{DoxyCode} \mbox{\Hypertarget{interfacemom__tfreeze_1_1calculate__tfreeze__teos10_ab0c8bd569486d1a289f8e8215870fa59}\label{interfacemom__tfreeze_1_1calculate__tfreeze__teos10_ab0c8bd569486d1a289f8e8215870fa59}} \index{mom\_tfreeze::calculate\_tfreeze\_teos10@{mom\_tfreeze::calculate\_tfreeze\_teos10}!calculate\_tfreeze\_teos10\_scalar@{calculate\_tfreeze\_teos10\_scalar}} \index{calculate\_tfreeze\_teos10\_scalar@{calculate\_tfreeze\_teos10\_scalar}!mom\_tfreeze::calculate\_tfreeze\_teos10@{mom\_tfreeze::calculate\_tfreeze\_teos10}} \doxysubsubsection{\texorpdfstring{calculate\_tfreeze\_teos10\_scalar()}{calculate\_tfreeze\_teos10\_scalar()}} {\footnotesize\ttfamily subroutine mom\+\_\+tfreeze\+::calculate\+\_\+tfreeze\+\_\+teos10\+::calculate\+\_\+tfreeze\+\_\+teos10\+\_\+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 conservative temperature \mbox{[}degC\mbox{]} from absolute salinity \mbox{[}g/kg\mbox{]}, and pressure \mbox{[}Pa\mbox{]} using the T\+E\+O\+S10 package. \begin{DoxyParams}[1]{Parameters} \mbox{\texttt{ in}} & {\em s} & Absolute salinity \mbox{[}g/kg\mbox{]}. \\ \hline \mbox{\texttt{ in}} & {\em pres} & Pressure \mbox{[}Pa\mbox{]}. \\ \hline \mbox{\texttt{ out}} & {\em t\+\_\+fr} & Freezing point conservative temperature \mbox{[}degC\mbox{]}. \\ \hline \end{DoxyParams} Definition at line 128 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90. \begin{DoxyCode}{0} \DoxyCodeLine{128 \textcolor{keywordtype}{ real}, \textcolor{keywordtype}{intent(in)} :: S\textcolor{comment}{ !< Absolute salinity [g/kg].}} \DoxyCodeLine{129 \textcolor{keywordtype}{ real}, \textcolor{keywordtype}{intent(in)} :: pres\textcolor{comment}{ !< Pressure [Pa].}} \DoxyCodeLine{130 \textcolor{keywordtype}{ real}, \textcolor{keywordtype}{intent(out)} :: T\_Fr\textcolor{comment}{ !< Freezing point conservative temperature [degC].}} \DoxyCodeLine{131 } \DoxyCodeLine{132 \textcolor{comment}{! Local variables}} \DoxyCodeLine{133 \textcolor{keywordtype}{ real}, \textcolor{keywordtype}{dimension(1)} :: S0, pres0} \DoxyCodeLine{134 \textcolor{keywordtype}{ real}, \textcolor{keywordtype}{dimension(1)} :: tfr0} \DoxyCodeLine{135 } \DoxyCodeLine{136 s0(1) = s} \DoxyCodeLine{137 pres0(1) = pres} \DoxyCodeLine{138 } \DoxyCodeLine{139 \textcolor{keyword}{call }calculate\_tfreeze\_teos10\_array(s0, pres0, tfr0, 1, 1)} \DoxyCodeLine{140 t\_fr = tfr0(1)} \DoxyCodeLine{141 } \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}