\hypertarget{namespacemodule__radsw__kgb19}{}\doxysubsection{module\+\_\+radsw\+\_\+kgb19 Module Reference}
\label{namespacemodule__radsw__kgb19}\index{module\_radsw\_kgb19@{module\_radsw\_kgb19}}


This module sets up absorption coeffients for band 19\+: 4650-\/5150 cm-\/1 (low -\/ h2o,co2; high -\/ co2)  


\doxysubsubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb19_a498993cce64baa8f22c8dfdce632cf85_a498993cce64baa8f22c8dfdce632cf85}{msa19}}
\begin{DoxyCompactList}\small\item\em MSA19=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__kgb19_a42771fcf9dd17b5c9d0d03cb2bf1c923_a42771fcf9dd17b5c9d0d03cb2bf1c923}{msb19}}
\begin{DoxyCompactList}\small\item\em MSB19=235. \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb19_a86778b12ff439f4f83fda891e7ae2bfe_a86778b12ff439f4f83fda891e7ae2bfe}{msf19}}
\begin{DoxyCompactList}\small\item\em MSF19=10. \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radsw__kgb19_a57f837ef4316dc2441bca3fde3998156_a57f837ef4316dc2441bca3fde3998156}{mfr19}}
\begin{DoxyCompactList}\small\item\em MFR19=3. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb19_a86778b12ff439f4f83fda891e7ae2bfe_a86778b12ff439f4f83fda891e7ae2bfe}{msf19}}, ng19), public \mbox{\hyperlink{namespacemodule__radsw__kgb19_adb26cae00c05ac5c048a4db5a319a2eb_adb26cae00c05ac5c048a4db5a319a2eb}{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 8). \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb19_a498993cce64baa8f22c8dfdce632cf85_a498993cce64baa8f22c8dfdce632cf85}{msa19}}, ng19), public \mbox{\hyperlink{namespacemodule__radsw__kgb19_ad9a6fc80122a2f06d9f2277d74e00c85_ad9a6fc80122a2f06d9f2277d74e00c85}{absa}}
\begin{DoxyCompactList}\small\item\em the array absa(585,\+NG19) (ka(9,5,13,\+NG19)) 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 8, and indicates which g-\/interval the absorption coefficients are for. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb19_a42771fcf9dd17b5c9d0d03cb2bf1c923_a42771fcf9dd17b5c9d0d03cb2bf1c923}{msb19}}, ng19), public \mbox{\hyperlink{namespacemodule__radsw__kgb19_ad1171c012a1615c4b98eb3e95276867d_ad1171c012a1615c4b98eb3e95276867d}{absb}}
\begin{DoxyCompactList}\small\item\em the array absb(235,8) (kb(5,13\+:59,8)) 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 8, and tells us which g-\/interval the absorption coefficients are for. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb19_a57f837ef4316dc2441bca3fde3998156_a57f837ef4316dc2441bca3fde3998156}{mfr19}}, ng19), public \mbox{\hyperlink{namespacemodule__radsw__kgb19_abb4c30ad8e82694b33df78bb2687df6d_abb4c30ad8e82694b33df78bb2687df6d}{forref}}
\begin{DoxyCompactList}\small\item\em optical depth coefficients \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), parameter, public \mbox{\hyperlink{namespacemodule__radsw__kgb19_ac79ad61e8d246d6075664df4201373d7_ac79ad61e8d246d6075664df4201373d7}{rayl}} = 2.\+29e-\/09
\begin{DoxyCompactList}\small\item\em rayleigh extinction coefficient at $v=4900cm^{-1}$ \end{DoxyCompactList}\end{DoxyCompactItemize}
\end{Indent}


\doxysubsubsection{Variable Documentation}
\mbox{\Hypertarget{namespacemodule__radsw__kgb19_a498993cce64baa8f22c8dfdce632cf85_a498993cce64baa8f22c8dfdce632cf85}\label{namespacemodule__radsw__kgb19_a498993cce64baa8f22c8dfdce632cf85_a498993cce64baa8f22c8dfdce632cf85}} 
\index{module\_radsw\_kgb19@{module\_radsw\_kgb19}!msa19@{msa19}}
\index{msa19@{msa19}!module\_radsw\_kgb19@{module\_radsw\_kgb19}}
\doxyparagraph{\texorpdfstring{msa19}{msa19}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb19\+::msa19}

\mbox{\Hypertarget{namespacemodule__radsw__kgb19_a42771fcf9dd17b5c9d0d03cb2bf1c923_a42771fcf9dd17b5c9d0d03cb2bf1c923}\label{namespacemodule__radsw__kgb19_a42771fcf9dd17b5c9d0d03cb2bf1c923_a42771fcf9dd17b5c9d0d03cb2bf1c923}} 
\index{module\_radsw\_kgb19@{module\_radsw\_kgb19}!msb19@{msb19}}
\index{msb19@{msb19}!module\_radsw\_kgb19@{module\_radsw\_kgb19}}
\doxyparagraph{\texorpdfstring{msb19}{msb19}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb19\+::msb19}

\mbox{\Hypertarget{namespacemodule__radsw__kgb19_a86778b12ff439f4f83fda891e7ae2bfe_a86778b12ff439f4f83fda891e7ae2bfe}\label{namespacemodule__radsw__kgb19_a86778b12ff439f4f83fda891e7ae2bfe_a86778b12ff439f4f83fda891e7ae2bfe}} 
\index{module\_radsw\_kgb19@{module\_radsw\_kgb19}!msf19@{msf19}}
\index{msf19@{msf19}!module\_radsw\_kgb19@{module\_radsw\_kgb19}}
\doxyparagraph{\texorpdfstring{msf19}{msf19}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb19\+::msf19}

\mbox{\Hypertarget{namespacemodule__radsw__kgb19_a57f837ef4316dc2441bca3fde3998156_a57f837ef4316dc2441bca3fde3998156}\label{namespacemodule__radsw__kgb19_a57f837ef4316dc2441bca3fde3998156_a57f837ef4316dc2441bca3fde3998156}} 
\index{module\_radsw\_kgb19@{module\_radsw\_kgb19}!mfr19@{mfr19}}
\index{mfr19@{mfr19}!module\_radsw\_kgb19@{module\_radsw\_kgb19}}
\doxyparagraph{\texorpdfstring{mfr19}{mfr19}}
{\footnotesize\ttfamily integer, public module\+\_\+radsw\+\_\+kgb19\+::mfr19}

\mbox{\Hypertarget{namespacemodule__radsw__kgb19_adb26cae00c05ac5c048a4db5a319a2eb_adb26cae00c05ac5c048a4db5a319a2eb}\label{namespacemodule__radsw__kgb19_adb26cae00c05ac5c048a4db5a319a2eb_adb26cae00c05ac5c048a4db5a319a2eb}} 
\index{module\_radsw\_kgb19@{module\_radsw\_kgb19}!selfref@{selfref}}
\index{selfref@{selfref}!module\_radsw\_kgb19@{module\_radsw\_kgb19}}
\doxyparagraph{\texorpdfstring{selfref}{selfref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb19_a86778b12ff439f4f83fda891e7ae2bfe_a86778b12ff439f4f83fda891e7ae2bfe}{msf19}},ng19), public module\+\_\+radsw\+\_\+kgb19\+::selfref}

\mbox{\Hypertarget{namespacemodule__radsw__kgb19_ad9a6fc80122a2f06d9f2277d74e00c85_ad9a6fc80122a2f06d9f2277d74e00c85}\label{namespacemodule__radsw__kgb19_ad9a6fc80122a2f06d9f2277d74e00c85_ad9a6fc80122a2f06d9f2277d74e00c85}} 
\index{module\_radsw\_kgb19@{module\_radsw\_kgb19}!absa@{absa}}
\index{absa@{absa}!module\_radsw\_kgb19@{module\_radsw\_kgb19}}
\doxyparagraph{\texorpdfstring{absa}{absa}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb19_a498993cce64baa8f22c8dfdce632cf85_a498993cce64baa8f22c8dfdce632cf85}{msa19}},ng19), public module\+\_\+radsw\+\_\+kgb19\+::absa}

\mbox{\Hypertarget{namespacemodule__radsw__kgb19_ad1171c012a1615c4b98eb3e95276867d_ad1171c012a1615c4b98eb3e95276867d}\label{namespacemodule__radsw__kgb19_ad1171c012a1615c4b98eb3e95276867d_ad1171c012a1615c4b98eb3e95276867d}} 
\index{module\_radsw\_kgb19@{module\_radsw\_kgb19}!absb@{absb}}
\index{absb@{absb}!module\_radsw\_kgb19@{module\_radsw\_kgb19}}
\doxyparagraph{\texorpdfstring{absb}{absb}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb19_a42771fcf9dd17b5c9d0d03cb2bf1c923_a42771fcf9dd17b5c9d0d03cb2bf1c923}{msb19}},ng19), public module\+\_\+radsw\+\_\+kgb19\+::absb}

\mbox{\Hypertarget{namespacemodule__radsw__kgb19_abb4c30ad8e82694b33df78bb2687df6d_abb4c30ad8e82694b33df78bb2687df6d}\label{namespacemodule__radsw__kgb19_abb4c30ad8e82694b33df78bb2687df6d_abb4c30ad8e82694b33df78bb2687df6d}} 
\index{module\_radsw\_kgb19@{module\_radsw\_kgb19}!forref@{forref}}
\index{forref@{forref}!module\_radsw\_kgb19@{module\_radsw\_kgb19}}
\doxyparagraph{\texorpdfstring{forref}{forref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(\mbox{\hyperlink{namespacemodule__radsw__kgb19_a57f837ef4316dc2441bca3fde3998156_a57f837ef4316dc2441bca3fde3998156}{mfr19}},ng19), public module\+\_\+radsw\+\_\+kgb19\+::forref}

\mbox{\Hypertarget{namespacemodule__radsw__kgb19_ac79ad61e8d246d6075664df4201373d7_ac79ad61e8d246d6075664df4201373d7}\label{namespacemodule__radsw__kgb19_ac79ad61e8d246d6075664df4201373d7_ac79ad61e8d246d6075664df4201373d7}} 
\index{module\_radsw\_kgb19@{module\_radsw\_kgb19}!rayl@{rayl}}
\index{rayl@{rayl}!module\_radsw\_kgb19@{module\_radsw\_kgb19}}
\doxyparagraph{\texorpdfstring{rayl}{rayl}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), parameter, public module\+\_\+radsw\+\_\+kgb19\+::rayl = 2.\+29e-\/09}

