\hypertarget{namespacesfc__sice}{}\doxysubsection{sfc\+\_\+sice Module Reference}
\label{namespacesfc__sice}\index{sfc\_sice@{sfc\_sice}}


This module contains the CCPP-\/compliant GFS sea ice scheme.  


\doxysubsubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \mbox{\hyperlink{group__gfs__sice__main_ga149e1298ecc35315fae91f67b158b4ad_ga149e1298ecc35315fae91f67b158b4ad}{sfc\+\_\+sice\+\_\+run}} (im, kice, sbc, hvap, tgice, cp, eps, epsm1, rvrdm1, grav, t0c, rd, ps, t1, q1, delt, sfcemis, dlwflx, sfcnsw, sfcdsw, srflag, cm, ch, prsl1, prslki, prsik1, prslk1, wind, flag\+\_\+iter, use\+\_\+lake\+\_\+model, lprnt, ipr, thsfc\+\_\+loc, hice, fice, tice, weasd, tsfc\+\_\+wat, tprcp, tiice, ep, snwdph, qss\+\_\+i, qss\+\_\+w, snowmt, gflux, cmm, chh, evapi, evapw, hflxi, hflxw, islmsk, errmsg, errflg
\end{DoxyCompactItemize}


\doxysubsubsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{group__gfs__sice__main_ga149e1298ecc35315fae91f67b158b4ad_ga149e1298ecc35315fae91f67b158b4ad}\label{group__gfs__sice__main_ga149e1298ecc35315fae91f67b158b4ad_ga149e1298ecc35315fae91f67b158b4ad}} 
\index{sfc\_sice@{sfc\_sice}!sfc\_sice\_run@{sfc\_sice\_run}}
\index{sfc\_sice\_run@{sfc\_sice\_run}!sfc\_sice@{sfc\_sice}}
\doxyparagraph{\texorpdfstring{sfc\_sice\_run()}{sfc\_sice\_run()}}
{\footnotesize\ttfamily subroutine sfc\+\_\+sice\+::sfc\+\_\+sice\+\_\+run (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{im,  }\item[{integer, intent(in)}]{kice,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{sbc,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{hvap,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{tgice,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{cp,  }\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), intent(in)}]{grav,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{t0c,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{rd,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{ps,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{t1,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{q1,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{delt,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{sfcemis,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{dlwflx,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{sfcnsw,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{sfcdsw,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{srflag,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{cm,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{ch,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{prsl1,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{prslki,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{prsik1,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{prslk1,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{wind,  }\item[{logical, dimension(im), intent(in)}]{flag\+\_\+iter,  }\item[{integer, dimension(im), intent(in)}]{use\+\_\+lake\+\_\+model,  }\item[{logical, intent(in)}]{lprnt,  }\item[{integer, intent(in)}]{ipr,  }\item[{logical, intent(in)}]{thsfc\+\_\+loc,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{hice,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{fice,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{tice,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{weasd,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{tsfc\+\_\+wat,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{tprcp,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout)}]{tiice,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{ep,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{snwdph,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{qss\+\_\+i,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{qss\+\_\+w,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{snowmt,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{gflux,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{cmm,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{chh,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{evapi,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{evapw,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{hflxi,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{hflxw,  }\item[{integer, dimension(\+:), intent(in)}]{islmsk,  }\item[{character(len=$\ast$), intent(out)}]{errmsg,  }\item[{integer, intent(out)}]{errflg }\end{DoxyParamCaption})}

program history log\+:
\begin{DoxyItemize}
\item 2005 -- xingren wu created from original progtm and added two-\/layer ice model
\item 200x -- sarah lu added flag\+\_\+iter
\item oct 2006 -- h. wei added cmm and chh to output
\item 2007 -- x. wu modified for mom4 coupling (i.\+e. cpldice) (not used anymore)
\item 2007 -- s. moorthi micellaneous changes
\item may 2009 -- y.-\/t. hou modified to include surface emissivity effect on lw radiation. replaced the confusing slrad with sfc net sw sfcnsw (dn-\/up). reformatted the code and add program documentation block.
\item sep 2009 -- s. moorthi removed rcl, changed pressure units and further optimized
\item jan 2015 -- x. wu change \char`\"{}cimin = 0.\+15\char`\"{} for both uncoupled and coupled case
\item Set flag for sea-\/ice.
\item Convert snow depth in water equivalent from mm to m unit.
\item Calculate sensible and latent heat flux over open water \& sea ice.
\item Calculate net solar incoming at top {\itshape sneti}.
\item Calculate net non-\/solar and upir heat flux @ ice surface {\itshape hfi}.
\item Calculate heat flux derivative at surface {\itshape hfd}.
\item Assigin heat flux from ocean {\itshape focn} and snowfall rate as constants, which should be from ocean model and other physics.
\item Initialize snow depth {\itshape snowd}.
\item Call the three-\/layer thermodynamics sea ice model \mbox{\hyperlink{group__gfs__sice__main_ga7ef26147a1c8d851bfaf0a7574ba9fbb_ga7ef26147a1c8d851bfaf0a7574ba9fbb}{ice3lay()}}.
\end{DoxyItemize}

References \mbox{\hyperlink{group__gfs__sice__main_ga7ef26147a1c8d851bfaf0a7574ba9fbb_ga7ef26147a1c8d851bfaf0a7574ba9fbb}{ice3lay()}}.

Here is the call graph for this function\+:\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=278pt]{group__gfs__sice__main_ga149e1298ecc35315fae91f67b158b4ad_ga149e1298ecc35315fae91f67b158b4ad_cgraph}
\end{center}
\end{figure}
