\hypertarget{namespacemodule__radsw__kgb16}{}\doxysubsection{module\+\_\+radsw\+\_\+kgb16 Module Reference}
\label{namespacemodule__radsw__kgb16}\index{module\_radsw\_kgb16@{module\_radsw\_kgb16}}


This module sets up absorption coefficients for band 16\+: 2600-\/3250 cm-\/1 (low -\/ h2o, ch4; high -\/ ch4)  


\doxysubsubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb16_ad76a9d79e77228ac93ec3db96eed2b29_ad76a9d79e77228ac93ec3db96eed2b29}{msa16}}
\begin{DoxyCompactList}\small\item\em msa16=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__kgb16_a2ce1ab36897fb1fc7d85cbf7fe539e59_a2ce1ab36897fb1fc7d85cbf7fe539e59}{msb16}}
\begin{DoxyCompactList}\small\item\em msb16=235 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb16_ab35df3f7d231e98fbef5738119138907_ab35df3f7d231e98fbef5738119138907}{msf16}}
\begin{DoxyCompactList}\small\item\em msf16=10 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb16_aeee3fe8e44f6fbd9a6a008bc9f97f37c_aeee3fe8e44f6fbd9a6a008bc9f97f37c}{mfr16}}
\begin{DoxyCompactList}\small\item\em mfr16=3 \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb16_ab35df3f7d231e98fbef5738119138907_ab35df3f7d231e98fbef5738119138907}{msf16}}, ng16), public \mbox{\hyperlink{namespacemodule__radsw__kgb16_a77d98f3fb766d4abfd494332ce67c2c2_a77d98f3fb766d4abfd494332ce67c2c2}{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 6). \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb16_ad76a9d79e77228ac93ec3db96eed2b29_ad76a9d79e77228ac93ec3db96eed2b29}{msa16}}, ng16), public \mbox{\hyperlink{namespacemodule__radsw__kgb16_a51fe40b5f24cc461850fe5be40d18869_a51fe40b5f24cc461850fe5be40d18869}{absa}}
\begin{DoxyCompactList}\small\item\em the array absa(585,\+NG16) (ka(9,5,13,\+NG16)) 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 6, and indicates which g-\/interval the absorption coefficients are for. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb16_a2ce1ab36897fb1fc7d85cbf7fe539e59_a2ce1ab36897fb1fc7d85cbf7fe539e59}{msb16}}, ng16), public \mbox{\hyperlink{namespacemodule__radsw__kgb16_afe8639128e4f7a48f133b7399addcb79_afe8639128e4f7a48f133b7399addcb79}{absb}}
\begin{DoxyCompactList}\small\item\em the array absb(235,6) (kb(5,13\+:59,6)) 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 6, and tells us which g-\/interval the absorption coefficients are for. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb16_aeee3fe8e44f6fbd9a6a008bc9f97f37c_aeee3fe8e44f6fbd9a6a008bc9f97f37c}{mfr16}}, ng16), public \mbox{\hyperlink{namespacemodule__radsw__kgb16_a8e8cf110f56c7d4253c63bbf607be34c_a8e8cf110f56c7d4253c63bbf607be34c}{forref}}
\begin{DoxyCompactList}\small\item\em optical depth coefficients \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), parameter, public \mbox{\hyperlink{namespacemodule__radsw__kgb16_a27964e0300eb686acf1ed3c8459d3810_a27964e0300eb686acf1ed3c8459d3810}{rayl}} = 2.\+91e-\/10
\begin{DoxyCompactList}\small\item\em rayleigh extinction coefficient at v = $2925 cm^{-1}$ \end{DoxyCompactList}\end{DoxyCompactItemize}
\end{Indent}


\doxysubsubsection{Variable Documentation}
\mbox{\Hypertarget{namespacemodule__radsw__kgb16_ad76a9d79e77228ac93ec3db96eed2b29_ad76a9d79e77228ac93ec3db96eed2b29}\label{namespacemodule__radsw__kgb16_ad76a9d79e77228ac93ec3db96eed2b29_ad76a9d79e77228ac93ec3db96eed2b29}} 
\index{module\_radsw\_kgb16@{module\_radsw\_kgb16}!msa16@{msa16}}
\index{msa16@{msa16}!module\_radsw\_kgb16@{module\_radsw\_kgb16}}
\doxyparagraph{\texorpdfstring{msa16}{msa16}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb16\+::msa16}

\mbox{\Hypertarget{namespacemodule__radsw__kgb16_a2ce1ab36897fb1fc7d85cbf7fe539e59_a2ce1ab36897fb1fc7d85cbf7fe539e59}\label{namespacemodule__radsw__kgb16_a2ce1ab36897fb1fc7d85cbf7fe539e59_a2ce1ab36897fb1fc7d85cbf7fe539e59}} 
\index{module\_radsw\_kgb16@{module\_radsw\_kgb16}!msb16@{msb16}}
\index{msb16@{msb16}!module\_radsw\_kgb16@{module\_radsw\_kgb16}}
\doxyparagraph{\texorpdfstring{msb16}{msb16}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb16\+::msb16}

\mbox{\Hypertarget{namespacemodule__radsw__kgb16_ab35df3f7d231e98fbef5738119138907_ab35df3f7d231e98fbef5738119138907}\label{namespacemodule__radsw__kgb16_ab35df3f7d231e98fbef5738119138907_ab35df3f7d231e98fbef5738119138907}} 
\index{module\_radsw\_kgb16@{module\_radsw\_kgb16}!msf16@{msf16}}
\index{msf16@{msf16}!module\_radsw\_kgb16@{module\_radsw\_kgb16}}
\doxyparagraph{\texorpdfstring{msf16}{msf16}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb16\+::msf16}

\mbox{\Hypertarget{namespacemodule__radsw__kgb16_aeee3fe8e44f6fbd9a6a008bc9f97f37c_aeee3fe8e44f6fbd9a6a008bc9f97f37c}\label{namespacemodule__radsw__kgb16_aeee3fe8e44f6fbd9a6a008bc9f97f37c_aeee3fe8e44f6fbd9a6a008bc9f97f37c}} 
\index{module\_radsw\_kgb16@{module\_radsw\_kgb16}!mfr16@{mfr16}}
\index{mfr16@{mfr16}!module\_radsw\_kgb16@{module\_radsw\_kgb16}}
\doxyparagraph{\texorpdfstring{mfr16}{mfr16}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb16\+::mfr16}

\mbox{\Hypertarget{namespacemodule__radsw__kgb16_a77d98f3fb766d4abfd494332ce67c2c2_a77d98f3fb766d4abfd494332ce67c2c2}\label{namespacemodule__radsw__kgb16_a77d98f3fb766d4abfd494332ce67c2c2_a77d98f3fb766d4abfd494332ce67c2c2}} 
\index{module\_radsw\_kgb16@{module\_radsw\_kgb16}!selfref@{selfref}}
\index{selfref@{selfref}!module\_radsw\_kgb16@{module\_radsw\_kgb16}}
\doxyparagraph{\texorpdfstring{selfref}{selfref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb16_ab35df3f7d231e98fbef5738119138907_ab35df3f7d231e98fbef5738119138907}{msf16}},ng16), public module\+\_\+radsw\+\_\+kgb16\+::selfref}

\mbox{\Hypertarget{namespacemodule__radsw__kgb16_a51fe40b5f24cc461850fe5be40d18869_a51fe40b5f24cc461850fe5be40d18869}\label{namespacemodule__radsw__kgb16_a51fe40b5f24cc461850fe5be40d18869_a51fe40b5f24cc461850fe5be40d18869}} 
\index{module\_radsw\_kgb16@{module\_radsw\_kgb16}!absa@{absa}}
\index{absa@{absa}!module\_radsw\_kgb16@{module\_radsw\_kgb16}}
\doxyparagraph{\texorpdfstring{absa}{absa}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb16_ad76a9d79e77228ac93ec3db96eed2b29_ad76a9d79e77228ac93ec3db96eed2b29}{msa16}},ng16), public module\+\_\+radsw\+\_\+kgb16\+::absa}

\mbox{\Hypertarget{namespacemodule__radsw__kgb16_afe8639128e4f7a48f133b7399addcb79_afe8639128e4f7a48f133b7399addcb79}\label{namespacemodule__radsw__kgb16_afe8639128e4f7a48f133b7399addcb79_afe8639128e4f7a48f133b7399addcb79}} 
\index{module\_radsw\_kgb16@{module\_radsw\_kgb16}!absb@{absb}}
\index{absb@{absb}!module\_radsw\_kgb16@{module\_radsw\_kgb16}}
\doxyparagraph{\texorpdfstring{absb}{absb}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb16_a2ce1ab36897fb1fc7d85cbf7fe539e59_a2ce1ab36897fb1fc7d85cbf7fe539e59}{msb16}},ng16), public module\+\_\+radsw\+\_\+kgb16\+::absb}

\mbox{\Hypertarget{namespacemodule__radsw__kgb16_a8e8cf110f56c7d4253c63bbf607be34c_a8e8cf110f56c7d4253c63bbf607be34c}\label{namespacemodule__radsw__kgb16_a8e8cf110f56c7d4253c63bbf607be34c_a8e8cf110f56c7d4253c63bbf607be34c}} 
\index{module\_radsw\_kgb16@{module\_radsw\_kgb16}!forref@{forref}}
\index{forref@{forref}!module\_radsw\_kgb16@{module\_radsw\_kgb16}}
\doxyparagraph{\texorpdfstring{forref}{forref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb16_aeee3fe8e44f6fbd9a6a008bc9f97f37c_aeee3fe8e44f6fbd9a6a008bc9f97f37c}{mfr16}},ng16), public module\+\_\+radsw\+\_\+kgb16\+::forref}

\mbox{\Hypertarget{namespacemodule__radsw__kgb16_a27964e0300eb686acf1ed3c8459d3810_a27964e0300eb686acf1ed3c8459d3810}\label{namespacemodule__radsw__kgb16_a27964e0300eb686acf1ed3c8459d3810_a27964e0300eb686acf1ed3c8459d3810}} 
\index{module\_radsw\_kgb16@{module\_radsw\_kgb16}!rayl@{rayl}}
\index{rayl@{rayl}!module\_radsw\_kgb16@{module\_radsw\_kgb16}}
\doxyparagraph{\texorpdfstring{rayl}{rayl}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), parameter, public module\+\_\+radsw\+\_\+kgb16\+::rayl = 2.\+91e-\/10}

