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


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