\hypertarget{interfacemom__tfreeze_1_1calculate__tfreeze__teos10}{}\section{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}} \subsection{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. \subsection*{Private functions} \begin{DoxyCompactItemize} \item subroutine \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 \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} \subsection{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. \subsection{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}} \subsubsection{\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{\tt in} & {\em s} & absolute salinity \mbox{[}g/kg\mbox{]}.\\ \hline \mbox{\tt in} & {\em pres} & pressure \mbox{[}Pa\mbox{]}.\\ \hline \mbox{\tt out} & {\em t\+\_\+fr} & Freezing point conservative 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 148 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90. \begin{DoxyCode} 148 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)} :: s\textcolor{comment}{ !< absolute salinity [g/kg].} 149 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)} :: pres\textcolor{comment}{ !< pressure [Pa].} 150 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(out)} :: t\_fr\textcolor{comment}{ !< Freezing point conservative temperature [degC].} 151 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: start\textcolor{comment}{ !< the starting point in the arrays.} 152 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: npts\textcolor{comment}{ !< the number of values to calculate.} 153 154 \textcolor{comment}{! Local variables} 155 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{parameter} :: pa2db = 1.e-4 \textcolor{comment}{! The conversion factor from Pa to dbar.} 156 \textcolor{keywordtype}{real} :: zs,zp 157 \textcolor{keywordtype}{integer} :: j 158 \textcolor{comment}{! Assume sea-water contains no dissolved air.} 159 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{parameter} :: saturation\_fraction = 0.0 160 161 \textcolor{keywordflow}{do} j=start,start+npts-1 162 \textcolor{comment}{!Conversions} 163 zs = s(j) 164 zp = pres(j)* pa2db \textcolor{comment}{!Convert pressure from Pascal to decibar} 165 166 \textcolor{keywordflow}{if} (s(j) < -1.0e-10) cycle \textcolor{comment}{!Can we assume safely that this is a missing value?} 167 t\_fr(j) = gsw\_ct\_freezing\_exact(zs,zp,saturation\_fraction) 168 \textcolor{keywordflow}{ enddo} 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}} \subsubsection{\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{\tt in} & {\em s} & Absolute salinity \mbox{[}g/kg\mbox{]}.\\ \hline \mbox{\tt in} & {\em pres} & Pressure \mbox{[}Pa\mbox{]}.\\ \hline \mbox{\tt 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} 128 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)} :: s\textcolor{comment}{ !< Absolute salinity [g/kg].} 129 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)} :: pres\textcolor{comment}{ !< Pressure [Pa].} 130 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(out)} :: t\_fr\textcolor{comment}{ !< Freezing point conservative temperature [degC].} 131 132 \textcolor{comment}{! Local variables} 133 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(1)} :: s0, pres0 134 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(1)} :: tfr0 135 136 s0(1) = s 137 pres0(1) = pres 138 139 \textcolor{keyword}{call }calculate\_tfreeze\_teos10\_array(s0, pres0, tfr0, 1, 1) 140 t\_fr = tfr0(1) 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}