\hypertarget{namespacemodule__radsw__kgb22}{}\doxysubsection{module\+\_\+radsw\+\_\+kgb22 Module Reference}
\label{namespacemodule__radsw__kgb22}\index{module\_radsw\_kgb22@{module\_radsw\_kgb22}}


This module sets up absorption coeffients for band 22\+: 7700-\/8050 cm-\/1 (low -\/ h2o, o2; high -\/ o2)  


\doxysubsubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb22_a4134c2cd3b31db5e0adb5c3c2ad87905_a4134c2cd3b31db5e0adb5c3c2ad87905}{msa22}}
\begin{DoxyCompactList}\small\item\em msa22=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__kgb22_a3398f8d12ec0349b44197873ac58fd98_a3398f8d12ec0349b44197873ac58fd98}{msb22}}
\begin{DoxyCompactList}\small\item\em msb22=235 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb22_a0903a020c9e4a4f7c21911d2ab98fd46_a0903a020c9e4a4f7c21911d2ab98fd46}{msf22}}
\begin{DoxyCompactList}\small\item\em msf22=10 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb22_a0afe8facbe4837a22c96a0d2000a20ee_a0afe8facbe4837a22c96a0d2000a20ee}{mfr22}}
\begin{DoxyCompactList}\small\item\em mfr22=3 \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb22_a0afe8facbe4837a22c96a0d2000a20ee_a0afe8facbe4837a22c96a0d2000a20ee}{mfr22}}, ng22), public \mbox{\hyperlink{namespacemodule__radsw__kgb22_a509916fac772945555a1b3fd0d002c93_a509916fac772945555a1b3fd0d002c93}{forref}}
\begin{DoxyCompactList}\small\item\em optical depth coefficients \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb22_a4134c2cd3b31db5e0adb5c3c2ad87905_a4134c2cd3b31db5e0adb5c3c2ad87905}{msa22}}, ng22), public \mbox{\hyperlink{namespacemodule__radsw__kgb22_a15ed79e7136ed6d7f11c19a81281af53_a15ed79e7136ed6d7f11c19a81281af53}{absa}}
\begin{DoxyCompactList}\small\item\em the array absa(585,\+NG22) (ka(9,5,13,\+NG22)) 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 2, and indicates which g-\/interval the absorption coefficients are for. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb22_a3398f8d12ec0349b44197873ac58fd98_a3398f8d12ec0349b44197873ac58fd98}{msb22}}, ng22), public \mbox{\hyperlink{namespacemodule__radsw__kgb22_a60403e7d343c85e965f3507b0db0f2a5_a60403e7d343c85e965f3507b0db0f2a5}{absb}}
\begin{DoxyCompactList}\small\item\em the array absb(235,2) (kb(5,13\+:59,2)) 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 2, and tells us which g-\/interval the absorption coefficients are for. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb22_a0903a020c9e4a4f7c21911d2ab98fd46_a0903a020c9e4a4f7c21911d2ab98fd46}{msf22}}, ng22), public \mbox{\hyperlink{namespacemodule__radsw__kgb22_abc3bd99e8ad7d1f09fb7fab7ed67a32b_abc3bd99e8ad7d1f09fb7fab7ed67a32b}{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 2). \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), parameter, public \mbox{\hyperlink{namespacemodule__radsw__kgb22_ae77b766677ea476e2ba14b88e511870a_ae77b766677ea476e2ba14b88e511870a}{rayl}} = 1.\+54e-\/08
\begin{DoxyCompactList}\small\item\em rayleigh extinction coefficient at $v=8000cm^{-1}$ \end{DoxyCompactList}\end{DoxyCompactItemize}
\end{Indent}


\doxysubsubsection{Variable Documentation}
\mbox{\Hypertarget{namespacemodule__radsw__kgb22_a4134c2cd3b31db5e0adb5c3c2ad87905_a4134c2cd3b31db5e0adb5c3c2ad87905}\label{namespacemodule__radsw__kgb22_a4134c2cd3b31db5e0adb5c3c2ad87905_a4134c2cd3b31db5e0adb5c3c2ad87905}} 
\index{module\_radsw\_kgb22@{module\_radsw\_kgb22}!msa22@{msa22}}
\index{msa22@{msa22}!module\_radsw\_kgb22@{module\_radsw\_kgb22}}
\doxyparagraph{\texorpdfstring{msa22}{msa22}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb22\+::msa22}

\mbox{\Hypertarget{namespacemodule__radsw__kgb22_a3398f8d12ec0349b44197873ac58fd98_a3398f8d12ec0349b44197873ac58fd98}\label{namespacemodule__radsw__kgb22_a3398f8d12ec0349b44197873ac58fd98_a3398f8d12ec0349b44197873ac58fd98}} 
\index{module\_radsw\_kgb22@{module\_radsw\_kgb22}!msb22@{msb22}}
\index{msb22@{msb22}!module\_radsw\_kgb22@{module\_radsw\_kgb22}}
\doxyparagraph{\texorpdfstring{msb22}{msb22}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb22\+::msb22}

\mbox{\Hypertarget{namespacemodule__radsw__kgb22_a0903a020c9e4a4f7c21911d2ab98fd46_a0903a020c9e4a4f7c21911d2ab98fd46}\label{namespacemodule__radsw__kgb22_a0903a020c9e4a4f7c21911d2ab98fd46_a0903a020c9e4a4f7c21911d2ab98fd46}} 
\index{module\_radsw\_kgb22@{module\_radsw\_kgb22}!msf22@{msf22}}
\index{msf22@{msf22}!module\_radsw\_kgb22@{module\_radsw\_kgb22}}
\doxyparagraph{\texorpdfstring{msf22}{msf22}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb22\+::msf22}

\mbox{\Hypertarget{namespacemodule__radsw__kgb22_a0afe8facbe4837a22c96a0d2000a20ee_a0afe8facbe4837a22c96a0d2000a20ee}\label{namespacemodule__radsw__kgb22_a0afe8facbe4837a22c96a0d2000a20ee_a0afe8facbe4837a22c96a0d2000a20ee}} 
\index{module\_radsw\_kgb22@{module\_radsw\_kgb22}!mfr22@{mfr22}}
\index{mfr22@{mfr22}!module\_radsw\_kgb22@{module\_radsw\_kgb22}}
\doxyparagraph{\texorpdfstring{mfr22}{mfr22}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb22\+::mfr22}

\mbox{\Hypertarget{namespacemodule__radsw__kgb22_a509916fac772945555a1b3fd0d002c93_a509916fac772945555a1b3fd0d002c93}\label{namespacemodule__radsw__kgb22_a509916fac772945555a1b3fd0d002c93_a509916fac772945555a1b3fd0d002c93}} 
\index{module\_radsw\_kgb22@{module\_radsw\_kgb22}!forref@{forref}}
\index{forref@{forref}!module\_radsw\_kgb22@{module\_radsw\_kgb22}}
\doxyparagraph{\texorpdfstring{forref}{forref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb22_a0afe8facbe4837a22c96a0d2000a20ee_a0afe8facbe4837a22c96a0d2000a20ee}{mfr22}},ng22), public module\+\_\+radsw\+\_\+kgb22\+::forref}

\mbox{\Hypertarget{namespacemodule__radsw__kgb22_a15ed79e7136ed6d7f11c19a81281af53_a15ed79e7136ed6d7f11c19a81281af53}\label{namespacemodule__radsw__kgb22_a15ed79e7136ed6d7f11c19a81281af53_a15ed79e7136ed6d7f11c19a81281af53}} 
\index{module\_radsw\_kgb22@{module\_radsw\_kgb22}!absa@{absa}}
\index{absa@{absa}!module\_radsw\_kgb22@{module\_radsw\_kgb22}}
\doxyparagraph{\texorpdfstring{absa}{absa}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb22_a4134c2cd3b31db5e0adb5c3c2ad87905_a4134c2cd3b31db5e0adb5c3c2ad87905}{msa22}},ng22), public module\+\_\+radsw\+\_\+kgb22\+::absa}

\mbox{\Hypertarget{namespacemodule__radsw__kgb22_a60403e7d343c85e965f3507b0db0f2a5_a60403e7d343c85e965f3507b0db0f2a5}\label{namespacemodule__radsw__kgb22_a60403e7d343c85e965f3507b0db0f2a5_a60403e7d343c85e965f3507b0db0f2a5}} 
\index{module\_radsw\_kgb22@{module\_radsw\_kgb22}!absb@{absb}}
\index{absb@{absb}!module\_radsw\_kgb22@{module\_radsw\_kgb22}}
\doxyparagraph{\texorpdfstring{absb}{absb}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb22_a3398f8d12ec0349b44197873ac58fd98_a3398f8d12ec0349b44197873ac58fd98}{msb22}},ng22), public module\+\_\+radsw\+\_\+kgb22\+::absb}

\mbox{\Hypertarget{namespacemodule__radsw__kgb22_abc3bd99e8ad7d1f09fb7fab7ed67a32b_abc3bd99e8ad7d1f09fb7fab7ed67a32b}\label{namespacemodule__radsw__kgb22_abc3bd99e8ad7d1f09fb7fab7ed67a32b_abc3bd99e8ad7d1f09fb7fab7ed67a32b}} 
\index{module\_radsw\_kgb22@{module\_radsw\_kgb22}!selfref@{selfref}}
\index{selfref@{selfref}!module\_radsw\_kgb22@{module\_radsw\_kgb22}}
\doxyparagraph{\texorpdfstring{selfref}{selfref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb22_a0903a020c9e4a4f7c21911d2ab98fd46_a0903a020c9e4a4f7c21911d2ab98fd46}{msf22}},ng22), public module\+\_\+radsw\+\_\+kgb22\+::selfref}

\mbox{\Hypertarget{namespacemodule__radsw__kgb22_ae77b766677ea476e2ba14b88e511870a_ae77b766677ea476e2ba14b88e511870a}\label{namespacemodule__radsw__kgb22_ae77b766677ea476e2ba14b88e511870a_ae77b766677ea476e2ba14b88e511870a}} 
\index{module\_radsw\_kgb22@{module\_radsw\_kgb22}!rayl@{rayl}}
\index{rayl@{rayl}!module\_radsw\_kgb22@{module\_radsw\_kgb22}}
\doxyparagraph{\texorpdfstring{rayl}{rayl}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), parameter, public module\+\_\+radsw\+\_\+kgb22\+::rayl = 1.\+54e-\/08}

