\hypertarget{interfacemom__tfreeze_1_1calculate__tfreeze__linear}{}\doxysection{mom\+\_\+tfreeze\+::calculate\+\_\+tfreeze\+\_\+linear Interface Reference}
\label{interfacemom__tfreeze_1_1calculate__tfreeze__linear}\index{mom\_tfreeze::calculate\_tfreeze\_linear@{mom\_tfreeze::calculate\_tfreeze\_linear}}


\doxysubsection{Detailed Description}
Compute the freezing point potential temperature \mbox{[}degC\mbox{]} from salinity \mbox{[}ppt\mbox{]} and pressure \mbox{[}Pa\mbox{]} using a simple linear expression, with coefficients passed in as arguments. 

Definition at line 18 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90.

\doxysubsection*{Private functions}
\begin{DoxyCompactItemize}
\item 
subroutine \mbox{\hyperlink{interfacemom__tfreeze_1_1calculate__tfreeze__linear_a18e78235e6105b57513ed941bf054273}{calculate\+\_\+tfreeze\+\_\+linear\+\_\+scalar}} (S, pres, T\+\_\+\+Fr, T\+Fr\+\_\+\+S0\+\_\+\+P0, d\+T\+Fr\+\_\+dS, d\+T\+Fr\+\_\+dp)
\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 a simple linear expression, with coefficients passed in as arguments. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{interfacemom__tfreeze_1_1calculate__tfreeze__linear_a5dd726d92e2e168f8d9ede34f5898258}{calculate\+\_\+tfreeze\+\_\+linear\+\_\+array}} (S, pres, T\+\_\+\+Fr, start, npts, T\+Fr\+\_\+\+S0\+\_\+\+P0, d\+T\+Fr\+\_\+dS, d\+T\+Fr\+\_\+dp)
\begin{DoxyCompactList}\small\item\em This subroutine computes an array of freezing point potential temperatures \mbox{[}degC\mbox{]} from salinity \mbox{[}ppt\mbox{]}, and pressure \mbox{[}Pa\mbox{]} using a simple linear expression, with coefficients passed in as arguments. \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}
Compute the freezing point potential temperature \mbox{[}degC\mbox{]} from salinity \mbox{[}ppt\mbox{]} and pressure \mbox{[}Pa\mbox{]} using a simple linear expression, with coefficients passed in as arguments. 

Definition at line 18 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90.



\doxysubsection{Functions and subroutines}
\mbox{\Hypertarget{interfacemom__tfreeze_1_1calculate__tfreeze__linear_a5dd726d92e2e168f8d9ede34f5898258}\label{interfacemom__tfreeze_1_1calculate__tfreeze__linear_a5dd726d92e2e168f8d9ede34f5898258}} 
\index{mom\_tfreeze::calculate\_tfreeze\_linear@{mom\_tfreeze::calculate\_tfreeze\_linear}!calculate\_tfreeze\_linear\_array@{calculate\_tfreeze\_linear\_array}}
\index{calculate\_tfreeze\_linear\_array@{calculate\_tfreeze\_linear\_array}!mom\_tfreeze::calculate\_tfreeze\_linear@{mom\_tfreeze::calculate\_tfreeze\_linear}}
\doxysubsubsection{\texorpdfstring{calculate\_tfreeze\_linear\_array()}{calculate\_tfreeze\_linear\_array()}}
{\footnotesize\ttfamily subroutine mom\+\_\+tfreeze\+::calculate\+\_\+tfreeze\+\_\+linear\+::calculate\+\_\+tfreeze\+\_\+linear\+\_\+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,  }\item[{real, intent(in)}]{T\+Fr\+\_\+\+S0\+\_\+\+P0,  }\item[{real, intent(in)}]{d\+T\+Fr\+\_\+dS,  }\item[{real, intent(in)}]{d\+T\+Fr\+\_\+dp }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



This subroutine computes an array of freezing point potential temperatures \mbox{[}degC\mbox{]} from salinity \mbox{[}ppt\mbox{]}, and pressure \mbox{[}Pa\mbox{]} using a simple linear expression, with coefficients passed in as arguments. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em s} & salinity \mbox{[}ppt\mbox{]}. \\
\hline
\mbox{\texttt{ in}}  & {\em pres} & pressure \mbox{[}Pa\mbox{]}. \\
\hline
\mbox{\texttt{ out}}  & {\em t\+\_\+fr} & Freezing point potential 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
\mbox{\texttt{ in}}  & {\em tfr\+\_\+s0\+\_\+p0} & The freezing point at S=0, p=0, \mbox{[}degC\mbox{]}. \\
\hline
\mbox{\texttt{ in}}  & {\em dtfr\+\_\+ds} & The derivative of freezing point with salinity, \mbox{[}degC P\+S\+U-\/1\mbox{]}. \\
\hline
\mbox{\texttt{ in}}  & {\em dtfr\+\_\+dp} & The derivative of freezing point with pressure, \mbox{[}degC Pa-\/1\mbox{]}. \\
\hline
\end{DoxyParams}


Definition at line 60 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{62 \textcolor{keywordtype}{  real},  \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)}  :: S\textcolor{comment}{         !< salinity [ppt].}}
\DoxyCodeLine{63 \textcolor{keywordtype}{  real},  \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)}  :: pres\textcolor{comment}{      !< pressure [Pa].}}
\DoxyCodeLine{64 \textcolor{keywordtype}{  real},  \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(out)} :: T\_Fr\textcolor{comment}{      !< Freezing point potential temperature [degC].}}
\DoxyCodeLine{65   \textcolor{keywordtype}{integer},             \textcolor{keywordtype}{intent(in)}  :: start\textcolor{comment}{     !< the starting point in the arrays.}}
\DoxyCodeLine{66   \textcolor{keywordtype}{integer},             \textcolor{keywordtype}{intent(in)}  :: npts\textcolor{comment}{      !< the number of values to calculate.}}
\DoxyCodeLine{67 \textcolor{keywordtype}{  real},                \textcolor{keywordtype}{intent(in)}  :: TFr\_S0\_P0\textcolor{comment}{ !< The freezing point at S=0, p=0, [degC].}}
\DoxyCodeLine{68 \textcolor{keywordtype}{  real},                \textcolor{keywordtype}{intent(in)}  :: dTFr\_dS\textcolor{comment}{   !< The derivative of freezing point with salinity,}}
\DoxyCodeLine{69 \textcolor{comment}{                                                !! [degC PSU-\/1].}}
\DoxyCodeLine{70 \textcolor{keywordtype}{  real},                \textcolor{keywordtype}{intent(in)}  :: dTFr\_dp\textcolor{comment}{   !< The derivative of freezing point with pressure,}}
\DoxyCodeLine{71 \textcolor{comment}{                                                !! [degC Pa-\/1].}}
\DoxyCodeLine{72   \textcolor{keywordtype}{integer} :: j}
\DoxyCodeLine{73 }
\DoxyCodeLine{74   \textcolor{keywordflow}{do} j=start,start+npts-\/1}
\DoxyCodeLine{75     t\_fr(j) = (tfr\_s0\_p0 + dtfr\_ds*s(j)) + dtfr\_dp*pres(j)}
\DoxyCodeLine{76 \textcolor{keywordflow}{  enddo}}
\DoxyCodeLine{77 }

\end{DoxyCode}
\mbox{\Hypertarget{interfacemom__tfreeze_1_1calculate__tfreeze__linear_a18e78235e6105b57513ed941bf054273}\label{interfacemom__tfreeze_1_1calculate__tfreeze__linear_a18e78235e6105b57513ed941bf054273}} 
\index{mom\_tfreeze::calculate\_tfreeze\_linear@{mom\_tfreeze::calculate\_tfreeze\_linear}!calculate\_tfreeze\_linear\_scalar@{calculate\_tfreeze\_linear\_scalar}}
\index{calculate\_tfreeze\_linear\_scalar@{calculate\_tfreeze\_linear\_scalar}!mom\_tfreeze::calculate\_tfreeze\_linear@{mom\_tfreeze::calculate\_tfreeze\_linear}}
\doxysubsubsection{\texorpdfstring{calculate\_tfreeze\_linear\_scalar()}{calculate\_tfreeze\_linear\_scalar()}}
{\footnotesize\ttfamily subroutine mom\+\_\+tfreeze\+::calculate\+\_\+tfreeze\+\_\+linear\+::calculate\+\_\+tfreeze\+\_\+linear\+\_\+scalar (\begin{DoxyParamCaption}\item[{real, intent(in)}]{S,  }\item[{real, intent(in)}]{pres,  }\item[{real, intent(out)}]{T\+\_\+\+Fr,  }\item[{real, intent(in)}]{T\+Fr\+\_\+\+S0\+\_\+\+P0,  }\item[{real, intent(in)}]{d\+T\+Fr\+\_\+dS,  }\item[{real, intent(in)}]{d\+T\+Fr\+\_\+dp }\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 a simple linear expression, with coefficients passed in as arguments. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em s} & salinity \mbox{[}ppt\mbox{]}. \\
\hline
\mbox{\texttt{ in}}  & {\em pres} & pressure \mbox{[}Pa\mbox{]}. \\
\hline
\mbox{\texttt{ out}}  & {\em t\+\_\+fr} & Freezing point potential temperature \mbox{[}degC\mbox{]}. \\
\hline
\mbox{\texttt{ in}}  & {\em tfr\+\_\+s0\+\_\+p0} & The freezing point at S=0, p=0 \mbox{[}degC\mbox{]}. \\
\hline
\mbox{\texttt{ in}}  & {\em dtfr\+\_\+ds} & The derivative of freezing point with salinity, \mbox{[}degC ppt-\/1\mbox{]}. \\
\hline
\mbox{\texttt{ in}}  & {\em dtfr\+\_\+dp} & The derivative of freezing point with pressure, \mbox{[}degC Pa-\/1\mbox{]}. \\
\hline
\end{DoxyParams}


Definition at line 42 of file M\+O\+M\+\_\+\+T\+Freeze.\+F90.


\begin{DoxyCode}{0}
\DoxyCodeLine{44 \textcolor{keywordtype}{  real},  \textcolor{keywordtype}{intent(in)}  :: S\textcolor{comment}{         !< salinity [ppt].}}
\DoxyCodeLine{45 \textcolor{keywordtype}{  real},  \textcolor{keywordtype}{intent(in)}  :: pres\textcolor{comment}{      !< pressure [Pa].}}
\DoxyCodeLine{46 \textcolor{keywordtype}{  real},  \textcolor{keywordtype}{intent(out)} :: T\_Fr\textcolor{comment}{      !< Freezing point potential temperature [degC].}}
\DoxyCodeLine{47 \textcolor{keywordtype}{  real},  \textcolor{keywordtype}{intent(in)}  :: TFr\_S0\_P0\textcolor{comment}{ !< The freezing point at S=0, p=0 [degC].}}
\DoxyCodeLine{48 \textcolor{keywordtype}{  real},  \textcolor{keywordtype}{intent(in)}  :: dTFr\_dS\textcolor{comment}{   !< The derivative of freezing point with salinity,}}
\DoxyCodeLine{49 \textcolor{comment}{                                  !! [degC ppt-\/1].}}
\DoxyCodeLine{50 \textcolor{keywordtype}{  real},  \textcolor{keywordtype}{intent(in)}  :: dTFr\_dp\textcolor{comment}{   !< The derivative of freezing point with pressure,}}
\DoxyCodeLine{51 \textcolor{comment}{                                  !! [degC Pa-\/1].}}
\DoxyCodeLine{52 }
\DoxyCodeLine{53   t\_fr = (tfr\_s0\_p0 + dtfr\_ds*s) + dtfr\_dp*pres}
\DoxyCodeLine{54 }

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