\hypertarget{namespacemodule__radsw__kgb21}{}\doxysubsection{module\+\_\+radsw\+\_\+kgb21 Module Reference}
\label{namespacemodule__radsw__kgb21}\index{module\_radsw\_kgb21@{module\_radsw\_kgb21}}


This module sets up absorption coeffients for band 21\+: 6150-\/7700 cm-\/1 (low -\/ h2o,co2; high -\/ h2o,co2)  


\doxysubsubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb21_a235b17e9b4b37668028c572f80e1188a_a235b17e9b4b37668028c572f80e1188a}{msa21}}
\begin{DoxyCompactList}\small\item\em msa21=585 \end{DoxyCompactList}\end{DoxyCompactItemize}
\begin{Indent}\textbf{ Chou(1999) coefficients for cloud rain particles}\par
\begin{DoxyCompactItemize}
\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb21_a59710ca5b31c30385ea968c0f01e2e81_a59710ca5b31c30385ea968c0f01e2e81}{msb21}}
\begin{DoxyCompactList}\small\item\em msb21=1175 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb21_ae70b5abfa847419cbf189d2502c34ddd_ae70b5abfa847419cbf189d2502c34ddd}{msf21}}
\begin{DoxyCompactList}\small\item\em msf21=10 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb21_a5575239aa9d55abcca1ac1f82dc4c4ec_a5575239aa9d55abcca1ac1f82dc4c4ec}{mfr21}}
\begin{DoxyCompactList}\small\item\em mfr21=4 \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb21_a5575239aa9d55abcca1ac1f82dc4c4ec_a5575239aa9d55abcca1ac1f82dc4c4ec}{mfr21}}, ng21), public \mbox{\hyperlink{namespacemodule__radsw__kgb21_ac93d473e0309275f03a89b161377a034_ac93d473e0309275f03a89b161377a034}{forref}}
\begin{DoxyCompactList}\small\item\em optical depth coefficients \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb21_a235b17e9b4b37668028c572f80e1188a_a235b17e9b4b37668028c572f80e1188a}{msa21}}, ng21), public \mbox{\hyperlink{namespacemodule__radsw__kgb21_a7cce83c282d3efec6a3fe319480c270a_a7cce83c282d3efec6a3fe319480c270a}{absa}}
\begin{DoxyCompactList}\small\item\em the array absa(585,\+NG21) (ka((9,5,13,\+NG21)) 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__kgb21_a59710ca5b31c30385ea968c0f01e2e81_a59710ca5b31c30385ea968c0f01e2e81}{msb21}}, ng21), public \mbox{\hyperlink{namespacemodule__radsw__kgb21_a1d3f12f050c90be49f109205c463b29b_a1d3f12f050c90be49f109205c463b29b}{absb}}
\begin{DoxyCompactList}\small\item\em the array absb(1175,10) (kb(5,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__kgb21_ae70b5abfa847419cbf189d2502c34ddd_ae70b5abfa847419cbf189d2502c34ddd}{msf21}}, ng21), public \mbox{\hyperlink{namespacemodule__radsw__kgb21_a76fc3e4566fcee982b99b10ea562ba93_a76fc3e4566fcee982b99b10ea562ba93}{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__kgb21_a8df418599fb8aef5fc8f2935a913b361_a8df418599fb8aef5fc8f2935a913b361}{rayl}} = 9.\+41e-\/09
\begin{DoxyCompactList}\small\item\em rayleigh extinction coefficient at $v=6925cm^{-1}$ \end{DoxyCompactList}\end{DoxyCompactItemize}
\end{Indent}


\doxysubsubsection{Variable Documentation}
\mbox{\Hypertarget{namespacemodule__radsw__kgb21_a235b17e9b4b37668028c572f80e1188a_a235b17e9b4b37668028c572f80e1188a}\label{namespacemodule__radsw__kgb21_a235b17e9b4b37668028c572f80e1188a_a235b17e9b4b37668028c572f80e1188a}} 
\index{module\_radsw\_kgb21@{module\_radsw\_kgb21}!msa21@{msa21}}
\index{msa21@{msa21}!module\_radsw\_kgb21@{module\_radsw\_kgb21}}
\doxyparagraph{\texorpdfstring{msa21}{msa21}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb21\+::msa21}

\mbox{\Hypertarget{namespacemodule__radsw__kgb21_a59710ca5b31c30385ea968c0f01e2e81_a59710ca5b31c30385ea968c0f01e2e81}\label{namespacemodule__radsw__kgb21_a59710ca5b31c30385ea968c0f01e2e81_a59710ca5b31c30385ea968c0f01e2e81}} 
\index{module\_radsw\_kgb21@{module\_radsw\_kgb21}!msb21@{msb21}}
\index{msb21@{msb21}!module\_radsw\_kgb21@{module\_radsw\_kgb21}}
\doxyparagraph{\texorpdfstring{msb21}{msb21}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb21\+::msb21}

\mbox{\Hypertarget{namespacemodule__radsw__kgb21_ae70b5abfa847419cbf189d2502c34ddd_ae70b5abfa847419cbf189d2502c34ddd}\label{namespacemodule__radsw__kgb21_ae70b5abfa847419cbf189d2502c34ddd_ae70b5abfa847419cbf189d2502c34ddd}} 
\index{module\_radsw\_kgb21@{module\_radsw\_kgb21}!msf21@{msf21}}
\index{msf21@{msf21}!module\_radsw\_kgb21@{module\_radsw\_kgb21}}
\doxyparagraph{\texorpdfstring{msf21}{msf21}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb21\+::msf21}

\mbox{\Hypertarget{namespacemodule__radsw__kgb21_a5575239aa9d55abcca1ac1f82dc4c4ec_a5575239aa9d55abcca1ac1f82dc4c4ec}\label{namespacemodule__radsw__kgb21_a5575239aa9d55abcca1ac1f82dc4c4ec_a5575239aa9d55abcca1ac1f82dc4c4ec}} 
\index{module\_radsw\_kgb21@{module\_radsw\_kgb21}!mfr21@{mfr21}}
\index{mfr21@{mfr21}!module\_radsw\_kgb21@{module\_radsw\_kgb21}}
\doxyparagraph{\texorpdfstring{mfr21}{mfr21}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb21\+::mfr21}

\mbox{\Hypertarget{namespacemodule__radsw__kgb21_ac93d473e0309275f03a89b161377a034_ac93d473e0309275f03a89b161377a034}\label{namespacemodule__radsw__kgb21_ac93d473e0309275f03a89b161377a034_ac93d473e0309275f03a89b161377a034}} 
\index{module\_radsw\_kgb21@{module\_radsw\_kgb21}!forref@{forref}}
\index{forref@{forref}!module\_radsw\_kgb21@{module\_radsw\_kgb21}}
\doxyparagraph{\texorpdfstring{forref}{forref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb21_a5575239aa9d55abcca1ac1f82dc4c4ec_a5575239aa9d55abcca1ac1f82dc4c4ec}{mfr21}},ng21), public module\+\_\+radsw\+\_\+kgb21\+::forref}

\mbox{\Hypertarget{namespacemodule__radsw__kgb21_a7cce83c282d3efec6a3fe319480c270a_a7cce83c282d3efec6a3fe319480c270a}\label{namespacemodule__radsw__kgb21_a7cce83c282d3efec6a3fe319480c270a_a7cce83c282d3efec6a3fe319480c270a}} 
\index{module\_radsw\_kgb21@{module\_radsw\_kgb21}!absa@{absa}}
\index{absa@{absa}!module\_radsw\_kgb21@{module\_radsw\_kgb21}}
\doxyparagraph{\texorpdfstring{absa}{absa}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb21_a235b17e9b4b37668028c572f80e1188a_a235b17e9b4b37668028c572f80e1188a}{msa21}},ng21), public module\+\_\+radsw\+\_\+kgb21\+::absa}

\mbox{\Hypertarget{namespacemodule__radsw__kgb21_a1d3f12f050c90be49f109205c463b29b_a1d3f12f050c90be49f109205c463b29b}\label{namespacemodule__radsw__kgb21_a1d3f12f050c90be49f109205c463b29b_a1d3f12f050c90be49f109205c463b29b}} 
\index{module\_radsw\_kgb21@{module\_radsw\_kgb21}!absb@{absb}}
\index{absb@{absb}!module\_radsw\_kgb21@{module\_radsw\_kgb21}}
\doxyparagraph{\texorpdfstring{absb}{absb}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb21_a59710ca5b31c30385ea968c0f01e2e81_a59710ca5b31c30385ea968c0f01e2e81}{msb21}},ng21), public module\+\_\+radsw\+\_\+kgb21\+::absb}

\mbox{\Hypertarget{namespacemodule__radsw__kgb21_a76fc3e4566fcee982b99b10ea562ba93_a76fc3e4566fcee982b99b10ea562ba93}\label{namespacemodule__radsw__kgb21_a76fc3e4566fcee982b99b10ea562ba93_a76fc3e4566fcee982b99b10ea562ba93}} 
\index{module\_radsw\_kgb21@{module\_radsw\_kgb21}!selfref@{selfref}}
\index{selfref@{selfref}!module\_radsw\_kgb21@{module\_radsw\_kgb21}}
\doxyparagraph{\texorpdfstring{selfref}{selfref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb21_ae70b5abfa847419cbf189d2502c34ddd_ae70b5abfa847419cbf189d2502c34ddd}{msf21}},ng21), public module\+\_\+radsw\+\_\+kgb21\+::selfref}

\mbox{\Hypertarget{namespacemodule__radsw__kgb21_a8df418599fb8aef5fc8f2935a913b361_a8df418599fb8aef5fc8f2935a913b361}\label{namespacemodule__radsw__kgb21_a8df418599fb8aef5fc8f2935a913b361_a8df418599fb8aef5fc8f2935a913b361}} 
\index{module\_radsw\_kgb21@{module\_radsw\_kgb21}!rayl@{rayl}}
\index{rayl@{rayl}!module\_radsw\_kgb21@{module\_radsw\_kgb21}}
\doxyparagraph{\texorpdfstring{rayl}{rayl}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), parameter, public module\+\_\+radsw\+\_\+kgb21\+::rayl = 9.\+41e-\/09}

