\hypertarget{group__gfs__ocean__main}{}\doxysubsection{GFS Simple Ocean Module}
\label{group__gfs__ocean__main}\index{GFS Simple Ocean Module@{GFS Simple Ocean Module}}


This subroutine calculates thermodynamical properties over open water.  


\doxysubsubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \mbox{\hyperlink{group__gfs__ocean__main_ga73fa6c3ece5a87e564dbebc1bbab6f29_ga73fa6c3ece5a87e564dbebc1bbab6f29}{sfc\+\_\+ocean\+::sfc\+\_\+ocean\+\_\+run}} (im, hvap, cp, rd, eps, epsm1, rvrdm1, ps, u1, v1, t1, q1, tskin, cm, ch, lseaspray, fm, fm10, prsl1, prslki, wet, use\+\_\+lake\+\_\+model, wind,,
\end{DoxyCompactItemize}


\doxysubsubsection{Detailed Description}
\hypertarget{group__gfs__ocean__main_arg_table_sfc_ocean_run}{}\doxysubsubsection{Argument Table}\label{group__gfs__ocean__main_arg_table_sfc_ocean_run}


\texorpdfstring{$>$}{>}\hypertarget{group__gfs__ocean__main_gen_sfc_ocean}{}\doxysubsubsection{GFS Simple Ocean scheme General Algorithm}\label{group__gfs__ocean__main_gen_sfc_ocean}


\doxysubsubsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{group__gfs__ocean__main_ga73fa6c3ece5a87e564dbebc1bbab6f29_ga73fa6c3ece5a87e564dbebc1bbab6f29}\label{group__gfs__ocean__main_ga73fa6c3ece5a87e564dbebc1bbab6f29_ga73fa6c3ece5a87e564dbebc1bbab6f29}} 
\index{GFS Simple Ocean Module@{GFS Simple Ocean Module}!sfc\_ocean\_run@{sfc\_ocean\_run}}
\index{sfc\_ocean\_run@{sfc\_ocean\_run}!GFS Simple Ocean Module@{GFS Simple Ocean Module}}
\doxyparagraph{\texorpdfstring{sfc\_ocean\_run()}{sfc\_ocean\_run()}}
{\footnotesize\ttfamily subroutine, public sfc\+\_\+ocean\+::sfc\+\_\+ocean\+\_\+run (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{im,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{hvap,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{cp,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{rd,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{eps,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{epsm1,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{rvrdm1,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{ps,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{u1,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{v1,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{t1,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{q1,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{tskin,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{cm,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{ch,  }\item[{logical, intent(in)}]{lseaspray,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{fm,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{fm10,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{prsl1,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{prslki,  }\item[{logical, dimension(\+:), intent(in)}]{wet,  }\item[{integer, dimension(\+:), intent(in)}]{use\+\_\+lake\+\_\+model,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{wind }\end{DoxyParamCaption})}


\begin{DoxyItemize}
\item Flag for open water
\item Initialize variables. all units are supposedly m.\+k.\+s. unless specified
\item Calcualte sensible and latent heat flux over open water
\item Include sea spray effects
\end{DoxyItemize}