\hypertarget{namespacemodule__radsw__kgb20}{}\doxysubsection{module\+\_\+radsw\+\_\+kgb20 Module Reference}
\label{namespacemodule__radsw__kgb20}\index{module\_radsw\_kgb20@{module\_radsw\_kgb20}}


This module sets up absorption coeffients for band 20\+: 5150-\/6150 cm-\/1 (low -\/ h2o; high -\/ h2o)  


\doxysubsubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb20_aadf199a3d453192a891b575d9adf8608_aadf199a3d453192a891b575d9adf8608}{msa20}}
\begin{DoxyCompactList}\small\item\em msa20=65 \end{DoxyCompactList}\end{DoxyCompactItemize}
\begin{Indent}\textbf{ Chou(1999) coefficients for cloud rain particles}\par
\begin{DoxyCompactItemize}
\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb20_a385f5b8c61ed1de7aa3bbb6bd65f522f_a385f5b8c61ed1de7aa3bbb6bd65f522f}{msb20}}
\begin{DoxyCompactList}\small\item\em msb20=235 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb20_a925dc2da02eef4edcf000a14525a7c7e_a925dc2da02eef4edcf000a14525a7c7e}{msf20}}
\begin{DoxyCompactList}\small\item\em msf20=10 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb20_a9c7964eeb3acb4a11757fce977b73022_a9c7964eeb3acb4a11757fce977b73022}{mfr20}}
\begin{DoxyCompactList}\small\item\em mfr20=4 \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb20_a9c7964eeb3acb4a11757fce977b73022_a9c7964eeb3acb4a11757fce977b73022}{mfr20}}, ng20), public \mbox{\hyperlink{namespacemodule__radsw__kgb20_a3a660a7564064ca9997af9f95a5293b9_a3a660a7564064ca9997af9f95a5293b9}{forref}}
\begin{DoxyCompactList}\small\item\em optical depth coefficients \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng20), public \mbox{\hyperlink{namespacemodule__radsw__kgb20_a1757aee0ec8211f84e2c9334cc9b0f9d_a1757aee0ec8211f84e2c9334cc9b0f9d}{absch4}}
\begin{DoxyCompactList}\small\item\em ch4 \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb20_aadf199a3d453192a891b575d9adf8608_aadf199a3d453192a891b575d9adf8608}{msa20}}, ng20), public \mbox{\hyperlink{namespacemodule__radsw__kgb20_a405eabf194b1216dd083c2344e80f5b4_a405eabf194b1216dd083c2344e80f5b4}{absa}}
\begin{DoxyCompactList}\small\item\em the array absa(65,\+NG20) (ka(5,13,\+NG20)) contains absorption coefs at the 16 chosen g-\/values for a range of pressure levels\texorpdfstring{$>$}{>} $\sim$100mb, temperatures, and binary species parameters (see taumol.\+f for definition). the first index in the array, js, runs from 1 to 9, and corresponds to different values of the binary species parameter. for instance, js=1 refers to dry air, js = 2 corresponds to the paramter value 1/8, js = 3 corresponds to the parameter value 2/8, etc. the second index in the array, jt, which runs from 1 to 5, corresponds to different temperatures. more specifically, jt = 3 means that the data are for the reference temperature tref for this pressure level, jt = 2 refers to tref-\/15, jt = 1 is for tref-\/30, jt = 4 is for tref+15, and jt = 5 is for tref+30. the third index, jp, runs from 1 to 13 and refers to the jpth reference pressure level (see taumol.\+f for these levels in mb). the fourth index, ig, goes from 1 to 10, and indicates which g-\/interval the absorption coefficients are for. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb20_a385f5b8c61ed1de7aa3bbb6bd65f522f_a385f5b8c61ed1de7aa3bbb6bd65f522f}{msb20}}, ng20), public \mbox{\hyperlink{namespacemodule__radsw__kgb20_af5b135f82f34831e86a12f726cbe47ad_af5b135f82f34831e86a12f726cbe47ad}{absb}}
\begin{DoxyCompactList}\small\item\em the array absb(235,10) (kb(5,13\+:59,10)) contains absorption coefs at the 16 chosen g-\/values for a range of pressure levels \texorpdfstring{$<$}{<} $\sim$100mb and temperatures. the first index in the array, jt, which runs from 1 to 5, corresponds to different temperatures. more specifically, jt = 3 means that the data are for the reference temperature tref for this pressure level, jt = 2 refers to the temperature tref-\/15, jt = 1 is for tref-\/30, jt = 4 is for tref+15, and jt = 5 is for tref+30. the second index, jp, runs from 13 to 59 and refers to the jpth reference pressure level (see taumol.\+f for the value of these pressure levels in mb). the third index, ig, goes from 1 to 10, and tells us which g-\/interval the absorption coefficients are for. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb20_a925dc2da02eef4edcf000a14525a7c7e_a925dc2da02eef4edcf000a14525a7c7e}{msf20}}, ng20), public \mbox{\hyperlink{namespacemodule__radsw__kgb20_aa3853af5e29277f9ed2bdd397cab5029_aa3853af5e29277f9ed2bdd397cab5029}{selfref}}
\begin{DoxyCompactList}\small\item\em the array selfref contains the coefficient of the water vapor self-\/continuum (including the energy term). the first index refers to temperature in 7.\+2 degree increments. For instance, jt = 1 refers to a temperature of 245.\+6, jt = 2 refers to 252.\+8, etc. the second index runs over the g-\/channel (1 to 10). \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), parameter, public \mbox{\hyperlink{namespacemodule__radsw__kgb20_a6a00db6ce81c299d44ef5eadc1fe3b5b_a6a00db6ce81c299d44ef5eadc1fe3b5b}{rayl}} = 4.\+12e-\/09
\begin{DoxyCompactList}\small\item\em rayleigh extinction coefficient at $v=5670cm^{-1}$ \end{DoxyCompactList}\end{DoxyCompactItemize}
\end{Indent}


\doxysubsubsection{Variable Documentation}
\mbox{\Hypertarget{namespacemodule__radsw__kgb20_aadf199a3d453192a891b575d9adf8608_aadf199a3d453192a891b575d9adf8608}\label{namespacemodule__radsw__kgb20_aadf199a3d453192a891b575d9adf8608_aadf199a3d453192a891b575d9adf8608}} 
\index{module\_radsw\_kgb20@{module\_radsw\_kgb20}!msa20@{msa20}}
\index{msa20@{msa20}!module\_radsw\_kgb20@{module\_radsw\_kgb20}}
\doxyparagraph{\texorpdfstring{msa20}{msa20}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb20\+::msa20}

\mbox{\Hypertarget{namespacemodule__radsw__kgb20_a385f5b8c61ed1de7aa3bbb6bd65f522f_a385f5b8c61ed1de7aa3bbb6bd65f522f}\label{namespacemodule__radsw__kgb20_a385f5b8c61ed1de7aa3bbb6bd65f522f_a385f5b8c61ed1de7aa3bbb6bd65f522f}} 
\index{module\_radsw\_kgb20@{module\_radsw\_kgb20}!msb20@{msb20}}
\index{msb20@{msb20}!module\_radsw\_kgb20@{module\_radsw\_kgb20}}
\doxyparagraph{\texorpdfstring{msb20}{msb20}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb20\+::msb20}

\mbox{\Hypertarget{namespacemodule__radsw__kgb20_a925dc2da02eef4edcf000a14525a7c7e_a925dc2da02eef4edcf000a14525a7c7e}\label{namespacemodule__radsw__kgb20_a925dc2da02eef4edcf000a14525a7c7e_a925dc2da02eef4edcf000a14525a7c7e}} 
\index{module\_radsw\_kgb20@{module\_radsw\_kgb20}!msf20@{msf20}}
\index{msf20@{msf20}!module\_radsw\_kgb20@{module\_radsw\_kgb20}}
\doxyparagraph{\texorpdfstring{msf20}{msf20}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb20\+::msf20}

\mbox{\Hypertarget{namespacemodule__radsw__kgb20_a9c7964eeb3acb4a11757fce977b73022_a9c7964eeb3acb4a11757fce977b73022}\label{namespacemodule__radsw__kgb20_a9c7964eeb3acb4a11757fce977b73022_a9c7964eeb3acb4a11757fce977b73022}} 
\index{module\_radsw\_kgb20@{module\_radsw\_kgb20}!mfr20@{mfr20}}
\index{mfr20@{mfr20}!module\_radsw\_kgb20@{module\_radsw\_kgb20}}
\doxyparagraph{\texorpdfstring{mfr20}{mfr20}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb20\+::mfr20}

\mbox{\Hypertarget{namespacemodule__radsw__kgb20_a3a660a7564064ca9997af9f95a5293b9_a3a660a7564064ca9997af9f95a5293b9}\label{namespacemodule__radsw__kgb20_a3a660a7564064ca9997af9f95a5293b9_a3a660a7564064ca9997af9f95a5293b9}} 
\index{module\_radsw\_kgb20@{module\_radsw\_kgb20}!forref@{forref}}
\index{forref@{forref}!module\_radsw\_kgb20@{module\_radsw\_kgb20}}
\doxyparagraph{\texorpdfstring{forref}{forref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb20_a9c7964eeb3acb4a11757fce977b73022_a9c7964eeb3acb4a11757fce977b73022}{mfr20}},ng20), public module\+\_\+radsw\+\_\+kgb20\+::forref}

\mbox{\Hypertarget{namespacemodule__radsw__kgb20_a1757aee0ec8211f84e2c9334cc9b0f9d_a1757aee0ec8211f84e2c9334cc9b0f9d}\label{namespacemodule__radsw__kgb20_a1757aee0ec8211f84e2c9334cc9b0f9d_a1757aee0ec8211f84e2c9334cc9b0f9d}} 
\index{module\_radsw\_kgb20@{module\_radsw\_kgb20}!absch4@{absch4}}
\index{absch4@{absch4}!module\_radsw\_kgb20@{module\_radsw\_kgb20}}
\doxyparagraph{\texorpdfstring{absch4}{absch4}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng20), public module\+\_\+radsw\+\_\+kgb20\+::absch4}

\mbox{\Hypertarget{namespacemodule__radsw__kgb20_a405eabf194b1216dd083c2344e80f5b4_a405eabf194b1216dd083c2344e80f5b4}\label{namespacemodule__radsw__kgb20_a405eabf194b1216dd083c2344e80f5b4_a405eabf194b1216dd083c2344e80f5b4}} 
\index{module\_radsw\_kgb20@{module\_radsw\_kgb20}!absa@{absa}}
\index{absa@{absa}!module\_radsw\_kgb20@{module\_radsw\_kgb20}}
\doxyparagraph{\texorpdfstring{absa}{absa}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb20_aadf199a3d453192a891b575d9adf8608_aadf199a3d453192a891b575d9adf8608}{msa20}},ng20), public module\+\_\+radsw\+\_\+kgb20\+::absa}

\mbox{\Hypertarget{namespacemodule__radsw__kgb20_af5b135f82f34831e86a12f726cbe47ad_af5b135f82f34831e86a12f726cbe47ad}\label{namespacemodule__radsw__kgb20_af5b135f82f34831e86a12f726cbe47ad_af5b135f82f34831e86a12f726cbe47ad}} 
\index{module\_radsw\_kgb20@{module\_radsw\_kgb20}!absb@{absb}}
\index{absb@{absb}!module\_radsw\_kgb20@{module\_radsw\_kgb20}}
\doxyparagraph{\texorpdfstring{absb}{absb}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb20_a385f5b8c61ed1de7aa3bbb6bd65f522f_a385f5b8c61ed1de7aa3bbb6bd65f522f}{msb20}},ng20), public module\+\_\+radsw\+\_\+kgb20\+::absb}

\mbox{\Hypertarget{namespacemodule__radsw__kgb20_aa3853af5e29277f9ed2bdd397cab5029_aa3853af5e29277f9ed2bdd397cab5029}\label{namespacemodule__radsw__kgb20_aa3853af5e29277f9ed2bdd397cab5029_aa3853af5e29277f9ed2bdd397cab5029}} 
\index{module\_radsw\_kgb20@{module\_radsw\_kgb20}!selfref@{selfref}}
\index{selfref@{selfref}!module\_radsw\_kgb20@{module\_radsw\_kgb20}}
\doxyparagraph{\texorpdfstring{selfref}{selfref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb20_a925dc2da02eef4edcf000a14525a7c7e_a925dc2da02eef4edcf000a14525a7c7e}{msf20}},ng20), public module\+\_\+radsw\+\_\+kgb20\+::selfref}

\mbox{\Hypertarget{namespacemodule__radsw__kgb20_a6a00db6ce81c299d44ef5eadc1fe3b5b_a6a00db6ce81c299d44ef5eadc1fe3b5b}\label{namespacemodule__radsw__kgb20_a6a00db6ce81c299d44ef5eadc1fe3b5b_a6a00db6ce81c299d44ef5eadc1fe3b5b}} 
\index{module\_radsw\_kgb20@{module\_radsw\_kgb20}!rayl@{rayl}}
\index{rayl@{rayl}!module\_radsw\_kgb20@{module\_radsw\_kgb20}}
\doxyparagraph{\texorpdfstring{rayl}{rayl}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), parameter, public module\+\_\+radsw\+\_\+kgb20\+::rayl = 4.\+12e-\/09}

