\hypertarget{group__module__radlw__main}{}\doxysubsection{GFS RRTMG-\/\+LW Main Module}
\label{group__module__radlw__main}\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}


This module includes NCEP\textquotesingle{}s modifications of the RRTMG-\/\+LW radiation code from AER.

The RRTMG-\/\+LW package includes three files\+:  


\doxysubsubsection*{Modules}
\begin{DoxyCompactItemize}
\item 
module \mbox{\hyperlink{namespacemodule__radlw__parameters}{module\+\_\+radlw\+\_\+parameters}}
\begin{DoxyCompactList}\small\item\em This module contains LW band parameters set up. \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__avplank}{module\+\_\+radlw\+\_\+avplank}}
\begin{DoxyCompactList}\small\item\em This module contains plank flux data. \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__ref}{module\+\_\+radlw\+\_\+ref}}
\begin{DoxyCompactList}\small\item\em This module contains reference temperature and pressure. \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__cldprlw}{module\+\_\+radlw\+\_\+cldprlw}}
\begin{DoxyCompactList}\small\item\em This module contains cloud property coefficients. \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb01}{module\+\_\+radlw\+\_\+kgb01}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 01\+: 10-\/350 cm-\/1 (low -\/ h2o; high -\/ h2o) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb02}{module\+\_\+radlw\+\_\+kgb02}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 02\+: 350-\/500 cm-\/1 (low -\/ h2o; high -\/ h2o) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb03}{module\+\_\+radlw\+\_\+kgb03}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 03\+: 500-\/630 cm-\/1 (low -\/ h2o, co2; high -\/ h2o, co2) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb04}{module\+\_\+radlw\+\_\+kgb04}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 04\+: 630-\/700 cm-\/1 (low -\/ h2o, co2; high -\/ co2, o3) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb05}{module\+\_\+radlw\+\_\+kgb05}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 05\+: 700-\/820 cm-\/1 (low -\/ h2o, co2; high -\/ co2, o3) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb06}{module\+\_\+radlw\+\_\+kgb06}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 06\+: 820-\/980 cm-\/1 (low -\/ h2o; high -\/ /) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb07}{module\+\_\+radlw\+\_\+kgb07}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 07\+: 980-\/1080 cm-\/1 (low -\/ h2o, o3; high -\/ o3) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb08}{module\+\_\+radlw\+\_\+kgb08}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 08\+: 1080-\/1180 cm-\/1 (low -\/ h2o; high -\/ o3) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb09}{module\+\_\+radlw\+\_\+kgb09}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 09\+: 1180-\/1390 cm-\/1 (low -\/ h2o, ch4; high -\/ ch4) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb10}{module\+\_\+radlw\+\_\+kgb10}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 10\+: 1390-\/1480 cm-\/1 (low -\/ h2o; high -\/ h2o) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb11}{module\+\_\+radlw\+\_\+kgb11}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 11\+: 1480-\/1800 cm-\/1 (low -\/ h2o; high -\/ h2o) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb12}{module\+\_\+radlw\+\_\+kgb12}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 12\+: 1800-\/2080 cm-\/1 (low -\/ h2o, co2; high -\/ /) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb13}{module\+\_\+radlw\+\_\+kgb13}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 13\+: 2080-\/2250 cm-\/1 (low -\/ h2o, n2o; high -\/ /) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb14}{module\+\_\+radlw\+\_\+kgb14}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 14\+: 2250-\/2380 cm-\/1 (low -\/ co2; high -\/ co2) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb15}{module\+\_\+radlw\+\_\+kgb15}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 15\+: 2380-\/2600 cm-\/1 (low -\/ n2o, co2; high -\/ /) \end{DoxyCompactList}\item 
module \mbox{\hyperlink{namespacemodule__radlw__kgb16}{module\+\_\+radlw\+\_\+kgb16}}
\begin{DoxyCompactList}\small\item\em This module sets up absorption coefficients for band 16\+: 2600-\/3000 cm-\/1 (low -\/ h2o, ch4; high -\/ /) \end{DoxyCompactList}\end{DoxyCompactItemize}
\doxysubsubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \mbox{\hyperlink{group__module__radlw__main_gade63efa1411b87e9228d34006944b329_gade63efa1411b87e9228d34006944b329}{rrtmg\+\_\+lw\+::rrtmg\+\_\+lw\+\_\+run}} (plyr, plvl, tlyr, tlvl, qlyr, olyr, gasvmr\+\_\+co2, gasvmr\+\_\+n2o, gasvmr\+\_\+ch4, gasvmr\+\_\+o2, gasvmr\+\_\+co, gasvmr\+\_\+cfc11, gasvmr\+\_\+cfc12, gasvmr\+\_\+cfc22, gasvmr\+\_\+ccl4, icseed, aeraod, aerssa, sfemis, sfgtmp, dzlyr, delpin, de\+\_\+lgth, alpha, npts, nlay, nlp1, lprnt, cld\+\_\+cf, lslwr, top\+\_\+at\+\_\+1, iovr, iovr\+\_\+rand, iovr\+\_\+maxrand, iovr\+\_\+max, iovr\+\_\+dcorr, iovr\+\_\+exp, iovr\+\_\+exprand, inc\+\_\+minor\+\_\+gas, ilwcliq, ilwcice, isubclw, hlwc, topflx, sfcflx, cldtau, HLW0, HLWB, FLXPRF, cld\+\_\+lwp, cld\+\_\+ref\+\_\+liq, cld\+\_\+iwp, cld\+\_\+ref\+\_\+ice, cld\+\_\+rwp, cld\+\_\+ref\+\_\+rain, cld\+\_\+swp, cld\+\_\+ref\+\_\+snow, cld\+\_\+od, errmsg, errflg)
\item 
subroutine, public \mbox{\hyperlink{group__module__radlw__main_ga379498533128ca884f9d029ef02e1f25_ga379498533128ca884f9d029ef02e1f25}{rrtmg\+\_\+lw\+::rlwinit}} (me, rad\+\_\+hr\+\_\+units, inc\+\_\+minor\+\_\+gas, ilwcliq, isubclw, iovr, iovr\+\_\+rand, iovr\+\_\+maxrand, iovr\+\_\+max, iovr\+\_\+dcorr, iovr\+\_\+exp, iovr\+\_\+exprand, errflg, errmsg)
\begin{DoxyCompactList}\small\item\em This subroutine performs calculations necessary for the initialization of the longwave model, which includes non-\/varying model variables, conversion factors, and look-\/up tables ~\newline
 \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga188f960ab677a1015cf5d08a73f8d065_ga188f960ab677a1015cf5d08a73f8d065}{rrtmg\+\_\+lw\+::cldprop}} (cfrac, cliqp, reliq, cicep, reice, cdat1, cdat2, cdat3, cdat4, nlay, nlp1, ipseed, dz, de\+\_\+lgth, iovr, alpha, ilwcliq, ilwcice, isubclw, cldfmc, taucld)
\begin{DoxyCompactList}\small\item\em This subroutine computes the cloud optical depth(s) for each cloudy layer and g-\/point interval. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_gab60cf43f655ddfaec2df63444c6b899c_gab60cf43f655ddfaec2df63444c6b899c}{rrtmg\+\_\+lw\+::mcica\+\_\+subcol}} (cldf, nlay, ipseed, dz, de\+\_\+lgth, alpha, iovr, lcloudy)
\begin{DoxyCompactList}\small\item\em This suroutine computes sub-\/colum cloud profile flag array. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga555eb0bcd1a400265c458cd97ba972de_ga555eb0bcd1a400265c458cd97ba972de}{rrtmg\+\_\+lw\+::setcoef}} (pavel, tavel, tz, stemp, h2ovmr, colamt, coldry, colbrd, nlay, nlp1, laytrop, pklay, pklev, jp, jt, jt1, rfrate, fac00, fac01, fac10, fac11, selffac, selffrac, indself, forfac, forfrac, indfor, minorfrac, scaleminor, scaleminorn2, indminor)
\begin{DoxyCompactList}\small\item\em This subroutine computes various coefficients needed in radiative transfer calculations. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga5b2017b2dfab616e103d102f2e05ec32_ga5b2017b2dfab616e103d102f2e05ec32}{rrtmg\+\_\+lw\+::rtrn}} (semiss, delp, cldfrc, taucld, tautot, pklay, pklev, fracs, secdif, nlay, nlp1, totuflux, totdflux, htr, totuclfl, totdclfl, htrcl, htrb)
\begin{DoxyCompactList}\small\item\em This subroutine computes the upward/downward radiative fluxes, and heating rates for both clear or cloudy atmosphere. Clouds assumed as randomly overlaping in a vertical column. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga07da933ac2e2f41461ac0d2a03d5e206_ga07da933ac2e2f41461ac0d2a03d5e206}{rrtmg\+\_\+lw\+::rtrnmr}} (semiss, delp, cldfrc, taucld, tautot, pklay, pklev, fracs, secdif, nlay, nlp1, totuflux, totdflux, htr, totuclfl, totdclfl, htrcl, htrb)
\begin{DoxyCompactList}\small\item\em This subroutine computes the upward/downward radiative fluxes, and heating rates for both clear or cloudy atmosphere. Clouds are assumed as in maximum-\/randomly overlaping in a vertical column. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga3faed55d3d5b73b8cb75bba1b85d292b_ga3faed55d3d5b73b8cb75bba1b85d292b}{rrtmg\+\_\+lw\+::rtrnmc}} (semiss, delp, cldfmc, taucld, tautot, pklay, pklev, fracs, secdif, nlay, nlp1, totuflux, totdflux, htr, totuclfl, totdclfl, htrcl, htrb)
\begin{DoxyCompactList}\small\item\em This subroutine computes the upward/downward radiative fluxes, and heating rates for both clear or cloudy atmosphere.\+Clouds are treated with the mcica stochastic approach. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol}} (laytrop, pavel, coldry, colamt, colbrd, wx, tauaer, rfrate, fac00, fac01, fac10, fac11, jp, jt, jt1, selffac, selffrac, indself, forfac, forfrac, indfor, minorfrac, scaleminor, scaleminorn2, indminor, nlay, fracs, tautot)
\begin{DoxyCompactList}\small\item\em This subroutine contains optical depths developed for the rapid radiative transfer model. \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga001d1bcd17533f7f920f859ff9a4e60f_ga001d1bcd17533f7f920f859ff9a4e60f}{taugb01}}
\begin{DoxyCompactList}\small\item\em band 1\+: 10-\/350 cm-\/1 (low key -\/ h2o; low minor -\/ n2); (high key -\/ h2o; high minor -\/ n2) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga926415cb51870dda9a90883e01a2ee38_ga926415cb51870dda9a90883e01a2ee38}{taugb02}}
\begin{DoxyCompactList}\small\item\em Band 2\+: 350-\/500 cm-\/1 (low key -\/ h2o; high key -\/ h2o) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga45e39b507d1fc031c80d9c7f06905d4a_ga45e39b507d1fc031c80d9c7f06905d4a}{taugb03}}
\begin{DoxyCompactList}\small\item\em Band 3\+: 500-\/630 cm-\/1 (low key -\/ h2o,co2; low minor -\/ n2o); (high key -\/ h2o,co2; high minor -\/ n2o) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_gae69174bcf1a87dc7a5baffac69797d07_gae69174bcf1a87dc7a5baffac69797d07}{taugb04}}
\begin{DoxyCompactList}\small\item\em Band 4\+: 630-\/700 cm-\/1 (low key -\/ h2o,co2; high key -\/ o3,co2) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga92653ffcd20ff247a00eaf3339cba6df_ga92653ffcd20ff247a00eaf3339cba6df}{taugb05}}
\begin{DoxyCompactList}\small\item\em Band 5\+: 700-\/820 cm-\/1 (low key -\/ h2o,co2; low minor -\/ o3, ccl4) (high key -\/ o3,co2) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga7190d415614aa35deefacff1041d4719_ga7190d415614aa35deefacff1041d4719}{taugb06}}
\begin{DoxyCompactList}\small\item\em Band 6\+: 820-\/980 cm-\/1 (low key -\/ h2o; low minor -\/ co2) (high key -\/ none; high minor -\/ cfc11, cfc12) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga2208d86ae0712a0ca426bbe96de825bc_ga2208d86ae0712a0ca426bbe96de825bc}{taugb07}}
\begin{DoxyCompactList}\small\item\em Band 7\+: 980-\/1080 cm-\/1 (low key -\/ h2o,o3; low minor -\/ co2) (high key -\/ o3; high minor -\/ co2) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga1447d5bda5b521d27171e61881684183_ga1447d5bda5b521d27171e61881684183}{taugb08}}
\begin{DoxyCompactList}\small\item\em Band 8\+: 1080-\/1180 cm-\/1 (low key -\/ h2o; low minor -\/ co2,o3,n2o) (high key -\/ o3; high minor -\/ co2, n2o) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga889abbaaa2d421c0c3dc820e2004414d_ga889abbaaa2d421c0c3dc820e2004414d}{taugb09}}
\begin{DoxyCompactList}\small\item\em Band 9\+: 1180-\/1390 cm-\/1 (low key -\/ h2o,ch4; low minor -\/ n2o) (high key -\/ ch4; high minor -\/ n2o) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga74c1cb8390daff1e5ce5e863c50b7873_ga74c1cb8390daff1e5ce5e863c50b7873}{taugb10}}
\begin{DoxyCompactList}\small\item\em Band 10\+: 1390-\/1480 cm-\/1 (low key -\/ h2o; high key -\/ h2o) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga573fd5b3580d6bbf5bfa2f01ee547034_ga573fd5b3580d6bbf5bfa2f01ee547034}{taugb11}}
\begin{DoxyCompactList}\small\item\em Band 11\+: 1480-\/1800 cm-\/1 (low -\/ h2o; low minor -\/ o2) (high key -\/ h2o; high minor -\/ o2) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_gae56eaa9e3b897ca235d4d6b271cc1e47_gae56eaa9e3b897ca235d4d6b271cc1e47}{taugb12}}
\begin{DoxyCompactList}\small\item\em Band 12\+: 1800-\/2080 cm-\/1 (low -\/ h2o,co2; high -\/ nothing) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga2ac7254d2dcff516e8e44b8b679302c0_ga2ac7254d2dcff516e8e44b8b679302c0}{taugb13}}
\begin{DoxyCompactList}\small\item\em Band 13\+: 2080-\/2250 cm-\/1 (low key-\/h2o,n2o; high minor-\/o3 minor) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga26140cbe1a3d6119b56cf5c2d539670e_ga26140cbe1a3d6119b56cf5c2d539670e}{taugb14}}
\begin{DoxyCompactList}\small\item\em Band 14\+: 2250-\/2380 cm-\/1 (low -\/ co2; high -\/ co2) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga93b5c0ae0525697ffffb6228581a301c_ga93b5c0ae0525697ffffb6228581a301c}{taugb15}}
\begin{DoxyCompactList}\small\item\em Band 15\+: 2380-\/2600 cm-\/1 (low -\/ n2o,co2; low minor -\/ n2) (high -\/ nothing) \end{DoxyCompactList}\item 
subroutine \mbox{\hyperlink{group__module__radlw__main_ga942ce0031745cd1b3b4ebc3915970554_ga942ce0031745cd1b3b4ebc3915970554}{taugb16}}
\begin{DoxyCompactList}\small\item\em Band 16\+: 2600-\/3250 cm-\/1 (low key-\/ h2o,ch4; high key -\/ ch4) \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsubsection{Detailed Description}

\begin{DoxyItemize}
\item radlw\+\_\+param.\+f, which contains\+:
\begin{DoxyItemize}
\item \mbox{\hyperlink{namespacemodule__radlw__parameters}{module\+\_\+radlw\+\_\+parameters}}\+: band parameters set up
\end{DoxyItemize}
\item radlw\+\_\+datatb.\+f, which contains modules\+:
\begin{DoxyItemize}
\item \mbox{\hyperlink{namespacemodule__radlw__avplank}{module\+\_\+radlw\+\_\+avplank}}\+: plank flux data
\item \mbox{\hyperlink{namespacemodule__radlw__ref}{module\+\_\+radlw\+\_\+ref}}\+: reference temperature and pressure
\item \mbox{\hyperlink{namespacemodule__radlw__cldprlw}{module\+\_\+radlw\+\_\+cldprlw}}\+: cloud property coefficients
\item module\+\_\+radlw\+\_\+kgbnn\+: absorption coeffients for 16 bands, where nn = 01-\/16
\end{DoxyItemize}
\item radlw\+\_\+main.\+f, which contains\+:
\begin{DoxyItemize}
\item \mbox{\hyperlink{group__module__radlw__main_gade63efa1411b87e9228d34006944b329_gade63efa1411b87e9228d34006944b329}{rrtmg\+\_\+lw\+\_\+run()}}\+: the main LW radiation routine
\item \mbox{\hyperlink{group__module__radlw__main_ga379498533128ca884f9d029ef02e1f25_ga379498533128ca884f9d029ef02e1f25}{rlwinit()}}\+: the initialization routine
\end{DoxyItemize}
\end{DoxyItemize}

\begin{DoxyVersion}{Version}
NCEP LW v5.\+1 Nov 2012 -\/RRTMG-\/\+LW v4.\+82
\end{DoxyVersion}
\begin{DoxyCopyright}{Copyright}
2002-\/2007, Atmospheric \& Environmental Research, Inc. (AER). This software may be used, copied, or redistributed as long as it is not sold and this copyright notice is reproduced on each copy made. This model is provided as is without any express or implied warranties. (\href{http://www.rtweb.aer.com/}{\texttt{ http\+://www.\+rtweb.\+aer.\+com/}}) 
\end{DoxyCopyright}
\hypertarget{group__module__radlw__main_arg_table_rrtmg_lw_run}{}\doxysubsubsection{Argument Table}\label{group__module__radlw__main_arg_table_rrtmg_lw_run}
\hypertarget{group__module__radlw__main_gen_lwrad}{}\doxysubsubsection{RRTMG Longwave Radiation Scheme General Algorithm}\label{group__module__radlw__main_gen_lwrad}


\doxysubsubsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{group__module__radlw__main_gade63efa1411b87e9228d34006944b329_gade63efa1411b87e9228d34006944b329}\label{group__module__radlw__main_gade63efa1411b87e9228d34006944b329_gade63efa1411b87e9228d34006944b329}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!rrtmg\_lw\_run@{rrtmg\_lw\_run}}
\index{rrtmg\_lw\_run@{rrtmg\_lw\_run}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{rrtmg\_lw\_run()}{rrtmg\_lw\_run()}}
{\footnotesize\ttfamily subroutine, public rrtmg\+\_\+lw\+::rrtmg\+\_\+lw\+\_\+run (\begin{DoxyParamCaption}\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{plyr,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{plvl,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{tlyr,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{tlvl,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{qlyr,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{olyr,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{gasvmr\+\_\+co2,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{gasvmr\+\_\+n2o,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{gasvmr\+\_\+ch4,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{gasvmr\+\_\+o2,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{gasvmr\+\_\+co,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{gasvmr\+\_\+cfc11,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{gasvmr\+\_\+cfc12,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{gasvmr\+\_\+cfc22,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{gasvmr\+\_\+ccl4,  }\item[{integer, dimension(npts), intent(in)}]{icseed,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:,\+:), intent(in)}]{aeraod,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:,\+:), intent(in)}]{aerssa,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{sfemis,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{sfgtmp,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{dzlyr,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{delpin,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:), intent(in)}]{de\+\_\+lgth,  }\item[{real (kind=kind\+\_\+phys), dimension(npts,nlay), intent(in)}]{alpha,  }\item[{integer, intent(in)}]{npts,  }\item[{integer, intent(in)}]{nlay,  }\item[{integer, intent(in)}]{nlp1,  }\item[{logical, intent(in)}]{lprnt,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in)}]{cld\+\_\+cf,  }\item[{logical, intent(in)}]{lslwr,  }\item[{logical, intent(in)}]{top\+\_\+at\+\_\+1,  }\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[{logical, intent(in)}]{inc\+\_\+minor\+\_\+gas,  }\item[{integer, intent(in)}]{ilwcliq,  }\item[{integer, intent(in)}]{ilwcice,  }\item[{integer, intent(in)}]{isubclw,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout)}]{hlwc,  }\item[{type (\mbox{\hyperlink{structmodule__radlw__parameters_1_1topflw__type}{topflw\+\_\+type}}), dimension(\+:), intent(inout)}]{topflx,  }\item[{type (\mbox{\hyperlink{structmodule__radlw__parameters_1_1sfcflw__type}{sfcflw\+\_\+type}}), dimension(\+:), intent(inout)}]{sfcflx,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout)}]{cldtau,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(inout), optional}]{HLW0,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:,\+:), intent(inout), optional}]{HLWB,  }\item[{type (\mbox{\hyperlink{structmodule__radlw__parameters_1_1proflw__type}{proflw\+\_\+type}}), dimension(\+:,\+:), intent(inout), optional}]{FLXPRF,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in), optional}]{cld\+\_\+lwp,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in), optional}]{cld\+\_\+ref\+\_\+liq,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in), optional}]{cld\+\_\+iwp,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in), optional}]{cld\+\_\+ref\+\_\+ice,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in), optional}]{cld\+\_\+rwp,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in), optional}]{cld\+\_\+ref\+\_\+rain,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in), optional}]{cld\+\_\+swp,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in), optional}]{cld\+\_\+ref\+\_\+snow,  }\item[{real (kind=kind\+\_\+phys), dimension(\+:,\+:), intent(in), optional}]{cld\+\_\+od,  }\item[{character(len=$\ast$), intent(out)}]{errmsg,  }\item[{integer, intent(out)}]{errflg }\end{DoxyParamCaption})}


\begin{DoxyEnumerate}
\item Change random number seed value for each radiation invocation (isubclw =1 or 2).
\item Read surface emissivity.
\item Prepare atmospheric profile for use in rrtm.
\item Set absorber amount for h2o, co2, and o3.
\item Set up column amount for rare gases n2o,ch4,o2,co,ccl4,cf11,cf12, cf22, convert from volume mixing ratio to molec/cm2 based on coldry (scaled to 1.\+0e-\/20).
\item Set aerosol optical properties.
\item Read cloud optical properties.
\item Compute precipitable water vapor for diffusivity angle adjustments.
\item Compute column amount for broadening gases.
\item Compute diffusivity angle adjustments.
\item For cloudy atmosphere, call \mbox{\hyperlink{group__module__radlw__main_ga188f960ab677a1015cf5d08a73f8d065_ga188f960ab677a1015cf5d08a73f8d065}{cldprop()}} to set cloud optical properties.
\item Calling \mbox{\hyperlink{group__module__radlw__main_ga555eb0bcd1a400265c458cd97ba972de_ga555eb0bcd1a400265c458cd97ba972de}{setcoef()}} to compute various coefficients needed in radiative transfer calculations.
\item Call \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{taumol()}} to calculte the gaseous optical depths and Plank fractions for each longwave spectral band.
\item Call the radiative transfer routine based on cloud scheme selection. Compute the upward/downward radiative fluxes, and heating rates for both clear or cloudy atmosphere. ~\newline
 -\/ call \mbox{\hyperlink{group__module__radlw__main_ga5b2017b2dfab616e103d102f2e05ec32_ga5b2017b2dfab616e103d102f2e05ec32}{rtrn()}}\+: clouds are assumed as randomly overlaping in a vertical column ~\newline
 -\/ call \mbox{\hyperlink{group__module__radlw__main_ga07da933ac2e2f41461ac0d2a03d5e206_ga07da933ac2e2f41461ac0d2a03d5e206}{rtrnmr()}}\+: clouds are assumed as in maximum-\/randomly overlaping in a vertical column; ~\newline
 -\/ call \mbox{\hyperlink{group__module__radlw__main_ga3faed55d3d5b73b8cb75bba1b85d292b_ga3faed55d3d5b73b8cb75bba1b85d292b}{rtrnmc()}}\+: clouds are treated with the mcica stochastic approach.
\item Save outputs.
\end{DoxyEnumerate}

References \mbox{\hyperlink{group__module__radlw__main_ga188f960ab677a1015cf5d08a73f8d065_ga188f960ab677a1015cf5d08a73f8d065}{rrtmg\+\_\+lw\+::cldprop()}}, \mbox{\hyperlink{group__module__radlw__main_ga5b2017b2dfab616e103d102f2e05ec32_ga5b2017b2dfab616e103d102f2e05ec32}{rrtmg\+\_\+lw\+::rtrn()}}, \mbox{\hyperlink{group__module__radlw__main_ga3faed55d3d5b73b8cb75bba1b85d292b_ga3faed55d3d5b73b8cb75bba1b85d292b}{rrtmg\+\_\+lw\+::rtrnmc()}}, \mbox{\hyperlink{group__module__radlw__main_ga07da933ac2e2f41461ac0d2a03d5e206_ga07da933ac2e2f41461ac0d2a03d5e206}{rrtmg\+\_\+lw\+::rtrnmr()}}, \mbox{\hyperlink{group__module__radlw__main_ga555eb0bcd1a400265c458cd97ba972de_ga555eb0bcd1a400265c458cd97ba972de}{rrtmg\+\_\+lw\+::setcoef()}}, and \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_gade63efa1411b87e9228d34006944b329_gade63efa1411b87e9228d34006944b329_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga379498533128ca884f9d029ef02e1f25_ga379498533128ca884f9d029ef02e1f25}\label{group__module__radlw__main_ga379498533128ca884f9d029ef02e1f25_ga379498533128ca884f9d029ef02e1f25}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!rlwinit@{rlwinit}}
\index{rlwinit@{rlwinit}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{rlwinit()}{rlwinit()}}
{\footnotesize\ttfamily subroutine, public rrtmg\+\_\+lw\+::rlwinit (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{me,  }\item[{integer, intent(in)}]{rad\+\_\+hr\+\_\+units,  }\item[{logical, intent(in)}]{inc\+\_\+minor\+\_\+gas,  }\item[{integer, intent(in)}]{ilwcliq,  }\item[{integer, intent(in)}]{isubclw,  }\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(out)}]{errflg,  }\item[{character(len=$\ast$), intent(out)}]{errmsg }\end{DoxyParamCaption})}

Lookup tables are computed for use in the lw radiative transfer, and input absorption coefficient data for each spectral band are reduced from 256 g-\/point intervals to 140. 
\begin{DoxyParams}{Parameters}
{\em me} & print control for parallel process \\
\hline
\end{DoxyParams}
\hypertarget{group__module__radlw__main_ga379498533128ca884f9d029ef02e1f25_rlwinit_gen}{}\doxysubsubsection{rlwinit General Algorithm}\label{group__module__radlw__main_ga379498533128ca884f9d029ef02e1f25_rlwinit_gen}

\begin{DoxyEnumerate}
\item Setup default surface emissivity for each band.
\item Setup constant factors for flux and heating rate the 1.\+0e-\/2 is to convert pressure from mb to $N/m^2$.
\item Compute lookup tables for transmittance, tau transition function, and clear sky tau (for the cloudy sky radiative transfer). tau is computed as a function of the tau transition function, transmittance is calculated as a function of tau, and the tau transition function is calculated using the linear in tau formulation at values of tau above 0.\+01. tf is approximated as tau/6 for tau \texorpdfstring{$<$}{<} 0.\+01. all tables are computed at intervals of 0.\+001. the inverse of the constant used in the pade approximation to the tau transition function is set to b.
\end{DoxyEnumerate}

Referenced by \mbox{\hyperlink{group___g_f_s__rrtmg__setup__mod_ga57c188f5ede1fbeaa1c48b8f7ac8b459_ga57c188f5ede1fbeaa1c48b8f7ac8b459}{gfs\+\_\+rrtmg\+\_\+setup\+::gfs\+\_\+rrtmg\+\_\+setup\+\_\+init()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=308pt]{group__module__radlw__main_ga379498533128ca884f9d029ef02e1f25_ga379498533128ca884f9d029ef02e1f25_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga188f960ab677a1015cf5d08a73f8d065_ga188f960ab677a1015cf5d08a73f8d065}\label{group__module__radlw__main_ga188f960ab677a1015cf5d08a73f8d065_ga188f960ab677a1015cf5d08a73f8d065}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!cldprop@{cldprop}}
\index{cldprop@{cldprop}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{cldprop()}{cldprop()}}
{\footnotesize\ttfamily subroutine rrtmg\+\_\+lw\+::cldprop (\begin{DoxyParamCaption}\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlp1), intent(in)}]{cfrac,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{cliqp,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{reliq,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{cicep,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{reice,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{cdat1,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{cdat2,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{cdat3,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{cdat4,  }\item[{integer, intent(in)}]{nlay,  }\item[{integer, intent(in)}]{nlp1,  }\item[{integer, intent(in)}]{ipseed,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{dz,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{de\+\_\+lgth,  }\item[{integer, intent(in)}]{iovr,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{alpha,  }\item[{integer, intent(in)}]{ilwcliq,  }\item[{integer, intent(in)}]{ilwcice,  }\item[{integer, intent(in)}]{isubclw,  }\item[{real (kind=kind\+\_\+phys), dimension(ngptlw,nlay), intent(out)}]{cldfmc,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,nlay), intent(out)}]{taucld }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}


\begin{DoxyParams}{Parameters}
{\em cfrac} & layer cloud fraction \\
\hline
{\em cliqp} & layer in-\/cloud liq water path ( $g/m^2$) \\
\hline
{\em reliq} & mean eff radius for liq cloud (micron) \\
\hline
{\em cicep} & layer in-\/cloud ice water path ( $g/m^2$) \\
\hline
{\em reice} & mean eff radius for ice cloud (micron) \\
\hline
{\em cdat1} & layer rain drop water path ( $g/m^2$) \\
\hline
{\em cdat2} & effective radius for rain drop (micron) \\
\hline
{\em cdat3} & layer snow flake water path( $g/m^2$) \\
\hline
{\em cdat4} & mean effective radius for snow flake(micron) \\
\hline
{\em nlay} & number of layer number \\
\hline
{\em nlp1} & number of veritcal levels \\
\hline
{\em ipseed} & permutation seed for generating random numbers (isubclw\texorpdfstring{$>$}{>}0) \\
\hline
{\em dz} & layer thickness (km) \\
\hline
{\em de\+\_\+lgth} & layer cloud decorrelation length (km) ~\newline
 \\
\hline
{\em iovr} & cloud overlapping control flag \\
\hline
{\em alpha} & EXP/\+ER cloud overlap decorrelation parameter \\
\hline
{\em cldfmc} & cloud fraction for each sub-\/column \\
\hline
{\em taucld} & cloud optical depth for bands (non-\/mcica) \\
\hline
\end{DoxyParams}
\hypertarget{group__module__radlw__main_ga188f960ab677a1015cf5d08a73f8d065_gen_cldprop}{}\doxysubsubsection{cldprop General Algorithm}\label{group__module__radlw__main_ga188f960ab677a1015cf5d08a73f8d065_gen_cldprop}

\begin{DoxyEnumerate}
\item Compute cloud radiative properties for a cloudy column\+: ~\newline
 -\/ Compute cloud radiative properties for rain and snow (tauran,tausnw) ~\newline
 -\/ Calculation of absorption coefficients due to water clouds(tauliq) ~\newline
 -\/ Calculation of absorption coefficients due to ice clouds (tauice). ~\newline
 -\/ For prognostic cloud scheme\+: sum up the cloud optical property\+: ~\newline
 $ taucld=tauice+tauliq+tauran+tausnw $
\item if GFS\+\_\+typedefs\+::isubclw \texorpdfstring{$>$}{>} 0, call \mbox{\hyperlink{group__module__radlw__main_gab60cf43f655ddfaec2df63444c6b899c_gab60cf43f655ddfaec2df63444c6b899c}{mcica\+\_\+subcol()}} to distribute cloud properties to each g-\/point.
\end{DoxyEnumerate}

References \mbox{\hyperlink{group__module__radlw__main_gab60cf43f655ddfaec2df63444c6b899c_gab60cf43f655ddfaec2df63444c6b899c}{rrtmg\+\_\+lw\+::mcica\+\_\+subcol()}}.



Referenced by \mbox{\hyperlink{group__module__radlw__main_gade63efa1411b87e9228d34006944b329_gade63efa1411b87e9228d34006944b329}{rrtmg\+\_\+lw\+::rrtmg\+\_\+lw\+\_\+run()}}.

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=330pt]{group__module__radlw__main_ga188f960ab677a1015cf5d08a73f8d065_ga188f960ab677a1015cf5d08a73f8d065_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=324pt]{group__module__radlw__main_ga188f960ab677a1015cf5d08a73f8d065_ga188f960ab677a1015cf5d08a73f8d065_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_gab60cf43f655ddfaec2df63444c6b899c_gab60cf43f655ddfaec2df63444c6b899c}\label{group__module__radlw__main_gab60cf43f655ddfaec2df63444c6b899c_gab60cf43f655ddfaec2df63444c6b899c}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!mcica\_subcol@{mcica\_subcol}}
\index{mcica\_subcol@{mcica\_subcol}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{mcica\_subcol()}{mcica\_subcol()}}
{\footnotesize\ttfamily subroutine rrtmg\+\_\+lw\+::mcica\+\_\+subcol (\begin{DoxyParamCaption}\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{cldf,  }\item[{integer, intent(in)}]{nlay,  }\item[{integer, intent(in)}]{ipseed,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{dz,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{de\+\_\+lgth,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{alpha,  }\item[{integer, intent(in)}]{iovr,  }\item[{logical, dimension(ngptlw,nlay), intent(out)}]{lcloudy }\end{DoxyParamCaption})}


\begin{DoxyParams}{Parameters}
{\em cldf} & layer cloud fraction \\
\hline
{\em nlay} & number of model vertical layers \\
\hline
{\em ipseed} & permute seed for random num generator \\
\hline
{\em dz} & layer thickness \\
\hline
{\em de\+\_\+lgth} & layer cloud decorrelation length (km) \\
\hline
{\em alpha} & EXP/\+ER cloud overlap decorrelation parameter \\
\hline
{\em lcloudy} & sub-\/colum cloud profile flag array \\
\hline
\end{DoxyParams}
\hypertarget{group__module__radlw__main_gab60cf43f655ddfaec2df63444c6b899c_mcica_subcol_gen}{}\doxysubsubsection{mcica\+\_\+subcol General Algorithm}\label{group__module__radlw__main_gab60cf43f655ddfaec2df63444c6b899c_mcica_subcol_gen}

\begin{DoxyEnumerate}
\item Call random\+\_\+setseed() to advance randum number generator by ipseed values.
\item Sub-\/column set up according to overlapping assumption\+:
\begin{DoxyItemize}
\item For random overlap, pick a random value at every level
\item For max-\/random overlap, pick a random value at every level
\item For maximum overlap, pick same random numebr at every level
\end{DoxyItemize}
\item Generate subcolumns for homogeneous clouds.
\end{DoxyEnumerate}

Referenced by \mbox{\hyperlink{group__module__radlw__main_ga188f960ab677a1015cf5d08a73f8d065_ga188f960ab677a1015cf5d08a73f8d065}{rrtmg\+\_\+lw\+::cldprop()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_gab60cf43f655ddfaec2df63444c6b899c_gab60cf43f655ddfaec2df63444c6b899c_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga555eb0bcd1a400265c458cd97ba972de_ga555eb0bcd1a400265c458cd97ba972de}\label{group__module__radlw__main_ga555eb0bcd1a400265c458cd97ba972de_ga555eb0bcd1a400265c458cd97ba972de}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!setcoef@{setcoef}}
\index{setcoef@{setcoef}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{setcoef()}{setcoef()}}
{\footnotesize\ttfamily subroutine rrtmg\+\_\+lw\+::setcoef (\begin{DoxyParamCaption}\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{pavel,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{tavel,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(in)}]{tz,  }\item[{real (kind=kind\+\_\+phys), intent(in)}]{stemp,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{h2ovmr,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay,maxgas), intent(in)}]{colamt,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{coldry,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{colbrd,  }\item[{integer, intent(in)}]{nlay,  }\item[{integer, intent(in)}]{nlp1,  }\item[{integer, intent(out)}]{laytrop,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,0\+:nlay), intent(out)}]{pklay,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,0\+:nlay), intent(out)}]{pklev,  }\item[{integer, dimension(nlay), intent(out)}]{jp,  }\item[{integer, dimension(nlay), intent(out)}]{jt,  }\item[{integer, dimension(nlay), intent(out)}]{jt1,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay,nrates,2), intent(out)}]{rfrate,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{fac00,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{fac01,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{fac10,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{fac11,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{selffac,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{selffrac,  }\item[{integer, dimension(nlay), intent(out)}]{indself,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{forfac,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{forfrac,  }\item[{integer, dimension(nlay), intent(out)}]{indfor,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{minorfrac,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{scaleminor,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{scaleminorn2,  }\item[{integer, dimension(nlay), intent(out)}]{indminor }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}


\begin{DoxyParams}{Parameters}
{\em pavel} & layer pressure (mb) \\
\hline
{\em tavel} & layer temperature (K) \\
\hline
{\em tz} & level(interface) temperatures (K) \\
\hline
{\em stemp} & surface ground temperature (K) \\
\hline
{\em h2ovmr} & layer w.\+v. volumn mixing ratio (kg/kg) \\
\hline
{\em colamt} & column amounts of absorbing gases. 2nd indices range\+: 1-\/maxgas, for watervapor,carbon dioxide, ozone, nitrous oxide, methane,oxigen, carbon monoxide,etc. $(mol/cm^2)$ \\
\hline
{\em coldry} & dry air column amount \\
\hline
{\em colbrd} & column amount of broadening gases \\
\hline
{\em nlay} & total number of vertical layers \\
\hline
{\em nlp1} & total number of vertical levels \\
\hline
{\em laytrop} & tropopause layer index (unitless) \\
\hline
{\em pklay} & integrated planck func at lay temp \\
\hline
{\em pklev} & integrated planck func at lev temp \\
\hline
{\em jp} & indices of lower reference pressure \\
\hline
{\em jt,jt1} & indices of lower reference temperatures \\
\hline
{\em rfrate} & ref ratios of binary species param ~\newline
 (\+:,m,\+:)m=1-\/h2o/co2,2-\/h2o/o3,3-\/h2o/n2o, 4-\/h2o/ch4,5-\/n2o/co2,6-\/o3/co2 ~\newline
 (\+:,\+:,n)n=1,2\+: the rates of ref press at the 2 sides of the layer \\
\hline
{\em fac00,fac01,fac10,fac11} & factors multiply the reference ks, i,j=0/1 for lower/higher of the 2 appropriate temperatures and altitudes. \\
\hline
{\em selffac} & scale factor for w. v. self-\/continuum equals (w. v. density)/(atmospheric density at 296k and 1013 mb) \\
\hline
{\em selffrac} & factor for temperature interpolation of reference w. v. self-\/continuum data \\
\hline
{\em indself} & index of lower ref temp for selffac \\
\hline
{\em forfac} & scale factor for w. v. foreign-\/continuum \\
\hline
{\em forfrac} & factor for temperature interpolation of reference w.\+v. foreign-\/continuum data \\
\hline
{\em indfor} & index of lower ref temp for forfac \\
\hline
{\em minorfrac} & factor for minor gases \\
\hline
{\em scaleminor,scaleminorn2} & scale factors for minor gases \\
\hline
{\em indminor} & index of lower ref temp for minor gases \\
\hline
\end{DoxyParams}
\hypertarget{group__module__radlw__main_ga555eb0bcd1a400265c458cd97ba972de_setcoef_gen}{}\doxysubsubsection{setcoef General Algorithm}\label{group__module__radlw__main_ga555eb0bcd1a400265c458cd97ba972de_setcoef_gen}

\begin{DoxyEnumerate}
\item Calculate information needed by the radiative transfer routine that is specific to this atmosphere, especially some of the coefficients and indices needed to compute the optical depths by interpolating data from stored reference atmospheres.
\item Calculate the integrated Planck functions for each band at the surface, level, and layer temperatures.
\item Find the two reference pressures on either side of the layer pressure. store them in jp and jp1. store in fp the fraction of the difference (in ln(pressure)) between these two values that the layer pressure lies.
\item Determine, for each reference pressure (jp and jp1), which reference temperature (these are different for each reference pressure) is nearest the layer temperature but does not exceed it. store these indices in jt and jt1, resp. store in ft (resp. ft1) the fraction of the way between jt (jt1) and the next highest reference temperature that the layer temperature falls.
\item We have now isolated the layer ln pressure and temperature, between two reference pressures and two reference temperatures (for each reference pressure). we multiply the pressure fraction fp with the appropriate temperature fractions to get the factors that will be needed for the interpolation that yields the optical depths (performed in routines taugbn for band n).
\item Set up factors needed to separately include the minor gases in the calculation of absorption coefficient.
\item If the pressure is less than $\sim$100mb, perform a different set of species interpolations.
\item Set up factors needed to separately include the water vapor self-\/continuum in the calculation of absorption coefficient.
\item Setup reference ratio to be used in calculation of binary species parameter in lower atmosphere.
\item Setup reference ratio to be used in calculation of binary species parameter in upper atmosphere.
\item Rescale {\itshape selffac} and {\itshape forfac} for use in taumol.
\end{DoxyEnumerate}

Referenced by \mbox{\hyperlink{group__module__radlw__main_gade63efa1411b87e9228d34006944b329_gade63efa1411b87e9228d34006944b329}{rrtmg\+\_\+lw\+::rrtmg\+\_\+lw\+\_\+run()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{group__module__radlw__main_ga555eb0bcd1a400265c458cd97ba972de_ga555eb0bcd1a400265c458cd97ba972de_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga5b2017b2dfab616e103d102f2e05ec32_ga5b2017b2dfab616e103d102f2e05ec32}\label{group__module__radlw__main_ga5b2017b2dfab616e103d102f2e05ec32_ga5b2017b2dfab616e103d102f2e05ec32}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!rtrn@{rtrn}}
\index{rtrn@{rtrn}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{rtrn()}{rtrn()}}
{\footnotesize\ttfamily subroutine rrtmg\+\_\+lw\+::rtrn (\begin{DoxyParamCaption}\item[{real (kind=kind\+\_\+phys), dimension(nbands), intent(in)}]{semiss,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{delp,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlp1), intent(in)}]{cldfrc,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,nlay), intent(in)}]{taucld,  }\item[{real (kind=kind\+\_\+phys), dimension(ngptlw,nlay), intent(in)}]{tautot,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,0\+:nlay), intent(in)}]{pklay,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,0\+:nlay), intent(in)}]{pklev,  }\item[{real (kind=kind\+\_\+phys), dimension(ngptlw,nlay), intent(in)}]{fracs,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands), intent(in)}]{secdif,  }\item[{integer, intent(in)}]{nlay,  }\item[{integer, intent(in)}]{nlp1,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(out)}]{totuflux,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(out)}]{totdflux,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{htr,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(out)}]{totuclfl,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(out)}]{totdclfl,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{htrcl,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay,nbands), intent(out)}]{htrb }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}

Original Code Description\+: this program calculates the upward fluxes, downward fluxes, and heating rates for an arbitrary clear or cloudy atmosphere. The input to this program is the atmospheric profile, all Planck function information, and the cloud fraction by layer. A variable diffusivity angle (secdif) is used for the angle integration. Bands 2-\/3 and 5-\/9 use a value for secdif that varies from 1.\+50 to 1.\+80 as a function of the column water vapor, and other bands use a value of 1.\+66. The gaussian weight appropriate to this angle (wtdiff =0.\+5) is applied here. Note that use of the emissivity angle for the flux integration can cause errors of 1 to 4 $W/m^2$ within cloudy layers. Clouds are treated with a random cloud overlap method. 
\begin{DoxyParams}{Parameters}
{\em semiss} & lw surface emissivity \\
\hline
{\em delp} & layer pressure thickness (mb) \\
\hline
{\em cldfrc} & layer cloud fraction \\
\hline
{\em taucld} & layer cloud opt depth \\
\hline
{\em tautot} & total optical depth (gas+aerosols) \\
\hline
{\em pklay} & integrated planck function at lay temp \\
\hline
{\em pklev} & integrated planck func at lev temp \\
\hline
{\em fracs} & planck fractions \\
\hline
{\em secdif} & secant of diffusivity angle \\
\hline
{\em nlay} & number of vertical layers \\
\hline
{\em nlp1} & number of vertical levels (interfaces) \\
\hline
{\em totuflux} & total sky upward flux $(w/m^2)$ \\
\hline
{\em totdflux} & total sky downward flux $(w/m^2)$ \\
\hline
{\em htr} & total sky heating rate (k/sec or k/day) \\
\hline
{\em totuclfl} & clear sky upward flux $(w/m^2)$ \\
\hline
{\em totdclfl} & clear sky downward flux $(w/m^2)$ \\
\hline
{\em htrcl} & clear sky heating rate (k/sec or k/day) \\
\hline
{\em htrb} & spectral band lw heating rate (k/day) \\
\hline
\end{DoxyParams}
\hypertarget{group__module__radlw__main_ga5b2017b2dfab616e103d102f2e05ec32_gen_rtrn}{}\doxysubsubsection{rtrn General Algorithm}\label{group__module__radlw__main_ga5b2017b2dfab616e103d102f2e05ec32_gen_rtrn}

\begin{DoxyEnumerate}
\item Downward radiative transfer loop.
\item Compute spectral emissivity \& reflectance, include the contribution of spectrally varying longwave emissivity and reflection from the surface to the upward radiative transfer.
\item Compute total sky radiance.
\item Compute clear sky radiance
\item Upward radiative transfer loop.
\item Process longwave output from band for total and clear streams. Calculate upward, downward, and net flux.
\end{DoxyEnumerate}

Referenced by \mbox{\hyperlink{group__module__radlw__main_gade63efa1411b87e9228d34006944b329_gade63efa1411b87e9228d34006944b329}{rrtmg\+\_\+lw\+::rrtmg\+\_\+lw\+\_\+run()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=304pt]{group__module__radlw__main_ga5b2017b2dfab616e103d102f2e05ec32_ga5b2017b2dfab616e103d102f2e05ec32_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga07da933ac2e2f41461ac0d2a03d5e206_ga07da933ac2e2f41461ac0d2a03d5e206}\label{group__module__radlw__main_ga07da933ac2e2f41461ac0d2a03d5e206_ga07da933ac2e2f41461ac0d2a03d5e206}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!rtrnmr@{rtrnmr}}
\index{rtrnmr@{rtrnmr}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{rtrnmr()}{rtrnmr()}}
{\footnotesize\ttfamily subroutine rrtmg\+\_\+lw\+::rtrnmr (\begin{DoxyParamCaption}\item[{real (kind=kind\+\_\+phys), dimension(nbands), intent(in)}]{semiss,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{delp,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlp1), intent(in)}]{cldfrc,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,nlay), intent(in)}]{taucld,  }\item[{real (kind=kind\+\_\+phys), dimension(ngptlw,nlay), intent(in)}]{tautot,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,0\+:nlay), intent(in)}]{pklay,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,0\+:nlay), intent(in)}]{pklev,  }\item[{real (kind=kind\+\_\+phys), dimension(ngptlw,nlay), intent(in)}]{fracs,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands), intent(in)}]{secdif,  }\item[{integer, intent(in)}]{nlay,  }\item[{integer, intent(in)}]{nlp1,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(out)}]{totuflux,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(out)}]{totdflux,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{htr,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(out)}]{totuclfl,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(out)}]{totdclfl,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{htrcl,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay,nbands), intent(out)}]{htrb }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}


\begin{DoxyParams}{Parameters}
{\em semiss} & lw surface emissivity \\
\hline
{\em delp} & layer pressure thickness (mb) \\
\hline
{\em cldfrc} & layer cloud fraction \\
\hline
{\em taucld} & layer cloud opt depth \\
\hline
{\em tautot} & total optical depth (gas+aerosols) \\
\hline
{\em pklay} & integrated planck func at lay temp \\
\hline
{\em pklev} & integrated planck func at lev temp \\
\hline
{\em fracs} & planck fractions \\
\hline
{\em secdif} & secant of diffusivity angle \\
\hline
{\em nlay} & number of vertical layers \\
\hline
{\em nlp1} & number of vertical levels (interfaces) \\
\hline
{\em totuflux} & total sky upward flux ( $w/m^2$) \\
\hline
{\em totdflux} & total sky downward flux ( $w/m^2$) \\
\hline
{\em htr} & total sky heating rate (k/sec or k/day) \\
\hline
{\em totuclfl} & clear sky upward flux ( $w/m^2$) \\
\hline
{\em totdclfl} & clear sky downward flux ( $w/m^2$) \\
\hline
{\em htrcl} & clear sky heating rate (k/sec or k/day) \\
\hline
{\em htrb} & spectral band lw heating rate (k/day) \\
\hline
\end{DoxyParams}
\hypertarget{group__module__radlw__main_ga07da933ac2e2f41461ac0d2a03d5e206_gen_rtrnmr}{}\doxysubsubsection{rtrnmr General Algorithm}\label{group__module__radlw__main_ga07da933ac2e2f41461ac0d2a03d5e206_gen_rtrnmr}

\begin{DoxyEnumerate}
\item Setup maximum/random cloud overlap.
\item Initialize for radiative transfer
\item Downward radiative transfer loop\+:
\end{DoxyEnumerate}
\begin{DoxyItemize}
\item cloudy layer
\item total sky radiance
\item clear sky radiance
\end{DoxyItemize}
\begin{DoxyEnumerate}
\item Compute spectral emissivity \& reflectance, include the contribution of spectrally varying longwave emissivity and reflection from the surface to the upward radiative transfer.
\item Compute total sky radiance.
\item Compute clear sky radiance.
\item Upward radiative transfer loop\+:
\end{DoxyEnumerate}
\begin{DoxyItemize}
\item cloudy layer radiance
\item total sky radiance
\item clear sky radiance
\end{DoxyItemize}
\begin{DoxyEnumerate}
\item Process longwave output from band for total and clear streams. calculate upward, downward, and net flux.
\end{DoxyEnumerate}

Referenced by \mbox{\hyperlink{group__module__radlw__main_gade63efa1411b87e9228d34006944b329_gade63efa1411b87e9228d34006944b329}{rrtmg\+\_\+lw\+::rrtmg\+\_\+lw\+\_\+run()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=314pt]{group__module__radlw__main_ga07da933ac2e2f41461ac0d2a03d5e206_ga07da933ac2e2f41461ac0d2a03d5e206_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga3faed55d3d5b73b8cb75bba1b85d292b_ga3faed55d3d5b73b8cb75bba1b85d292b}\label{group__module__radlw__main_ga3faed55d3d5b73b8cb75bba1b85d292b_ga3faed55d3d5b73b8cb75bba1b85d292b}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!rtrnmc@{rtrnmc}}
\index{rtrnmc@{rtrnmc}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{rtrnmc()}{rtrnmc()}}
{\footnotesize\ttfamily subroutine rrtmg\+\_\+lw\+::rtrnmc (\begin{DoxyParamCaption}\item[{real (kind=kind\+\_\+phys), dimension(nbands), intent(in)}]{semiss,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{delp,  }\item[{real (kind=kind\+\_\+phys), dimension(ngptlw,nlay), intent(in)}]{cldfmc,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,nlay), intent(in)}]{taucld,  }\item[{real (kind=kind\+\_\+phys), dimension(ngptlw,nlay), intent(in)}]{tautot,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,0\+:nlay), intent(in)}]{pklay,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,0\+:nlay), intent(in)}]{pklev,  }\item[{real (kind=kind\+\_\+phys), dimension(ngptlw,nlay), intent(in)}]{fracs,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands), intent(in)}]{secdif,  }\item[{integer, intent(in)}]{nlay,  }\item[{integer, intent(in)}]{nlp1,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(out)}]{totuflux,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(out)}]{totdflux,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{htr,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(out)}]{totuclfl,  }\item[{real (kind=kind\+\_\+phys), dimension(0\+:nlay), intent(out)}]{totdclfl,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(out)}]{htrcl,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay,nbands), intent(out)}]{htrb }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}


\begin{DoxyParams}{Parameters}
{\em semiss} & lw surface emissivity \\
\hline
{\em delp} & layer pressure thickness (mb) \\
\hline
{\em cldfmc} & layer cloud fraction (sub-\/column) \\
\hline
{\em taucld} & layer cloud opt depth \\
\hline
{\em tautot} & total optical depth (gas+aerosols) \\
\hline
{\em pklay} & integrated planck func at lay temp \\
\hline
{\em pklev} & integrated planck func at lev temp \\
\hline
{\em fracs} & planck fractions \\
\hline
{\em secdif} & secant of diffusivity angle \\
\hline
{\em nlay} & number of vertical layers \\
\hline
{\em nlp1} & number of vertical levels (interfaces) \\
\hline
{\em totuflux} & total sky upward flux $(w/m^2)$ \\
\hline
{\em totdflux} & total sky downward flux $(w/m^2)$ \\
\hline
{\em htr} & total sky heating rate (k/sec or k/day) \\
\hline
{\em totuclfl} & clear sky upward flux $(w/m^2)$ \\
\hline
{\em totdclfl} & clear sky downward flux $(w/m^2)$ \\
\hline
{\em htrcl} & clear sky heating rate (k/sec or k/day) \\
\hline
{\em htrb} & spectral band lw heating rate (k/day) \\
\hline
\end{DoxyParams}
\hypertarget{group__module__radlw__main_ga3faed55d3d5b73b8cb75bba1b85d292b_gen_rtrnmc}{}\doxysubsubsection{rtrnmc General Algorithm}\label{group__module__radlw__main_ga3faed55d3d5b73b8cb75bba1b85d292b_gen_rtrnmc}

\begin{DoxyEnumerate}
\item Downward radiative transfer loop. ~\newline
 -\/ Clear sky, gases contribution ~\newline
 -\/ Total sky, gases+clouds contribution ~\newline
 -\/ Cloudy layer ~\newline
 -\/ Total sky radiance ~\newline
 -\/ Clear sky radiance
\item Compute spectral emissivity \& reflectance, include the contribution of spectrally varying longwave emissivity and reflection from the surface to the upward radiative transfer.
\item Compute total sky radiance.
\item Compute clear sky radiance.
\item Upward radiative transfer loop. ~\newline
 -\/ Compute total sky radiance ~\newline
 -\/ Compute clear sky radiance
\item Process longwave output from band for total and clear streams. Calculate upward, downward, and net flux.
\item Calculate net fluxes and heating rates.
\item Optional clear sky heating rates.
\item Optional spectral band heating rates.
\end{DoxyEnumerate}

Referenced by \mbox{\hyperlink{group__module__radlw__main_gade63efa1411b87e9228d34006944b329_gade63efa1411b87e9228d34006944b329}{rrtmg\+\_\+lw\+::rrtmg\+\_\+lw\+\_\+run()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=316pt]{group__module__radlw__main_ga3faed55d3d5b73b8cb75bba1b85d292b_ga3faed55d3d5b73b8cb75bba1b85d292b_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}\label{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taumol@{taumol}}
\index{taumol@{taumol}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taumol()}{taumol()}}
{\footnotesize\ttfamily subroutine rrtmg\+\_\+lw\+::taumol (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{laytrop,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{pavel,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{coldry,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay,maxgas), intent(in)}]{colamt,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{colbrd,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay,maxxsec), intent(in)}]{wx,  }\item[{real (kind=kind\+\_\+phys), dimension(nbands,nlay), intent(in)}]{tauaer,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay,nrates,2), intent(in)}]{rfrate,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{fac00,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{fac01,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{fac10,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{fac11,  }\item[{integer, dimension(nlay), intent(in)}]{jp,  }\item[{integer, dimension(nlay), intent(in)}]{jt,  }\item[{integer, dimension(nlay), intent(in)}]{jt1,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{selffac,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{selffrac,  }\item[{integer, dimension(nlay), intent(in)}]{indself,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{forfac,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{forfrac,  }\item[{integer, dimension(nlay), intent(in)}]{indfor,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{minorfrac,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{scaleminor,  }\item[{real (kind=kind\+\_\+phys), dimension(nlay), intent(in)}]{scaleminorn2,  }\item[{integer, dimension(nlay), intent(in)}]{indminor,  }\item[{integer, intent(in)}]{nlay,  }\item[{real (kind=kind\+\_\+phys), dimension(ngptlw,nlay), intent(out)}]{fracs,  }\item[{real (kind=kind\+\_\+phys), dimension(ngptlw,nlay), intent(out)}]{tautot }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}

It contains the subroutines {\itshape taugbn} (where n goes from 1 to 16). {\itshape taugbn} calculates the optical depths and planck fractions per g-\/value and layer for band n. 
\begin{DoxyParams}{Parameters}
{\em laytrop} & tropopause layer index (unitless) layer at which switch is made for key species \\
\hline
{\em pavel} & layer pressures (mb) \\
\hline
{\em coldry} & column amount for dry air $(mol/cm^2)$ \\
\hline
{\em colamt} & column amounts of h2o, co2, o3, n2o, ch4,o2, co $(mol/cm^2)$ \\
\hline
{\em colbrd} & column amount of broadening gases \\
\hline
{\em wx} & cross-\/section amounts $(mol/cm^2)$ \\
\hline
{\em tauaer} & aerosol optical depth \\
\hline
{\em rfrate} & reference ratios of binary species parameter ~\newline
 (\+:,m,\+:)m=1-\/h2o/co2,2-\/h2o/o3,3-\/h2o/n2o,4-\/h2o/ch4, 5-\/n2o/co2,6-\/o3/co2 ~\newline
 (\+:,\+:,n)n=1,2\+: the rates of ref press at the 2 sides of the layer \\
\hline
{\em fac00,fac01,fac10,fac11} & factors multiply the reference ks, i,j of 0/1 for lower/higher of the 2 appropriate temperatures and altitudes \\
\hline
{\em jp} & index of lower reference pressure \\
\hline
{\em jt,jt1} & indices of lower reference temperatures for pressure levels jp and jp+1, respectively \\
\hline
{\em selffac} & scale factor for water vapor self-\/continuum equals (water vapor density)/(atmospheric density at 296k and 1013 mb) \\
\hline
{\em selffrac} & factor for temperature interpolation of reference water vapor self-\/continuum data \\
\hline
{\em indself} & index of lower reference temperature for the self-\/continuum interpolation \\
\hline
{\em forfac} & scale factor for w. v. foreign-\/continuum \\
\hline
{\em forfrac} & factor for temperature interpolation of reference w.\+v. foreign-\/continuum data \\
\hline
{\em indfor} & index of lower reference temperature for the foreign-\/continuum interpolation \\
\hline
{\em minorfrac} & factor for minor gases \\
\hline
{\em scaleminor,scaleminorn2} & scale factors for minor gases \\
\hline
{\em indminor} & index of lower reference temperature for minor gases \\
\hline
{\em nlay} & total number of layers \\
\hline
{\em fracs} & planck fractions \\
\hline
{\em tautot} & total optical depth (gas+aerosols) \\
\hline
\end{DoxyParams}
\hypertarget{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_taumol_gen}{}\doxysubsubsection{taumol General Algorithm}\label{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_taumol_gen}
subprograms called\+: taugb\#\# (\#\# = 01 -\/16) 

References \mbox{\hyperlink{group__module__radlw__main_ga001d1bcd17533f7f920f859ff9a4e60f_ga001d1bcd17533f7f920f859ff9a4e60f}{taugb01()}}, \mbox{\hyperlink{group__module__radlw__main_ga926415cb51870dda9a90883e01a2ee38_ga926415cb51870dda9a90883e01a2ee38}{taugb02()}}, \mbox{\hyperlink{group__module__radlw__main_ga45e39b507d1fc031c80d9c7f06905d4a_ga45e39b507d1fc031c80d9c7f06905d4a}{taugb03()}}, \mbox{\hyperlink{group__module__radlw__main_gae69174bcf1a87dc7a5baffac69797d07_gae69174bcf1a87dc7a5baffac69797d07}{taugb04()}}, \mbox{\hyperlink{group__module__radlw__main_ga92653ffcd20ff247a00eaf3339cba6df_ga92653ffcd20ff247a00eaf3339cba6df}{taugb05()}}, \mbox{\hyperlink{group__module__radlw__main_ga7190d415614aa35deefacff1041d4719_ga7190d415614aa35deefacff1041d4719}{taugb06()}}, \mbox{\hyperlink{group__module__radlw__main_ga2208d86ae0712a0ca426bbe96de825bc_ga2208d86ae0712a0ca426bbe96de825bc}{taugb07()}}, \mbox{\hyperlink{group__module__radlw__main_ga1447d5bda5b521d27171e61881684183_ga1447d5bda5b521d27171e61881684183}{taugb08()}}, \mbox{\hyperlink{group__module__radlw__main_ga889abbaaa2d421c0c3dc820e2004414d_ga889abbaaa2d421c0c3dc820e2004414d}{taugb09()}}, \mbox{\hyperlink{group__module__radlw__main_ga74c1cb8390daff1e5ce5e863c50b7873_ga74c1cb8390daff1e5ce5e863c50b7873}{taugb10()}}, \mbox{\hyperlink{group__module__radlw__main_ga573fd5b3580d6bbf5bfa2f01ee547034_ga573fd5b3580d6bbf5bfa2f01ee547034}{taugb11()}}, \mbox{\hyperlink{group__module__radlw__main_gae56eaa9e3b897ca235d4d6b271cc1e47_gae56eaa9e3b897ca235d4d6b271cc1e47}{taugb12()}}, \mbox{\hyperlink{group__module__radlw__main_ga2ac7254d2dcff516e8e44b8b679302c0_ga2ac7254d2dcff516e8e44b8b679302c0}{taugb13()}}, \mbox{\hyperlink{group__module__radlw__main_ga26140cbe1a3d6119b56cf5c2d539670e_ga26140cbe1a3d6119b56cf5c2d539670e}{taugb14()}}, \mbox{\hyperlink{group__module__radlw__main_ga93b5c0ae0525697ffffb6228581a301c_ga93b5c0ae0525697ffffb6228581a301c}{taugb15()}}, and \mbox{\hyperlink{group__module__radlw__main_ga942ce0031745cd1b3b4ebc3915970554_ga942ce0031745cd1b3b4ebc3915970554}{taugb16()}}.



Referenced by \mbox{\hyperlink{group__module__radlw__main_gade63efa1411b87e9228d34006944b329_gade63efa1411b87e9228d34006944b329}{rrtmg\+\_\+lw\+::rrtmg\+\_\+lw\+\_\+run()}}.

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[height=550pt]{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=320pt]{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga001d1bcd17533f7f920f859ff9a4e60f_ga001d1bcd17533f7f920f859ff9a4e60f}\label{group__module__radlw__main_ga001d1bcd17533f7f920f859ff9a4e60f_ga001d1bcd17533f7f920f859ff9a4e60f}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb01@{taugb01}}
\index{taugb01@{taugb01}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb01()}{taugb01()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb01\hspace{0.3cm}{\ttfamily [private]}}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga001d1bcd17533f7f920f859ff9a4e60f_ga001d1bcd17533f7f920f859ff9a4e60f_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga926415cb51870dda9a90883e01a2ee38_ga926415cb51870dda9a90883e01a2ee38}\label{group__module__radlw__main_ga926415cb51870dda9a90883e01a2ee38_ga926415cb51870dda9a90883e01a2ee38}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb02@{taugb02}}
\index{taugb02@{taugb02}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb02()}{taugb02()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb02}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga926415cb51870dda9a90883e01a2ee38_ga926415cb51870dda9a90883e01a2ee38_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga45e39b507d1fc031c80d9c7f06905d4a_ga45e39b507d1fc031c80d9c7f06905d4a}\label{group__module__radlw__main_ga45e39b507d1fc031c80d9c7f06905d4a_ga45e39b507d1fc031c80d9c7f06905d4a}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb03@{taugb03}}
\index{taugb03@{taugb03}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb03()}{taugb03()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb03}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga45e39b507d1fc031c80d9c7f06905d4a_ga45e39b507d1fc031c80d9c7f06905d4a_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_gae69174bcf1a87dc7a5baffac69797d07_gae69174bcf1a87dc7a5baffac69797d07}\label{group__module__radlw__main_gae69174bcf1a87dc7a5baffac69797d07_gae69174bcf1a87dc7a5baffac69797d07}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb04@{taugb04}}
\index{taugb04@{taugb04}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb04()}{taugb04()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb04}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_gae69174bcf1a87dc7a5baffac69797d07_gae69174bcf1a87dc7a5baffac69797d07_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga92653ffcd20ff247a00eaf3339cba6df_ga92653ffcd20ff247a00eaf3339cba6df}\label{group__module__radlw__main_ga92653ffcd20ff247a00eaf3339cba6df_ga92653ffcd20ff247a00eaf3339cba6df}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb05@{taugb05}}
\index{taugb05@{taugb05}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb05()}{taugb05()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb05}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga92653ffcd20ff247a00eaf3339cba6df_ga92653ffcd20ff247a00eaf3339cba6df_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga7190d415614aa35deefacff1041d4719_ga7190d415614aa35deefacff1041d4719}\label{group__module__radlw__main_ga7190d415614aa35deefacff1041d4719_ga7190d415614aa35deefacff1041d4719}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb06@{taugb06}}
\index{taugb06@{taugb06}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb06()}{taugb06()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb06}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga7190d415614aa35deefacff1041d4719_ga7190d415614aa35deefacff1041d4719_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga2208d86ae0712a0ca426bbe96de825bc_ga2208d86ae0712a0ca426bbe96de825bc}\label{group__module__radlw__main_ga2208d86ae0712a0ca426bbe96de825bc_ga2208d86ae0712a0ca426bbe96de825bc}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb07@{taugb07}}
\index{taugb07@{taugb07}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb07()}{taugb07()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb07}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga2208d86ae0712a0ca426bbe96de825bc_ga2208d86ae0712a0ca426bbe96de825bc_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga1447d5bda5b521d27171e61881684183_ga1447d5bda5b521d27171e61881684183}\label{group__module__radlw__main_ga1447d5bda5b521d27171e61881684183_ga1447d5bda5b521d27171e61881684183}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb08@{taugb08}}
\index{taugb08@{taugb08}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb08()}{taugb08()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb08}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga1447d5bda5b521d27171e61881684183_ga1447d5bda5b521d27171e61881684183_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga889abbaaa2d421c0c3dc820e2004414d_ga889abbaaa2d421c0c3dc820e2004414d}\label{group__module__radlw__main_ga889abbaaa2d421c0c3dc820e2004414d_ga889abbaaa2d421c0c3dc820e2004414d}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb09@{taugb09}}
\index{taugb09@{taugb09}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb09()}{taugb09()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb09}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga889abbaaa2d421c0c3dc820e2004414d_ga889abbaaa2d421c0c3dc820e2004414d_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga74c1cb8390daff1e5ce5e863c50b7873_ga74c1cb8390daff1e5ce5e863c50b7873}\label{group__module__radlw__main_ga74c1cb8390daff1e5ce5e863c50b7873_ga74c1cb8390daff1e5ce5e863c50b7873}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb10@{taugb10}}
\index{taugb10@{taugb10}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb10()}{taugb10()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb10}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga74c1cb8390daff1e5ce5e863c50b7873_ga74c1cb8390daff1e5ce5e863c50b7873_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga573fd5b3580d6bbf5bfa2f01ee547034_ga573fd5b3580d6bbf5bfa2f01ee547034}\label{group__module__radlw__main_ga573fd5b3580d6bbf5bfa2f01ee547034_ga573fd5b3580d6bbf5bfa2f01ee547034}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb11@{taugb11}}
\index{taugb11@{taugb11}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb11()}{taugb11()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb11}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga573fd5b3580d6bbf5bfa2f01ee547034_ga573fd5b3580d6bbf5bfa2f01ee547034_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_gae56eaa9e3b897ca235d4d6b271cc1e47_gae56eaa9e3b897ca235d4d6b271cc1e47}\label{group__module__radlw__main_gae56eaa9e3b897ca235d4d6b271cc1e47_gae56eaa9e3b897ca235d4d6b271cc1e47}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb12@{taugb12}}
\index{taugb12@{taugb12}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb12()}{taugb12()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb12}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_gae56eaa9e3b897ca235d4d6b271cc1e47_gae56eaa9e3b897ca235d4d6b271cc1e47_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga2ac7254d2dcff516e8e44b8b679302c0_ga2ac7254d2dcff516e8e44b8b679302c0}\label{group__module__radlw__main_ga2ac7254d2dcff516e8e44b8b679302c0_ga2ac7254d2dcff516e8e44b8b679302c0}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb13@{taugb13}}
\index{taugb13@{taugb13}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb13()}{taugb13()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb13}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga2ac7254d2dcff516e8e44b8b679302c0_ga2ac7254d2dcff516e8e44b8b679302c0_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga26140cbe1a3d6119b56cf5c2d539670e_ga26140cbe1a3d6119b56cf5c2d539670e}\label{group__module__radlw__main_ga26140cbe1a3d6119b56cf5c2d539670e_ga26140cbe1a3d6119b56cf5c2d539670e}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb14@{taugb14}}
\index{taugb14@{taugb14}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb14()}{taugb14()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb14}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga26140cbe1a3d6119b56cf5c2d539670e_ga26140cbe1a3d6119b56cf5c2d539670e_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga93b5c0ae0525697ffffb6228581a301c_ga93b5c0ae0525697ffffb6228581a301c}\label{group__module__radlw__main_ga93b5c0ae0525697ffffb6228581a301c_ga93b5c0ae0525697ffffb6228581a301c}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb15@{taugb15}}
\index{taugb15@{taugb15}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb15()}{taugb15()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb15}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{group__module__radlw__main_ga93b5c0ae0525697ffffb6228581a301c_ga93b5c0ae0525697ffffb6228581a301c_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{group__module__radlw__main_ga942ce0031745cd1b3b4ebc3915970554_ga942ce0031745cd1b3b4ebc3915970554}\label{group__module__radlw__main_ga942ce0031745cd1b3b4ebc3915970554_ga942ce0031745cd1b3b4ebc3915970554}} 
\index{GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}!taugb16@{taugb16}}
\index{taugb16@{taugb16}!GFS RRTMG-\/LW Main Module@{GFS RRTMG-\/LW Main Module}}
\doxyparagraph{\texorpdfstring{taugb16()}{taugb16()}}
{\footnotesize\ttfamily subroutine taumol\+::taugb16}



Referenced by \mbox{\hyperlink{group__module__radlw__main_ga7a5cbc99583212a0bd0d5f7b87ab1769_ga7a5cbc99583212a0bd0d5f7b87ab1769}{rrtmg\+\_\+lw\+::taumol()}}.

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