\hypertarget{interfacemom__eos__teos10_1_1calculate__spec__vol__teos10}{}\section{mom\+\_\+eos\+\_\+teos10\+:\+:calculate\+\_\+spec\+\_\+vol\+\_\+teos10 Interface Reference} \label{interfacemom__eos__teos10_1_1calculate__spec__vol__teos10}\index{mom\+\_\+eos\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+teos10@{mom\+\_\+eos\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+teos10}} \subsection{Detailed Description} Compute the in situ specific volume of sea water (in \mbox{[}m3 kg-\/1\mbox{]}), or an anomaly with respect to a reference specific volume, from absolute salinity (in g/kg), conservative temperature (in deg C), and pressure \mbox{[}Pa\mbox{]}, using the T\+E\+O\+S10 expressions. Definition at line 35 of file M\+O\+M\+\_\+\+E\+O\+S\+\_\+\+T\+E\+O\+S10.\+F90. \subsection*{Private functions} \begin{DoxyCompactItemize} \item subroutine \hyperlink{interfacemom__eos__teos10_1_1calculate__spec__vol__teos10_adbabe235871642248e1a406ca9d9c739}{calculate\+\_\+spec\+\_\+vol\+\_\+scalar\+\_\+teos10} (T, S, pressure, specvol, spv\+\_\+ref) \begin{DoxyCompactList}\small\item\em This subroutine computes the in situ specific volume of sea water (specvol in \mbox{[}m3 kg-\/1\mbox{]}) from absolute salinity (S \mbox{[}g kg-\/1\mbox{]}), conservative temperature (T \mbox{[}degC\mbox{]}) and pressure \mbox{[}Pa\mbox{]}, using the T\+E\+O\+S10 equation of state. If spv\+\_\+ref is present, specvol is an anomaly from spv\+\_\+ref. \end{DoxyCompactList}\item subroutine \hyperlink{interfacemom__eos__teos10_1_1calculate__spec__vol__teos10_ad6ad84d3a6b0e82e6608247627fe3a2e}{calculate\+\_\+spec\+\_\+vol\+\_\+array\+\_\+teos10} (T, S, pressure, specvol, start, npts, spv\+\_\+ref) \begin{DoxyCompactList}\small\item\em This subroutine computes the in situ specific volume of sea water (specvol in \mbox{[}m3 kg-\/1\mbox{]}) from absolute salinity (S \mbox{[}g kg-\/1\mbox{]}), conservative temperature (T \mbox{[}degC\mbox{]}) and pressure \mbox{[}Pa\mbox{]}, using the T\+E\+O\+S10 equation of state. If spv\+\_\+ref is present, specvol is an anomaly from spv\+\_\+ref. \end{DoxyCompactList}\end{DoxyCompactItemize} \subsection{Detailed Description} Compute the in situ specific volume of sea water (in \mbox{[}m3 kg-\/1\mbox{]}), or an anomaly with respect to a reference specific volume, from absolute salinity (in g/kg), conservative temperature (in deg C), and pressure \mbox{[}Pa\mbox{]}, using the T\+E\+O\+S10 expressions. Definition at line 35 of file M\+O\+M\+\_\+\+E\+O\+S\+\_\+\+T\+E\+O\+S10.\+F90. \subsection{Functions and subroutines} \mbox{\Hypertarget{interfacemom__eos__teos10_1_1calculate__spec__vol__teos10_ad6ad84d3a6b0e82e6608247627fe3a2e}\label{interfacemom__eos__teos10_1_1calculate__spec__vol__teos10_ad6ad84d3a6b0e82e6608247627fe3a2e}} \index{mom\+\_\+eos\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+teos10@{mom\+\_\+eos\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+teos10}!calculate\+\_\+spec\+\_\+vol\+\_\+array\+\_\+teos10@{calculate\+\_\+spec\+\_\+vol\+\_\+array\+\_\+teos10}} \index{calculate\+\_\+spec\+\_\+vol\+\_\+array\+\_\+teos10@{calculate\+\_\+spec\+\_\+vol\+\_\+array\+\_\+teos10}!mom\+\_\+eos\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+teos10@{mom\+\_\+eos\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+teos10}} \subsubsection{\texorpdfstring{calculate\+\_\+spec\+\_\+vol\+\_\+array\+\_\+teos10()}{calculate\_spec\_vol\_array\_teos10()}} {\footnotesize\ttfamily subroutine mom\+\_\+eos\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+array\+\_\+teos10 (\begin{DoxyParamCaption}\item[{real, dimension(\+:), intent(in)}]{T, }\item[{real, dimension(\+:), intent(in)}]{S, }\item[{real, dimension(\+:), intent(in)}]{pressure, }\item[{real, dimension(\+:), intent(out)}]{specvol, }\item[{integer, intent(in)}]{start, }\item[{integer, intent(in)}]{npts, }\item[{real, intent(in), optional}]{spv\+\_\+ref }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}} This subroutine computes the in situ specific volume of sea water (specvol in \mbox{[}m3 kg-\/1\mbox{]}) from absolute salinity (S \mbox{[}g kg-\/1\mbox{]}), conservative temperature (T \mbox{[}degC\mbox{]}) and pressure \mbox{[}Pa\mbox{]}, using the T\+E\+O\+S10 equation of state. If spv\+\_\+ref is present, specvol is an anomaly from spv\+\_\+ref. \begin{DoxyParams}[1]{Parameters} \mbox{\tt in} & {\em t} & Conservative temperature relative to the surface \mbox{[}degC\mbox{]}.\\ \hline \mbox{\tt in} & {\em s} & salinity \mbox{[}g kg-\/1\mbox{]}.\\ \hline \mbox{\tt in} & {\em pressure} & pressure \mbox{[}Pa\mbox{]}.\\ \hline \mbox{\tt out} & {\em specvol} & in situ specific volume \mbox{[}m3 kg-\/1\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 \mbox{\tt in} & {\em spv\+\_\+ref} & A reference specific volume \mbox{[}m3 kg-\/1\mbox{]}. \\ \hline \end{DoxyParams} Definition at line 137 of file M\+O\+M\+\_\+\+E\+O\+S\+\_\+\+T\+E\+O\+S10.\+F90. \begin{DoxyCode} 137 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)} :: t\textcolor{comment}{ !< Conservative temperature relative to the surface} 138 \textcolor{comment}{ !! [degC].} 139 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)} :: s\textcolor{comment}{ !< salinity [g kg-1].} 140 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(in)} :: pressure\textcolor{comment}{ !< pressure [Pa].} 141 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{intent(out)} :: specvol\textcolor{comment}{ !< in situ specific volume [m3 kg-1].} 142 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: start\textcolor{comment}{ !< the starting point in the arrays.} 143 \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)} :: npts\textcolor{comment}{ !< the number of values to calculate.} 144 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: spv\_ref\textcolor{comment}{ !< A reference specific volume [m3 kg-1].} 145 146 \textcolor{comment}{! Local variables} 147 \textcolor{keywordtype}{real} :: zs, zt, zp 148 \textcolor{keywordtype}{integer} :: j 149 150 \textcolor{keywordflow}{do} j=start,start+npts-1 151 \textcolor{comment}{!Conversions} 152 zs = s(j) \textcolor{comment}{!gsw\_sr\_from\_sp(S(j)) !Convert practical salinity to absolute salinity} 153 zt = t(j) \textcolor{comment}{!gsw\_ct\_from\_pt(S(j),T(j)) !Convert potantial temp to conservative temp} 154 zp = pressure(j)* pa2db \textcolor{comment}{!Convert pressure from Pascal to decibar} 155 156 \textcolor{keywordflow}{if} (s(j) < -1.0e-10) \textcolor{keywordflow}{then} 157 specvol(j) = 0.001 \textcolor{comment}{!Can we assume safely that this is a missing value?} 158 \textcolor{keywordflow}{else} 159 specvol(j) = gsw\_specvol(zs,zt,zp) 160 \textcolor{keywordflow}{ endif} 161 \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(spv\_ref)) specvol(j) = specvol(j) - spv\_ref 162 \textcolor{keywordflow}{ enddo} 163 \end{DoxyCode} \mbox{\Hypertarget{interfacemom__eos__teos10_1_1calculate__spec__vol__teos10_adbabe235871642248e1a406ca9d9c739}\label{interfacemom__eos__teos10_1_1calculate__spec__vol__teos10_adbabe235871642248e1a406ca9d9c739}} \index{mom\+\_\+eos\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+teos10@{mom\+\_\+eos\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+teos10}!calculate\+\_\+spec\+\_\+vol\+\_\+scalar\+\_\+teos10@{calculate\+\_\+spec\+\_\+vol\+\_\+scalar\+\_\+teos10}} \index{calculate\+\_\+spec\+\_\+vol\+\_\+scalar\+\_\+teos10@{calculate\+\_\+spec\+\_\+vol\+\_\+scalar\+\_\+teos10}!mom\+\_\+eos\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+teos10@{mom\+\_\+eos\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+teos10}} \subsubsection{\texorpdfstring{calculate\+\_\+spec\+\_\+vol\+\_\+scalar\+\_\+teos10()}{calculate\_spec\_vol\_scalar\_teos10()}} {\footnotesize\ttfamily subroutine mom\+\_\+eos\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+teos10\+::calculate\+\_\+spec\+\_\+vol\+\_\+scalar\+\_\+teos10 (\begin{DoxyParamCaption}\item[{real, intent(in)}]{T, }\item[{real, intent(in)}]{S, }\item[{real, intent(in)}]{pressure, }\item[{real, intent(out)}]{specvol, }\item[{real, intent(in), optional}]{spv\+\_\+ref }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}} This subroutine computes the in situ specific volume of sea water (specvol in \mbox{[}m3 kg-\/1\mbox{]}) from absolute salinity (S \mbox{[}g kg-\/1\mbox{]}), conservative temperature (T \mbox{[}degC\mbox{]}) and pressure \mbox{[}Pa\mbox{]}, using the T\+E\+O\+S10 equation of state. If spv\+\_\+ref is present, specvol is an anomaly from spv\+\_\+ref. \begin{DoxyParams}[1]{Parameters} \mbox{\tt in} & {\em t} & Conservative temperature \mbox{[}degC\mbox{]}.\\ \hline \mbox{\tt in} & {\em s} & Absolute salinity \mbox{[}g kg-\/1\mbox{]}\\ \hline \mbox{\tt in} & {\em pressure} & pressure \mbox{[}Pa\mbox{]}.\\ \hline \mbox{\tt out} & {\em specvol} & in situ specific volume \mbox{[}m3 kg-\/1\mbox{]}.\\ \hline \mbox{\tt in} & {\em spv\+\_\+ref} & A reference specific volume \mbox{[}m3 kg-\/1\mbox{]}. \\ \hline \end{DoxyParams} Definition at line 116 of file M\+O\+M\+\_\+\+E\+O\+S\+\_\+\+T\+E\+O\+S10.\+F90. \begin{DoxyCode} 116 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)} :: t\textcolor{comment}{ !< Conservative temperature [degC].} 117 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)} :: s\textcolor{comment}{ !< Absolute salinity [g kg-1]} 118 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)} :: pressure\textcolor{comment}{ !< pressure [Pa].} 119 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(out)} :: specvol\textcolor{comment}{ !< in situ specific volume [m3 kg-1].} 120 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{optional}, \textcolor{keywordtype}{intent(in)} :: spv\_ref\textcolor{comment}{ !< A reference specific volume [m3 kg-1].} 121 122 \textcolor{comment}{! Local variables} 123 \textcolor{keywordtype}{real}, \textcolor{keywordtype}{dimension(1)} :: t0, s0, pressure0, spv0 124 125 t0(1) = t ; s0(1) = s ; pressure0(1) = pressure 126 127 \textcolor{keyword}{call }calculate\_spec\_vol\_array\_teos10(t0, s0, pressure0, spv0, 1, 1, spv\_ref) 128 specvol = spv0(1) \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\+\_\+\+E\+O\+S\+\_\+\+T\+E\+O\+S10.\+F90\end{DoxyCompactItemize}