\hypertarget{namespacemodule__radlw__kgb04}{}\doxysubsection{module\+\_\+radlw\+\_\+kgb04 Module Reference}
\label{namespacemodule__radlw__kgb04}\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}}


This module sets up absorption coefficients for band 04\+: 630-\/700 cm-\/1 (low -\/ h2o, co2; high -\/ co2, o3)  


\doxysubsubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer, public \mbox{\hyperlink{namespacemodule__radlw__kgb04_ac8c5caff005fd04d01009dd9e977d570_ac8c5caff005fd04d01009dd9e977d570}{msa04}}
\begin{DoxyCompactList}\small\item\em msa04=585 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radlw__kgb04_ab9ce0111a156f7b80f2adaa9f3e84a32_ab9ce0111a156f7b80f2adaa9f3e84a32}{msb04}}
\begin{DoxyCompactList}\small\item\em msb04=1175 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radlw__kgb04_a4b38dd1165aca80e19697df7ae74a27a_a4b38dd1165aca80e19697df7ae74a27a}{msf04}}
\begin{DoxyCompactList}\small\item\em msf04=10 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radlw__kgb04_ab6ae25b4a793bf78ccd504685d639039_ab6ae25b4a793bf78ccd504685d639039}{mfr04}}
\begin{DoxyCompactList}\small\item\em mfr04=4 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radlw__kgb04_a60ff35def4e526c7d9cf3ec88bdd4485_a60ff35def4e526c7d9cf3ec88bdd4485}{maf04}}
\begin{DoxyCompactList}\small\item\em maf04=9 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radlw__kgb04_a768f4447809fb11206dce383a121d595_a768f4447809fb11206dce383a121d595}{mbf04}}
\begin{DoxyCompactList}\small\item\em mbf04=5 \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng04, \mbox{\hyperlink{namespacemodule__radlw__kgb04_ab6ae25b4a793bf78ccd504685d639039_ab6ae25b4a793bf78ccd504685d639039}{mfr04}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb04_a816fd065291a92c13d026d38a708479b_a816fd065291a92c13d026d38a708479b}{forref}}
\begin{DoxyCompactList}\small\item\em the array forref contains the coefficient of the water vapor foreign-\/continuum (including the energy term). the first index refers to reference temperature (296,260,224,260) and pressure (970,475,219,3 mbar) levels. the second index runs over the g-\/channel (1 to NG04=14). \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng04, \mbox{\hyperlink{namespacemodule__radlw__kgb04_ac8c5caff005fd04d01009dd9e977d570_ac8c5caff005fd04d01009dd9e977d570}{msa04}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb04_a8d73bb6971c872e15a24a81d3917167e_a8d73bb6971c872e15a24a81d3917167e}{absa}}
\begin{DoxyCompactList}\small\item\em the array absa(\+NG04,585) = ka(\+NG04,9,5,13) contains absorption coefs at the NG04=14 g-\/intervals for a range of pressure levels \texorpdfstring{$>$}{>} $\sim$100mb, temperatures, and ratios of water vapor to co2. the first index in the array, js, runs from 1 to 9, and corresponds to different gas column amount ratios, as expressed through the binary species parameter eta, defined as eta = gas1/(gas1+(rat)$\ast$gas2), where rat is the ratio of the reference mls column amount value of gas1 to that of gas2. the 2nd index in the array, jt, which runs from 1 to 5, corresponds to different temperatures. more specifically, jt = 1-\/5 means that the data are for the corresponding temperature of tref-\/30, tref-\/15, tref, tref+15, and tref+30, respectively. the third index, jp, runs from 1 to 13 and refers to the reference pressure level (e.\+g. jp = 1 is for a pressure of 1053.\+63 mb). the fourth index, ig, goes from 1 to NG04=14, and tells us which g-\/interval the absorption coefficients are for. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng04, \mbox{\hyperlink{namespacemodule__radlw__kgb04_ab9ce0111a156f7b80f2adaa9f3e84a32_ab9ce0111a156f7b80f2adaa9f3e84a32}{msb04}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb04_aaacc55911b42c67396b5cdc4318e0d5f_aaacc55911b42c67396b5cdc4318e0d5f}{absb}}
\begin{DoxyCompactList}\small\item\em the array absb(\+NG04,1175) = kb(\+NG04,5,5,13\+:59) contains absorption coefs at the NG04=14 g-\/intervals for a range of pressure levels \texorpdfstring{$<$}{<} $\sim$100mb, temperatures, and ratios of h2o to co2. the first index in the array, js, runs from 1 to 5, and corresponds to different gas amount ratios, as expressed through the binary species parameter eta, defined as eta = gas1/(gas1+rat$\ast$gas2), where rat is the ratio of the reference mls column amount value of gas1 to that of gas2. the second index, jt, which runs from 1 to 5, corresponds to different temperatures. more specifically, jt = 1-\/5 means that the data are for the corresponding temperature of tref-\/30, tref-\/15, tref, tref+15, and tref+30, respectively. the third index, jp, runs from 13 to 59 and refers to the reference pressure level (e.\+g. jp = 13 is for a pressure of 95.\+5835 mb). the fourth index, ig, goes from 1 to NG04=14, and tells us which g-\/interval the absorption coefficients are for. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng04, \mbox{\hyperlink{namespacemodule__radlw__kgb04_a4b38dd1165aca80e19697df7ae74a27a_a4b38dd1165aca80e19697df7ae74a27a}{msf04}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb04_a696b91ef86ccbda17df10f770797cafa_a696b91ef86ccbda17df10f770797cafa}{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 NG04=14). \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng04, \mbox{\hyperlink{namespacemodule__radlw__kgb04_a60ff35def4e526c7d9cf3ec88bdd4485_a60ff35def4e526c7d9cf3ec88bdd4485}{maf04}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb04_ace1d87742e2c543d9b0662e1c7d2b624_ace1d87742e2c543d9b0662e1c7d2b624}{fracrefa}}
\begin{DoxyCompactList}\small\item\em planck fraction mapping level\+: p=212.\+7250 mbar, t = 223.\+06 k \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng04, \mbox{\hyperlink{namespacemodule__radlw__kgb04_a768f4447809fb11206dce383a121d595_a768f4447809fb11206dce383a121d595}{mbf04}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb04_ae8d5d56d09dfbe06d918c6b098e3fddf_ae8d5d56d09dfbe06d918c6b098e3fddf}{fracrefb}}
\begin{DoxyCompactList}\small\item\em planck fraction mapping level \+: p = 95.\+58350 mb, t = 215.\+70 k \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsubsection{Variable Documentation}
\mbox{\Hypertarget{namespacemodule__radlw__kgb04_ac8c5caff005fd04d01009dd9e977d570_ac8c5caff005fd04d01009dd9e977d570}\label{namespacemodule__radlw__kgb04_ac8c5caff005fd04d01009dd9e977d570_ac8c5caff005fd04d01009dd9e977d570}} 
\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}!msa04@{msa04}}
\index{msa04@{msa04}!module\_radlw\_kgb04@{module\_radlw\_kgb04}}
\doxyparagraph{\texorpdfstring{msa04}{msa04}}
{\footnotesize\ttfamily integer, public module\+\_\+radlw\+\_\+kgb04\+::msa04}

\mbox{\Hypertarget{namespacemodule__radlw__kgb04_ab9ce0111a156f7b80f2adaa9f3e84a32_ab9ce0111a156f7b80f2adaa9f3e84a32}\label{namespacemodule__radlw__kgb04_ab9ce0111a156f7b80f2adaa9f3e84a32_ab9ce0111a156f7b80f2adaa9f3e84a32}} 
\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}!msb04@{msb04}}
\index{msb04@{msb04}!module\_radlw\_kgb04@{module\_radlw\_kgb04}}
\doxyparagraph{\texorpdfstring{msb04}{msb04}}
{\footnotesize\ttfamily integer, public module\+\_\+radlw\+\_\+kgb04\+::msb04}

\mbox{\Hypertarget{namespacemodule__radlw__kgb04_a4b38dd1165aca80e19697df7ae74a27a_a4b38dd1165aca80e19697df7ae74a27a}\label{namespacemodule__radlw__kgb04_a4b38dd1165aca80e19697df7ae74a27a_a4b38dd1165aca80e19697df7ae74a27a}} 
\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}!msf04@{msf04}}
\index{msf04@{msf04}!module\_radlw\_kgb04@{module\_radlw\_kgb04}}
\doxyparagraph{\texorpdfstring{msf04}{msf04}}
{\footnotesize\ttfamily integer, public module\+\_\+radlw\+\_\+kgb04\+::msf04}

\mbox{\Hypertarget{namespacemodule__radlw__kgb04_ab6ae25b4a793bf78ccd504685d639039_ab6ae25b4a793bf78ccd504685d639039}\label{namespacemodule__radlw__kgb04_ab6ae25b4a793bf78ccd504685d639039_ab6ae25b4a793bf78ccd504685d639039}} 
\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}!mfr04@{mfr04}}
\index{mfr04@{mfr04}!module\_radlw\_kgb04@{module\_radlw\_kgb04}}
\doxyparagraph{\texorpdfstring{mfr04}{mfr04}}
{\footnotesize\ttfamily integer, public module\+\_\+radlw\+\_\+kgb04\+::mfr04}

\mbox{\Hypertarget{namespacemodule__radlw__kgb04_a60ff35def4e526c7d9cf3ec88bdd4485_a60ff35def4e526c7d9cf3ec88bdd4485}\label{namespacemodule__radlw__kgb04_a60ff35def4e526c7d9cf3ec88bdd4485_a60ff35def4e526c7d9cf3ec88bdd4485}} 
\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}!maf04@{maf04}}
\index{maf04@{maf04}!module\_radlw\_kgb04@{module\_radlw\_kgb04}}
\doxyparagraph{\texorpdfstring{maf04}{maf04}}
{\footnotesize\ttfamily integer, public module\+\_\+radlw\+\_\+kgb04\+::maf04}

\mbox{\Hypertarget{namespacemodule__radlw__kgb04_a768f4447809fb11206dce383a121d595_a768f4447809fb11206dce383a121d595}\label{namespacemodule__radlw__kgb04_a768f4447809fb11206dce383a121d595_a768f4447809fb11206dce383a121d595}} 
\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}!mbf04@{mbf04}}
\index{mbf04@{mbf04}!module\_radlw\_kgb04@{module\_radlw\_kgb04}}
\doxyparagraph{\texorpdfstring{mbf04}{mbf04}}
{\footnotesize\ttfamily integer, public module\+\_\+radlw\+\_\+kgb04\+::mbf04}

\mbox{\Hypertarget{namespacemodule__radlw__kgb04_a816fd065291a92c13d026d38a708479b_a816fd065291a92c13d026d38a708479b}\label{namespacemodule__radlw__kgb04_a816fd065291a92c13d026d38a708479b_a816fd065291a92c13d026d38a708479b}} 
\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}!forref@{forref}}
\index{forref@{forref}!module\_radlw\_kgb04@{module\_radlw\_kgb04}}
\doxyparagraph{\texorpdfstring{forref}{forref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng04,\mbox{\hyperlink{namespacemodule__radlw__kgb04_ab6ae25b4a793bf78ccd504685d639039_ab6ae25b4a793bf78ccd504685d639039}{mfr04}}), public module\+\_\+radlw\+\_\+kgb04\+::forref}

\mbox{\Hypertarget{namespacemodule__radlw__kgb04_a8d73bb6971c872e15a24a81d3917167e_a8d73bb6971c872e15a24a81d3917167e}\label{namespacemodule__radlw__kgb04_a8d73bb6971c872e15a24a81d3917167e_a8d73bb6971c872e15a24a81d3917167e}} 
\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}!absa@{absa}}
\index{absa@{absa}!module\_radlw\_kgb04@{module\_radlw\_kgb04}}
\doxyparagraph{\texorpdfstring{absa}{absa}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng04,\mbox{\hyperlink{namespacemodule__radlw__kgb04_ac8c5caff005fd04d01009dd9e977d570_ac8c5caff005fd04d01009dd9e977d570}{msa04}}), public module\+\_\+radlw\+\_\+kgb04\+::absa}

\mbox{\Hypertarget{namespacemodule__radlw__kgb04_aaacc55911b42c67396b5cdc4318e0d5f_aaacc55911b42c67396b5cdc4318e0d5f}\label{namespacemodule__radlw__kgb04_aaacc55911b42c67396b5cdc4318e0d5f_aaacc55911b42c67396b5cdc4318e0d5f}} 
\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}!absb@{absb}}
\index{absb@{absb}!module\_radlw\_kgb04@{module\_radlw\_kgb04}}
\doxyparagraph{\texorpdfstring{absb}{absb}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng04,\mbox{\hyperlink{namespacemodule__radlw__kgb04_ab9ce0111a156f7b80f2adaa9f3e84a32_ab9ce0111a156f7b80f2adaa9f3e84a32}{msb04}}), public module\+\_\+radlw\+\_\+kgb04\+::absb}

\mbox{\Hypertarget{namespacemodule__radlw__kgb04_a696b91ef86ccbda17df10f770797cafa_a696b91ef86ccbda17df10f770797cafa}\label{namespacemodule__radlw__kgb04_a696b91ef86ccbda17df10f770797cafa_a696b91ef86ccbda17df10f770797cafa}} 
\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}!selfref@{selfref}}
\index{selfref@{selfref}!module\_radlw\_kgb04@{module\_radlw\_kgb04}}
\doxyparagraph{\texorpdfstring{selfref}{selfref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng04,\mbox{\hyperlink{namespacemodule__radlw__kgb04_a4b38dd1165aca80e19697df7ae74a27a_a4b38dd1165aca80e19697df7ae74a27a}{msf04}}), public module\+\_\+radlw\+\_\+kgb04\+::selfref}

\mbox{\Hypertarget{namespacemodule__radlw__kgb04_ace1d87742e2c543d9b0662e1c7d2b624_ace1d87742e2c543d9b0662e1c7d2b624}\label{namespacemodule__radlw__kgb04_ace1d87742e2c543d9b0662e1c7d2b624_ace1d87742e2c543d9b0662e1c7d2b624}} 
\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}!fracrefa@{fracrefa}}
\index{fracrefa@{fracrefa}!module\_radlw\_kgb04@{module\_radlw\_kgb04}}
\doxyparagraph{\texorpdfstring{fracrefa}{fracrefa}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng04,\mbox{\hyperlink{namespacemodule__radlw__kgb04_a60ff35def4e526c7d9cf3ec88bdd4485_a60ff35def4e526c7d9cf3ec88bdd4485}{maf04}}), public module\+\_\+radlw\+\_\+kgb04\+::fracrefa}

\mbox{\Hypertarget{namespacemodule__radlw__kgb04_ae8d5d56d09dfbe06d918c6b098e3fddf_ae8d5d56d09dfbe06d918c6b098e3fddf}\label{namespacemodule__radlw__kgb04_ae8d5d56d09dfbe06d918c6b098e3fddf_ae8d5d56d09dfbe06d918c6b098e3fddf}} 
\index{module\_radlw\_kgb04@{module\_radlw\_kgb04}!fracrefb@{fracrefb}}
\index{fracrefb@{fracrefb}!module\_radlw\_kgb04@{module\_radlw\_kgb04}}
\doxyparagraph{\texorpdfstring{fracrefb}{fracrefb}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng04,\mbox{\hyperlink{namespacemodule__radlw__kgb04_a768f4447809fb11206dce383a121d595_a768f4447809fb11206dce383a121d595}{mbf04}}), public module\+\_\+radlw\+\_\+kgb04\+::fracrefb}

