\hypertarget{group___g_f_s__rrtmg__pre__mod}{}\doxysubsection{GFS RRTMG Scheme Pre}
\label{group___g_f_s__rrtmg__pre__mod}\index{GFS RRTMG Scheme Pre@{GFS RRTMG Scheme Pre}}


This module contains cloud properties calculation for RRTMG.  


\doxysubsubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \mbox{\hyperlink{group___g_f_s__rrtmg__pre__mod_ga6d9841bd404b47f27921b221f427e716_ga6d9841bd404b47f27921b221f427e716}{gfs\+\_\+rrtmg\+\_\+pre\+::gfs\+\_\+rrtmg\+\_\+pre\+\_\+run}} (im, levs, lm, lmk, lmp, n\+\_\+var\+\_\+lndp, lextop, ltp, imfdeepcnv, imfdeepcnv\+\_\+gf, imfdeepcnv\+\_\+c3, me, ncnd, ntrac, num\+\_\+p3d, npdf3d, ncnvcld3d, ntqv, ntcw, ntiw, ntlnc, ntinc, ntrnc, ntsnc, ntccn, top\+\_\+at\+\_\+1, ntrw, ntsw, ntgl, nthl, ntwa, ntoz, ntsmoke, ntdust, ntcoarsepm, ntclamt, nleffr, nieffr, nseffr, lndp\+\_\+type, kdt, ntdu1, ntdu2, ntdu3, ntdu4, ntdu5, ntss1, ntss2, ntss3, ntss4, ntss5, ntsu, ntbcb, ntbcl, ntocb, ntocl, ntchm, imp\+\_\+physics, imp\+\_\+physics\+\_\+nssl, nssl\+\_\+ccn\+\_\+on, nssl\+\_\+invertccn, imp\+\_\+physics\+\_\+thompson, imp\+\_\+physics\+\_\+gfdl, imp\+\_\+physics\+\_\+zhao\+\_\+carr, imp\+\_\+physics\+\_\+zhao\+\_\+carr\+\_\+pdf, imp\+\_\+physics\+\_\+mg, imp\+\_\+physics\+\_\+wsm6, imp\+\_\+physics\+\_\+fer\+\_\+hires, iovr, iovr\+\_\+rand, iovr\+\_\+maxrand, iovr\+\_\+max, iovr\+\_\+dcorr, iovr\+\_\+exp, iovr\+\_\+exprand, idcor, idcor\+\_\+con, idcor\+\_\+hogan, idcor\+\_\+oreopoulos, dcorr\+\_\+con, julian, yearlen, lndp\+\_\+var\+\_\+list, lsswr, lslwr, ltaerosol, mraerosol, lgfdlmprad, uni\+\_\+cld, effr\+\_\+in, do\+\_\+mynnedmf, lmfshal, lcnorm, lmfdeep2, lcrick, fhswr, fhlwr, solhr, sup, con\+\_\+eps, epsm1, fvirt, rog, rocp, con\+\_\+rd, xlat\+\_\+d, xlat, xlon, coslat, sinlat, tsfc, slmsk, prsi, prsl, prslk, tgrs, sfc\+\_\+wts, mg\+\_\+cld, effrr\+\_\+in, pert\+\_\+clds, sppt\+\_\+wts, sppt\+\_\+amp, cnvw\+\_\+in, cnvc\+\_\+in, qgrs, aer\+\_\+nm, dx, icloud, iaermdl, iaerflg, con\+\_\+pi, con\+\_\+g, con\+\_\+ttp, con\+\_\+thgni, si, coszen, coszdg, effrl\+\_\+inout, effri\+\_\+inout, effrs\+\_\+inout, clouds1, clouds2, clouds3, clouds4, clouds5, qci\+\_\+conv, kd, kt, kb, mtopa, mbota, raddt, tsfg, tsfa, de\+\_\+lgth, alb1d, delp, dz, plvl, plyr, tlvl, tlyr, qlyr, olyr, gasvmr\+\_\+co2, gasvmr\+\_\+n2o, gasvmr\+\_\+ch4, gasvmr\+\_\+o2, gasvmr\+\_\+co, gasvmr\+\_\+cfc11, gasvmr\+\_\+cfc12, gasvmr\+\_\+cfc22, gasvmr\+\_\+ccl4, gasvmr\+\_\+cfc113, aerodp, ext550, clouds6, clouds7, clouds8, clouds9, cldsa, cldfra, cldfra2d, lwp\+\_\+ex, iwp\+\_\+ex, lwp\+\_\+fc, iwp\+\_\+fc, faersw1, faersw2, faersw3, faerlw1, faerlw2, faerlw3, alpha, rrfs\+\_\+sd, aero\+\_\+dir\+\_\+fdb, fdb\+\_\+coef, spp\+\_\+wts\+\_\+rad, spp\+\_\+rad, ico2, errmsg, errflg)
\end{DoxyCompactItemize}


\doxysubsubsection{Detailed Description}


\doxysubsubsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{group___g_f_s__rrtmg__pre__mod_ga6d9841bd404b47f27921b221f427e716_ga6d9841bd404b47f27921b221f427e716}\label{group___g_f_s__rrtmg__pre__mod_ga6d9841bd404b47f27921b221f427e716_ga6d9841bd404b47f27921b221f427e716}} 
\index{GFS RRTMG Scheme Pre@{GFS RRTMG Scheme Pre}!gfs\_rrtmg\_pre\_run@{gfs\_rrtmg\_pre\_run}}
\index{gfs\_rrtmg\_pre\_run@{gfs\_rrtmg\_pre\_run}!GFS RRTMG Scheme Pre@{GFS RRTMG Scheme Pre}}
\doxyparagraph{\texorpdfstring{gfs\_rrtmg\_pre\_run()}{gfs\_rrtmg\_pre\_run()}}
{\footnotesize\ttfamily subroutine, public gfs\+\_\+rrtmg\+\_\+pre\+::gfs\+\_\+rrtmg\+\_\+pre\+\_\+run (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{im,  }\item[{integer, intent(in)}]{levs,  }\item[{integer, intent(in)}]{lm,  }\item[{integer, intent(in)}]{lmk,  }\item[{integer, intent(in)}]{lmp,  }\item[{integer, intent(in)}]{n\+\_\+var\+\_\+lndp,  }\item[{logical, intent(in)}]{lextop,  }\item[{integer, intent(in)}]{ltp,  }\item[{integer, intent(in)}]{imfdeepcnv,  }\item[{integer, intent(in)}]{imfdeepcnv\+\_\+gf,  }\item[{integer, intent(in)}]{imfdeepcnv\+\_\+c3,  }\item[{integer, intent(in)}]{me,  }\item[{integer, intent(in)}]{ncnd,  }\item[{integer, intent(in)}]{ntrac,  }\item[{integer, intent(in)}]{num\+\_\+p3d,  }\item[{integer, intent(in)}]{npdf3d,  }\item[{integer, intent(in)}]{ncnvcld3d,  }\item[{integer, intent(in)}]{ntqv,  }\item[{integer, intent(in)}]{ntcw,  }\item[{integer, intent(in)}]{ntiw,  }\item[{integer, intent(in)}]{ntlnc,  }\item[{integer, intent(in)}]{ntinc,  }\item[{integer, intent(in)}]{ntrnc,  }\item[{integer, intent(in)}]{ntsnc,  }\item[{integer, intent(in)}]{ntccn,  }\item[{logical, intent(in)}]{top\+\_\+at\+\_\+1,  }\item[{integer, intent(in)}]{ntrw,  }\item[{integer, intent(in)}]{ntsw,  }\item[{integer, intent(in)}]{ntgl,  }\item[{integer, intent(in)}]{nthl,  }\item[{integer, intent(in)}]{ntwa,  }\item[{integer, intent(in)}]{ntoz,  }\item[{integer, intent(in)}]{ntsmoke,  }\item[{integer, intent(in)}]{ntdust,  }\item[{integer, intent(in)}]{ntcoarsepm,  }\item[{integer, intent(in)}]{ntclamt,  }\item[{integer, intent(in)}]{nleffr,  }\item[{integer, intent(in)}]{nieffr,  }\item[{integer, intent(in)}]{nseffr,  }\item[{integer, intent(in)}]{lndp\+\_\+type,  }\item[{integer, intent(in)}]{kdt,  }\item[{integer, intent(in)}]{ntdu1,  }\item[{integer, intent(in)}]{ntdu2,  }\item[{integer, intent(in)}]{ntdu3,  }\item[{integer, intent(in)}]{ntdu4,  }\item[{integer, intent(in)}]{ntdu5,  }\item[{integer, intent(in)}]{ntss1,  }\item[{integer, intent(in)}]{ntss2,  }\item[{integer, intent(in)}]{ntss3,  }\item[{integer, intent(in)}]{ntss4,  }\item[{integer, intent(in)}]{ntss5,  }\item[{integer, intent(in)}]{ntsu,  }\item[{integer, intent(in)}]{ntbcb,  }\item[{integer, intent(in)}]{ntbcl,  }\item[{integer, intent(in)}]{ntocb,  }\item[{integer, intent(in)}]{ntocl,  }\item[{integer, intent(in)}]{ntchm,  }\item[{integer, intent(in)}]{imp\+\_\+physics,  }\item[{integer, intent(in)}]{imp\+\_\+physics\+\_\+nssl,  }\item[{logical, intent(in)}]{nssl\+\_\+ccn\+\_\+on,  }\item[{logical, intent(in)}]{nssl\+\_\+invertccn,  }\item[{integer, intent(in)}]{imp\+\_\+physics\+\_\+thompson,  }\item[{integer, intent(in)}]{imp\+\_\+physics\+\_\+gfdl,  }\item[{integer, intent(in)}]{imp\+\_\+physics\+\_\+zhao\+\_\+carr,  }\item[{integer, intent(in)}]{imp\+\_\+physics\+\_\+zhao\+\_\+carr\+\_\+pdf,  }\item[{integer, intent(in)}]{imp\+\_\+physics\+\_\+mg,  }\item[{integer, intent(in)}]{imp\+\_\+physics\+\_\+wsm6,  }\item[{integer, intent(in)}]{imp\+\_\+physics\+\_\+fer\+\_\+hires,  }\item[{integer, intent(in)}]{iovr,  }\item[{integer, intent(in)}]{iovr\+\_\+rand,  }\item[{integer, intent(in)}]{iovr\+\_\+maxrand,  }\item[{integer, intent(in)}]{iovr\+\_\+max,  }\item[{integer, intent(in)}]{iovr\+\_\+dcorr,  }\item[{integer, intent(in)}]{iovr\+\_\+exp,  }\item[{integer, intent(in)}]{iovr\+\_\+exprand,  }\item[{integer, intent(in)}]{idcor,  }\item[{integer, intent(in)}]{idcor\+\_\+con,  }\item[{integer, intent(in)}]{idcor\+\_\+hogan,  }\item[{integer, intent(in)}]{idcor\+\_\+oreopoulos,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{dcorr\+\_\+con,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{julian,  }\item[{integer, intent(in)}]{yearlen,  }\item[{character(len=3), dimension(\+:), intent(in)}]{lndp\+\_\+var\+\_\+list,  }\item[{logical, intent(in)}]{lsswr,  }\item[{logical, intent(in)}]{lslwr,  }\item[{logical, intent(in)}]{ltaerosol,  }\item[{logical, intent(in)}]{mraerosol,  }\item[{logical, intent(in)}]{lgfdlmprad,  }\item[{logical, intent(in)}]{uni\+\_\+cld,  }\item[{logical, intent(in)}]{effr\+\_\+in,  }\item[{logical, intent(in)}]{do\+\_\+mynnedmf,  }\item[{logical, intent(in)}]{lmfshal,  }\item[{logical, intent(in)}]{lcnorm,  }\item[{logical, intent(in)}]{lmfdeep2,  }\item[{logical, intent(in)}]{lcrick,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{fhswr,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{fhlwr,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{solhr,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{sup,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{con\+\_\+eps,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{epsm1,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{fvirt,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{rog,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{rocp,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{con\+\_\+rd,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{xlat\+\_\+d,  }\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)}]{coslat,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{sinlat,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{tsfc,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{slmsk,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{prsi,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{prsl,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{prslk,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{tgrs,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{sfc\+\_\+wts,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{mg\+\_\+cld,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{effrr\+\_\+in,  }\item[{logical, intent(in)}]{pert\+\_\+clds,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{sppt\+\_\+wts,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{sppt\+\_\+amp,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{cnvw\+\_\+in,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{cnvc\+\_\+in,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:,\+:), intent(in)}]{qgrs,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:,\+:), intent(inout)}]{aer\+\_\+nm,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{dx,  }\item[{integer, intent(in)}]{icloud,  }\item[{integer, intent(in)}]{iaermdl,  }\item[{integer, intent(in)}]{iaerflg,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{con\+\_\+pi,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{con\+\_\+g,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{con\+\_\+ttp,  }\item[{real(kind=kind\+\_\+phys), intent(in)}]{con\+\_\+thgni,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{si,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{coszen,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(inout)}]{coszdg,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout)}]{effrl\+\_\+inout,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout)}]{effri\+\_\+inout,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout)}]{effrs\+\_\+inout,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout)}]{clouds1,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout)}]{clouds2,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout)}]{clouds3,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout)}]{clouds4,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout)}]{clouds5,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{qci\+\_\+conv,  }\item[{integer, intent(out)}]{kd,  }\item[{integer, intent(out)}]{kt,  }\item[{integer, intent(out)}]{kb,  }\item[{integer, dimension(\+:,\+:), intent(out)}]{mtopa,  }\item[{integer, dimension(\+:,\+:), intent(out)}]{mbota,  }\item[{real(kind=kind\+\_\+phys), intent(out)}]{raddt,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(out)}]{tsfg,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(out)}]{tsfa,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(out)}]{de\+\_\+lgth,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(out)}]{alb1d,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{delp,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{dz,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{plvl,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{plyr,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{tlvl,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{tlyr,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{qlyr,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{olyr,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{gasvmr\+\_\+co2,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{gasvmr\+\_\+n2o,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{gasvmr\+\_\+ch4,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{gasvmr\+\_\+o2,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{gasvmr\+\_\+co,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{gasvmr\+\_\+cfc11,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{gasvmr\+\_\+cfc12,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{gasvmr\+\_\+cfc22,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{gasvmr\+\_\+ccl4,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{gasvmr\+\_\+cfc113,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{aerodp,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{ext550,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{clouds6,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{clouds7,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{clouds8,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{clouds9,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{cldsa,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{cldfra,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(out)}]{cldfra2d,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(out)}]{lwp\+\_\+ex,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(out)}]{iwp\+\_\+ex,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(out)}]{lwp\+\_\+fc,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(out)}]{iwp\+\_\+fc,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:,\+:), intent(out)}]{faersw1,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:,\+:), intent(out)}]{faersw2,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:,\+:), intent(out)}]{faersw3,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:,\+:), intent(out)}]{faerlw1,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:,\+:), intent(out)}]{faerlw2,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:,\+:), intent(out)}]{faerlw3,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:,\+:), intent(out)}]{alpha,  }\item[{logical, intent(in)}]{rrfs\+\_\+sd,  }\item[{logical, intent(in)}]{aero\+\_\+dir\+\_\+fdb,  }\item[{real(kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{fdb\+\_\+coef,  }\item[{real(kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{spp\+\_\+wts\+\_\+rad,  }\item[{integer, intent(in)}]{spp\+\_\+rad,  }\item[{integer, intent(in)}]{ico2,  }\item[{character(len=$\ast$), intent(out)}]{errmsg,  }\item[{integer, intent(out)}]{errflg }\end{DoxyParamCaption})}

\hypertarget{group___g_f_s__rrtmg__pre__mod_ga6d9841bd404b47f27921b221f427e716_arg_table_GFS_rrtmg_pre_run}{}\doxysubsubsection{Argument Table}\label{group___g_f_s__rrtmg__pre__mod_ga6d9841bd404b47f27921b221f427e716_arg_table_GFS_rrtmg_pre_run}
\hypertarget{group___g_f_s__rrtmg__pre__mod_ga6d9841bd404b47f27921b221f427e716_rrtmg_pre_gen}{}\doxysubsubsection{General Algorithm}\label{group___g_f_s__rrtmg__pre__mod_ga6d9841bd404b47f27921b221f427e716_rrtmg_pre_gen}

\begin{DoxyItemize}
\item Setup surface ground temperature and ground/air skin temperature if required.
\item Prepare atmospheric profiles for radiation input.
\item Compute relative humidity.
\item Recast remaining all tracers (except sphum) forcing them all to be positive.
\item Get layer ozone mass mixing ratio (if use ozone climatology data, call \mbox{\hyperlink{group__module__radiation__gases__mod_ga37a447339c78ec00dbc64246e719851e_ga37a447339c78ec00dbc64246e719851e}{getozn()}}).
\item Call \mbox{\hyperlink{group__module__radiation__astronomy_ga804e1504ae720d0f33b507e7c42b6506_ga804e1504ae720d0f33b507e7c42b6506}{coszmn()}}, to compute cosine of zenith angle (only when SW is called)
\item Call \mbox{\hyperlink{group__module__radiation__gases__mod_ga07f4facfc48b0656b616090de9907ec8_ga07f4facfc48b0656b616090de9907ec8}{getgases()}}, to set up non-\/prognostic gas volume mixing ratioes (gasvmr).
\item Get temperature at layer interface, and layer moisture.
\item Initialize mass mixing ratio of aerosols from NASA GOCART or NASA MERRA-\/2
\end{DoxyItemize}

--- add smoke and dust ---


\begin{DoxyItemize}
\item Call \mbox{\hyperlink{namespacemodule__radiation__aerosols_a811cbcfb0c1b80a292ae821214d226df_a811cbcfb0c1b80a292ae821214d226df}{module\+\_\+radiation\+\_\+aerosols\+::setaer()}} to setup aerosols property profile for radiation.
\item Obtain cloud information for radiation calculations (clouds,cldsa,mtopa,mbota)
\item Call Thompson\textquotesingle{}s subroutine calc\+\_\+effect\+Rad() to compute effective radii
\item Call \mbox{\hyperlink{group__module__radiation__clouds_ga80a767becd3b3b96d86affa56a671ee8_ga80a767becd3b3b96d86affa56a671ee8}{radiation\+\_\+clouds\+\_\+prop()}} to calculate cloud properties.
\item Call \mbox{\hyperlink{group__gfs__sfcpert_ga6fcfce740aade0680404536c8c36cb7b_ga6fcfce740aade0680404536c8c36cb7b}{ppfbet()}} to perturb cld cover.
\item Call \mbox{\hyperlink{group__gfs__sfcpert_gaaba37d1ed677d9d69081e435500de6ef_gaaba37d1ed677d9d69081e435500de6ef}{cdfnor()}} to pert surface albedo.
\end{DoxyItemize}

References \mbox{\hyperlink{group__module__radiation__clouds_gacb83cfe550d560da0cc68124c14a7651_gacb83cfe550d560da0cc68124c14a7651}{module\+\_\+radiation\+\_\+clouds\+::adjust\+\_\+cloudfinal()}}, \mbox{\hyperlink{group__module__radiation__clouds_ga53d52afee0f182a097498136533620e8_ga53d52afee0f182a097498136533620e8}{module\+\_\+radiation\+\_\+clouds\+::adjust\+\_\+cloudh2o()}}, \mbox{\hyperlink{group__module__radiation__clouds_gad6a965b422c445919482d02dd496c889_gad6a965b422c445919482d02dd496c889}{module\+\_\+radiation\+\_\+clouds\+::adjust\+\_\+cloudice()}}, \mbox{\hyperlink{group__module__radiation__clouds_gaf82e3cacec834f670a10496387a74c86_gaf82e3cacec834f670a10496387a74c86}{module\+\_\+radiation\+\_\+clouds\+::cal\+\_\+cldfra3()}}, \mbox{\hyperlink{group__aathompson_gaad2dc0e156ec25e72253fd56169ca4a8_gaad2dc0e156ec25e72253fd56169ca4a8}{module\+\_\+mp\+\_\+thompson\+::calc\+\_\+effectrad()}}, \mbox{\hyperlink{group__gfs__sfcpert_gaaba37d1ed677d9d69081e435500de6ef_gaaba37d1ed677d9d69081e435500de6ef}{surface\+\_\+perturbation\+::cdfnor()}}, \mbox{\hyperlink{group__module__radiation__astronomy_ga804e1504ae720d0f33b507e7c42b6506_ga804e1504ae720d0f33b507e7c42b6506}{module\+\_\+radiation\+\_\+astronomy\+::coszmn()}}, \mbox{\hyperlink{group__module__radiation__gases__mod_ga07f4facfc48b0656b616090de9907ec8_ga07f4facfc48b0656b616090de9907ec8}{module\+\_\+radiation\+\_\+gases\+::getgases()}}, \mbox{\hyperlink{group__module__radiation__gases__mod_ga37a447339c78ec00dbc64246e719851e_ga37a447339c78ec00dbc64246e719851e}{module\+\_\+radiation\+\_\+gases\+::getozn()}}, \mbox{\hyperlink{group__aathompson_gac282447e7260dc10986f8e4cf9562aa4_gac282447e7260dc10986f8e4cf9562aa4}{module\+\_\+mp\+\_\+thompson\+\_\+make\+\_\+number\+\_\+concentrations\+::make\+\_\+dropletnumber()}}, \mbox{\hyperlink{group__aathompson_gaf25c564db3c78616cd33a31af0ca4c1c_gaf25c564db3c78616cd33a31af0ca4c1c}{module\+\_\+mp\+\_\+thompson\+\_\+make\+\_\+number\+\_\+concentrations\+::make\+\_\+icenumber()}}, \mbox{\hyperlink{group__aathompson_ga5ecec0ca534ee7919db0fa21ea3d3322_ga5ecec0ca534ee7919db0fa21ea3d3322}{module\+\_\+mp\+\_\+thompson\+\_\+make\+\_\+number\+\_\+concentrations\+::make\+\_\+rainnumber()}}, \mbox{\hyperlink{group__module__radiation__clouds_ga66cf0f94619a3d865b0c593197a30576_ga66cf0f94619a3d865b0c593197a30576}{module\+\_\+radiation\+\_\+clouds\+::nf\+\_\+clds}}, \mbox{\hyperlink{group__module__radiation__gases__mod_gaffc350828412da77ff3cf3e617ddc66c_gaffc350828412da77ff3cf3e617ddc66c}{module\+\_\+radiation\+\_\+gases\+::nf\+\_\+vgas}}, \mbox{\hyperlink{group__gfs__sfcpert_ga6fcfce740aade0680404536c8c36cb7b_ga6fcfce740aade0680404536c8c36cb7b}{surface\+\_\+perturbation\+::ppfbet()}}, and \mbox{\hyperlink{group__module__radiation__clouds_ga80a767becd3b3b96d86affa56a671ee8_ga80a767becd3b3b96d86affa56a671ee8}{module\+\_\+radiation\+\_\+clouds\+::radiation\+\_\+clouds\+\_\+prop()}}.

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