\hypertarget{namespacegfs__radiation__surface}{}\doxysubsection{gfs\+\_\+radiation\+\_\+surface Module Reference}
\label{namespacegfs__radiation__surface}\index{gfs\_radiation\_surface@{gfs\_radiation\_surface}}
\doxysubsubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \mbox{\hyperlink{group___g_f_s__radiation__surface__mod_ga7931dcc879eb821b3a58ddf893bb2081_ga7931dcc879eb821b3a58ddf893bb2081}{gfs\+\_\+radiation\+\_\+surface\+\_\+init}} (me, ialb, iems, semis\+\_\+file, con\+\_\+pi, errmsg, errflg)
\item 
subroutine \mbox{\hyperlink{namespacegfs__radiation__surface_adf74c669fa67ec92d00a4ecb3156c7ca_adf74c669fa67ec92d00a4ecb3156c7ca}{gfs\+\_\+radiation\+\_\+surface\+\_\+run}} (ialb, im, nf\+\_\+albd, frac\+\_\+grid, lslwr, lsswr, lsm, lsm\+\_\+noahmp, lsm\+\_\+ruc, xlat, xlon, slmsk, lndp\+\_\+type, n\+\_\+var\+\_\+lndp, sfc\+\_\+alb\+\_\+pert, lndp\+\_\+var\+\_\+list, lndp\+\_\+prt\+\_\+list, landfrac, snodl, snodi, sncovr, sncovr\+\_\+ice, fice, zorl, hprime, tsfg, tsfa, tisfc, coszen, cplice, min\+\_\+seaice, min\+\_\+lakeice, lakefrac, use\+\_\+lake\+\_\+model, alvsf, alnsf, alvwf, alnwf, facsf, facwf, semis\+\_\+lnd, semis\+\_\+ice, semis\+\_\+wat, snoalb, use\+\_\+cice\+\_\+alb, con\+\_\+ttp, albdvis\+\_\+lnd, albdnir\+\_\+lnd, albivis\+\_\+lnd, albinir\+\_\+lnd, albdvis\+\_\+ice, albdnir\+\_\+ice, albivis\+\_\+ice, albinir\+\_\+ice, semisbase, semis, sfcalb, sfc\+\_\+alb\+\_\+dif, errmsg, errflg)
\end{DoxyCompactItemize}


\doxysubsubsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{group___g_f_s__radiation__surface__mod_ga7931dcc879eb821b3a58ddf893bb2081_ga7931dcc879eb821b3a58ddf893bb2081}\label{group___g_f_s__radiation__surface__mod_ga7931dcc879eb821b3a58ddf893bb2081_ga7931dcc879eb821b3a58ddf893bb2081}} 
\index{gfs\_radiation\_surface@{gfs\_radiation\_surface}!gfs\_radiation\_surface\_init@{gfs\_radiation\_surface\_init}}
\index{gfs\_radiation\_surface\_init@{gfs\_radiation\_surface\_init}!gfs\_radiation\_surface@{gfs\_radiation\_surface}}
\doxyparagraph{\texorpdfstring{gfs\_radiation\_surface\_init()}{gfs\_radiation\_surface\_init()}}
{\footnotesize\ttfamily subroutine gfs\+\_\+radiation\+\_\+surface\+::gfs\+\_\+radiation\+\_\+surface\+\_\+init (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{me,  }\item[{integer, intent(in)}]{ialb,  }\item[{integer, intent(in)}]{iems,  }\item[{character(len=26), intent(in)}]{semis\+\_\+file,  }\item[{real(kind\+\_\+phys), intent(in)}]{con\+\_\+pi,  }\item[{character(len=$\ast$), intent(out)}]{errmsg,  }\item[{integer, intent(out)}]{errflg }\end{DoxyParamCaption})}



References \mbox{\hyperlink{group__radiation__surface__mod_ga426f71b67e0f724e9ee0987f5592d9a1_ga426f71b67e0f724e9ee0987f5592d9a1}{module\+\_\+radiation\+\_\+surface\+::sfc\+\_\+init()}}.

Here is the call graph for this function\+:\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group___g_f_s__radiation__surface__mod_ga7931dcc879eb821b3a58ddf893bb2081_ga7931dcc879eb821b3a58ddf893bb2081_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacegfs__radiation__surface_adf74c669fa67ec92d00a4ecb3156c7ca_adf74c669fa67ec92d00a4ecb3156c7ca}\label{namespacegfs__radiation__surface_adf74c669fa67ec92d00a4ecb3156c7ca_adf74c669fa67ec92d00a4ecb3156c7ca}} 
\index{gfs\_radiation\_surface@{gfs\_radiation\_surface}!gfs\_radiation\_surface\_run@{gfs\_radiation\_surface\_run}}
\index{gfs\_radiation\_surface\_run@{gfs\_radiation\_surface\_run}!gfs\_radiation\_surface@{gfs\_radiation\_surface}}
\doxyparagraph{\texorpdfstring{gfs\_radiation\_surface\_run()}{gfs\_radiation\_surface\_run()}}
{\footnotesize\ttfamily subroutine gfs\+\_\+radiation\+\_\+surface\+::gfs\+\_\+radiation\+\_\+surface\+\_\+run (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{ialb,  }\item[{integer, intent(in)}]{im,  }\item[{integer, intent(in)}]{nf\+\_\+albd,  }\item[{logical, intent(in)}]{frac\+\_\+grid,  }\item[{logical, intent(in)}]{lslwr,  }\item[{logical, intent(in)}]{lsswr,  }\item[{integer, intent(in)}]{lsm,  }\item[{integer, intent(in)}]{lsm\+\_\+noahmp,  }\item[{integer, intent(in)}]{lsm\+\_\+ruc,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{xlat,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{xlon,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{slmsk,  }\item[{integer, intent(in)}]{lndp\+\_\+type,  }\item[{integer, intent(in)}]{n\+\_\+var\+\_\+lndp,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{sfc\+\_\+alb\+\_\+pert,  }\item[{character(len=3), dimension(\+:), intent(in)}]{lndp\+\_\+var\+\_\+list,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{lndp\+\_\+prt\+\_\+list,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{landfrac,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{snodl,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{snodi,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{sncovr,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{sncovr\+\_\+ice,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{fice,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{zorl,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{hprime,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{tsfg,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{tsfa,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{tisfc,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{coszen,  }\item[{logical, intent(in)}]{cplice,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{min\+\_\+seaice,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{min\+\_\+lakeice,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{lakefrac,  }\item[{integer, dimension(\+:), intent(in)}]{use\+\_\+lake\+\_\+model,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{alvsf,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{alnsf,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{alvwf,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{alnwf,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{facsf,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{facwf,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{semis\+\_\+lnd,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{semis\+\_\+ice,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{semis\+\_\+wat,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{snoalb,  }\item[{logical, intent(in)}]{use\+\_\+cice\+\_\+alb,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{con\+\_\+ttp,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{albdvis\+\_\+lnd,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{albdnir\+\_\+lnd,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{albivis\+\_\+lnd,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{albinir\+\_\+lnd,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{albdvis\+\_\+ice,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{albdnir\+\_\+ice,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{albivis\+\_\+ice,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{albinir\+\_\+ice,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{semisbase,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{semis,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout)}]{sfcalb,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{sfc\+\_\+alb\+\_\+dif,  }\item[{character(len=$\ast$), intent(out)}]{errmsg,  }\item[{integer, intent(out)}]{errflg }\end{DoxyParamCaption})}

\hypertarget{namespacegfs__radiation__surface_adf74c669fa67ec92d00a4ecb3156c7ca_arg_table_GFS_radiation_surface_run}{}\doxysubsubsection{Argument Table}\label{namespacegfs__radiation__surface_adf74c669fa67ec92d00a4ecb3156c7ca_arg_table_GFS_radiation_surface_run}
 
\begin{DoxyItemize}
\item Call \mbox{\hyperlink{group__radiation__surface__mod_ga05fb983d8a6a2e1a7799a904e605e7a8_ga05fb983d8a6a2e1a7799a904e605e7a8}{module\+\_\+radiation\+\_\+surface\+::setemis()}},to set up surface emissivity for LW radiation.
\item Set surface albedo perturbation, if requested
\item Call \mbox{\hyperlink{group__radiation__surface__mod_gaa89a74135f630a75a4fd6bc9d94d4381_gaa89a74135f630a75a4fd6bc9d94d4381}{module\+\_\+radiation\+\_\+surface\+::setalb()}},to set up surface albedor for SW radiation.
\end{DoxyItemize}
\begin{DoxyEnumerate}
\item Approximate mean surface albedo from vis-\/ and nir-\/ diffuse values.
\end{DoxyEnumerate}

References \mbox{\hyperlink{group__radiation__surface__mod_gaf86249177fba52727e4f97a18c5d7ae7_gaf86249177fba52727e4f97a18c5d7ae7}{module\+\_\+radiation\+\_\+surface\+::epsln}}, \mbox{\hyperlink{group__radiation__surface__mod_ga2ec5311522bcb4d3839efcac47c83d39_ga2ec5311522bcb4d3839efcac47c83d39}{module\+\_\+radiation\+\_\+surface\+::f\+\_\+one}}, \mbox{\hyperlink{group__radiation__surface__mod_ga24bdfd029cdd7b17991298fa8693ed5b_ga24bdfd029cdd7b17991298fa8693ed5b}{module\+\_\+radiation\+\_\+surface\+::f\+\_\+zero}}, \mbox{\hyperlink{group__radiation__surface__mod_gaa89a74135f630a75a4fd6bc9d94d4381_gaa89a74135f630a75a4fd6bc9d94d4381}{module\+\_\+radiation\+\_\+surface\+::setalb()}}, and \mbox{\hyperlink{group__radiation__surface__mod_ga05fb983d8a6a2e1a7799a904e605e7a8_ga05fb983d8a6a2e1a7799a904e605e7a8}{module\+\_\+radiation\+\_\+surface\+::setemis()}}.

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