\hypertarget{namespacemodule__radlw__kgb13}{}\doxysubsection{module\+\_\+radlw\+\_\+kgb13 Module Reference}
\label{namespacemodule__radlw__kgb13}\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}}


This module sets up absorption coefficients for band 13\+: 2080-\/2250 cm-\/1 (low -\/ h2o, n2o; high -\/ /)  


\doxysubsubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer, public \mbox{\hyperlink{namespacemodule__radlw__kgb13_a07932a22e5f8de248765a207e170ce6f_a07932a22e5f8de248765a207e170ce6f}{msa13}}
\begin{DoxyCompactList}\small\item\em msa13=585 \end{DoxyCompactList}\end{DoxyCompactItemize}
\begin{Indent}\textbf{ minor gas mapping level\+:}\par
\begin{DoxyCompactItemize}
\item 
integer, public \mbox{\hyperlink{namespacemodule__radlw__kgb13_a7f88590d2a9fc392b04e89fd3d4bf2bf_a7f88590d2a9fc392b04e89fd3d4bf2bf}{msf13}}
\begin{DoxyCompactList}\small\item\em msf13=10 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radlw__kgb13_a158782c955af9f50aaefea2d49af97ce_a158782c955af9f50aaefea2d49af97ce}{mfr13}}
\begin{DoxyCompactList}\small\item\em mfr13=4 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radlw__kgb13_a1ddc025df872b12194b8c6344cc0204e_a1ddc025df872b12194b8c6344cc0204e}{maf13}}
\begin{DoxyCompactList}\small\item\em maf13=9 \end{DoxyCompactList}\item 
integer, public \mbox{\hyperlink{namespacemodule__radlw__kgb13_ae513ce55829a57a0dbda77f570e4a619_ae513ce55829a57a0dbda77f570e4a619}{mmo13}}
\begin{DoxyCompactList}\small\item\em mmo13=19 \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng13, \mbox{\hyperlink{namespacemodule__radlw__kgb13_a07932a22e5f8de248765a207e170ce6f_a07932a22e5f8de248765a207e170ce6f}{msa13}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb13_a22ce8d48ac3dceae1d52e80097fc2689_a22ce8d48ac3dceae1d52e80097fc2689}{absa}}
\begin{DoxyCompactList}\small\item\em the array absa(\+NG13,585) = ka(\+NG13,9,5,13) contains absorption coefs at the NG13=4 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 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 NG13=4, and tells us which g-\/interval the absorption coefficients are for. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng13, \mbox{\hyperlink{namespacemodule__radlw__kgb13_a158782c955af9f50aaefea2d49af97ce_a158782c955af9f50aaefea2d49af97ce}{mfr13}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb13_a93c6546ef5f8cbfc4f63de29e1ba2452_a93c6546ef5f8cbfc4f63de29e1ba2452}{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 NG13=4). \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng13, \mbox{\hyperlink{namespacemodule__radlw__kgb13_a7f88590d2a9fc392b04e89fd3d4bf2bf_a7f88590d2a9fc392b04e89fd3d4bf2bf}{msf13}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb13_ac8f58bba6aa4b72ffd01f78e60d0831f_ac8f58bba6aa4b72ffd01f78e60d0831f}{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 NG13=4). \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng13, \mbox{\hyperlink{namespacemodule__radlw__kgb13_a1ddc025df872b12194b8c6344cc0204e_a1ddc025df872b12194b8c6344cc0204e}{maf13}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb13_a82aed8a05cd528b287e336f7ff8fcebb_a82aed8a05cd528b287e336f7ff8fcebb}{fracrefa}}
\begin{DoxyCompactList}\small\item\em planck fraction mapping level \+: p=473.\+4280 mb, t = 259.\+83 k \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng13), public \mbox{\hyperlink{namespacemodule__radlw__kgb13_a92d45aee9dab62549ea8821eae7422dd_a92d45aee9dab62549ea8821eae7422dd}{fracrefb}}
\begin{DoxyCompactList}\small\item\em planck fraction mapping level \+: p=4.\+758820 mb, t = 250.\+85 k \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng13, \mbox{\hyperlink{namespacemodule__radlw__kgb13_a1ddc025df872b12194b8c6344cc0204e_a1ddc025df872b12194b8c6344cc0204e}{maf13}}, \mbox{\hyperlink{namespacemodule__radlw__kgb13_ae513ce55829a57a0dbda77f570e4a619_ae513ce55829a57a0dbda77f570e4a619}{mmo13}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb13_a523a0bc861ea861869f59b7bd007ff50_a523a0bc861ea861869f59b7bd007ff50}{ka\+\_\+mco2}}
\begin{DoxyCompactList}\small\item\em the array ka\+\_\+mxxx contains the absorption coefficient for a minor species at the NG13=4 chosen g-\/values for a reference pressure level below 100$\sim$ mb. 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 second index refers to temperature in 7.\+2 degree increments. for instance, jt = 1 refers to a temperature of 188.\+0, jt = 2 refers to 195.\+2, etc. the third index runs over the g-\/channel (1 to NG13=4). \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng13, \mbox{\hyperlink{namespacemodule__radlw__kgb13_a1ddc025df872b12194b8c6344cc0204e_a1ddc025df872b12194b8c6344cc0204e}{maf13}}, \mbox{\hyperlink{namespacemodule__radlw__kgb13_ae513ce55829a57a0dbda77f570e4a619_ae513ce55829a57a0dbda77f570e4a619}{mmo13}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb13_a0c2f5802f9471c35759cb673dbc8ca05_a0c2f5802f9471c35759cb673dbc8ca05}{ka\+\_\+mco}}
\begin{DoxyCompactList}\small\item\em lower -\/ co2, p = 706.\+2720 mb, t = 294.\+2 k upper -\/ cfc11, cfc12 original cfc11 is multiplied by 1.\+385 to account for the 1060-\/1107 $cm^{-1}$ band. \end{DoxyCompactList}\item 
real(kind=kind\+\_\+phys), dimension(ng13, \mbox{\hyperlink{namespacemodule__radlw__kgb13_ae513ce55829a57a0dbda77f570e4a619_ae513ce55829a57a0dbda77f570e4a619}{mmo13}}), public \mbox{\hyperlink{namespacemodule__radlw__kgb13_acc93fbdd9ce1062cbe9b01973d8ab229_acc93fbdd9ce1062cbe9b01973d8ab229}{kb\+\_\+mo3}}
\begin{DoxyCompactList}\small\item\em lower -\/ co2, p = 706.\+2720 mb, t = 294.\+2 k upper -\/ cfc11, cfc12 original cfc11 is multiplied by 1.\+385 to account for the 1060-\/1107 $cm^{-1}$ band. \end{DoxyCompactList}\end{DoxyCompactItemize}
\end{Indent}


\doxysubsubsection{Variable Documentation}
\mbox{\Hypertarget{namespacemodule__radlw__kgb13_a07932a22e5f8de248765a207e170ce6f_a07932a22e5f8de248765a207e170ce6f}\label{namespacemodule__radlw__kgb13_a07932a22e5f8de248765a207e170ce6f_a07932a22e5f8de248765a207e170ce6f}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!msa13@{msa13}}
\index{msa13@{msa13}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{msa13}{msa13}}
{\footnotesize\ttfamily integer, public module\+\_\+radlw\+\_\+kgb13\+::msa13}

\mbox{\Hypertarget{namespacemodule__radlw__kgb13_a7f88590d2a9fc392b04e89fd3d4bf2bf_a7f88590d2a9fc392b04e89fd3d4bf2bf}\label{namespacemodule__radlw__kgb13_a7f88590d2a9fc392b04e89fd3d4bf2bf_a7f88590d2a9fc392b04e89fd3d4bf2bf}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!msf13@{msf13}}
\index{msf13@{msf13}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{msf13}{msf13}}
{\footnotesize\ttfamily integer, public module\+\_\+radlw\+\_\+kgb13\+::msf13}

\mbox{\Hypertarget{namespacemodule__radlw__kgb13_a158782c955af9f50aaefea2d49af97ce_a158782c955af9f50aaefea2d49af97ce}\label{namespacemodule__radlw__kgb13_a158782c955af9f50aaefea2d49af97ce_a158782c955af9f50aaefea2d49af97ce}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!mfr13@{mfr13}}
\index{mfr13@{mfr13}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{mfr13}{mfr13}}
{\footnotesize\ttfamily integer, public module\+\_\+radlw\+\_\+kgb13\+::mfr13}

\mbox{\Hypertarget{namespacemodule__radlw__kgb13_a1ddc025df872b12194b8c6344cc0204e_a1ddc025df872b12194b8c6344cc0204e}\label{namespacemodule__radlw__kgb13_a1ddc025df872b12194b8c6344cc0204e_a1ddc025df872b12194b8c6344cc0204e}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!maf13@{maf13}}
\index{maf13@{maf13}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{maf13}{maf13}}
{\footnotesize\ttfamily integer, public module\+\_\+radlw\+\_\+kgb13\+::maf13}

\mbox{\Hypertarget{namespacemodule__radlw__kgb13_ae513ce55829a57a0dbda77f570e4a619_ae513ce55829a57a0dbda77f570e4a619}\label{namespacemodule__radlw__kgb13_ae513ce55829a57a0dbda77f570e4a619_ae513ce55829a57a0dbda77f570e4a619}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!mmo13@{mmo13}}
\index{mmo13@{mmo13}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{mmo13}{mmo13}}
{\footnotesize\ttfamily integer, public module\+\_\+radlw\+\_\+kgb13\+::mmo13}

\mbox{\Hypertarget{namespacemodule__radlw__kgb13_a22ce8d48ac3dceae1d52e80097fc2689_a22ce8d48ac3dceae1d52e80097fc2689}\label{namespacemodule__radlw__kgb13_a22ce8d48ac3dceae1d52e80097fc2689_a22ce8d48ac3dceae1d52e80097fc2689}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!absa@{absa}}
\index{absa@{absa}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{absa}{absa}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng13,\mbox{\hyperlink{namespacemodule__radlw__kgb13_a07932a22e5f8de248765a207e170ce6f_a07932a22e5f8de248765a207e170ce6f}{msa13}}), public module\+\_\+radlw\+\_\+kgb13\+::absa}

\mbox{\Hypertarget{namespacemodule__radlw__kgb13_a93c6546ef5f8cbfc4f63de29e1ba2452_a93c6546ef5f8cbfc4f63de29e1ba2452}\label{namespacemodule__radlw__kgb13_a93c6546ef5f8cbfc4f63de29e1ba2452_a93c6546ef5f8cbfc4f63de29e1ba2452}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!forref@{forref}}
\index{forref@{forref}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{forref}{forref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng13,\mbox{\hyperlink{namespacemodule__radlw__kgb13_a158782c955af9f50aaefea2d49af97ce_a158782c955af9f50aaefea2d49af97ce}{mfr13}}), public module\+\_\+radlw\+\_\+kgb13\+::forref}

\mbox{\Hypertarget{namespacemodule__radlw__kgb13_ac8f58bba6aa4b72ffd01f78e60d0831f_ac8f58bba6aa4b72ffd01f78e60d0831f}\label{namespacemodule__radlw__kgb13_ac8f58bba6aa4b72ffd01f78e60d0831f_ac8f58bba6aa4b72ffd01f78e60d0831f}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!selfref@{selfref}}
\index{selfref@{selfref}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{selfref}{selfref}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng13,\mbox{\hyperlink{namespacemodule__radlw__kgb13_a7f88590d2a9fc392b04e89fd3d4bf2bf_a7f88590d2a9fc392b04e89fd3d4bf2bf}{msf13}}), public module\+\_\+radlw\+\_\+kgb13\+::selfref}

\mbox{\Hypertarget{namespacemodule__radlw__kgb13_a82aed8a05cd528b287e336f7ff8fcebb_a82aed8a05cd528b287e336f7ff8fcebb}\label{namespacemodule__radlw__kgb13_a82aed8a05cd528b287e336f7ff8fcebb_a82aed8a05cd528b287e336f7ff8fcebb}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!fracrefa@{fracrefa}}
\index{fracrefa@{fracrefa}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{fracrefa}{fracrefa}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng13,\mbox{\hyperlink{namespacemodule__radlw__kgb13_a1ddc025df872b12194b8c6344cc0204e_a1ddc025df872b12194b8c6344cc0204e}{maf13}}), public module\+\_\+radlw\+\_\+kgb13\+::fracrefa}

\mbox{\Hypertarget{namespacemodule__radlw__kgb13_a92d45aee9dab62549ea8821eae7422dd_a92d45aee9dab62549ea8821eae7422dd}\label{namespacemodule__radlw__kgb13_a92d45aee9dab62549ea8821eae7422dd_a92d45aee9dab62549ea8821eae7422dd}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!fracrefb@{fracrefb}}
\index{fracrefb@{fracrefb}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{fracrefb}{fracrefb}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng13), public module\+\_\+radlw\+\_\+kgb13\+::fracrefb}

\mbox{\Hypertarget{namespacemodule__radlw__kgb13_a523a0bc861ea861869f59b7bd007ff50_a523a0bc861ea861869f59b7bd007ff50}\label{namespacemodule__radlw__kgb13_a523a0bc861ea861869f59b7bd007ff50_a523a0bc861ea861869f59b7bd007ff50}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!ka\_mco2@{ka\_mco2}}
\index{ka\_mco2@{ka\_mco2}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{ka\_mco2}{ka\_mco2}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng13,\mbox{\hyperlink{namespacemodule__radlw__kgb13_a1ddc025df872b12194b8c6344cc0204e_a1ddc025df872b12194b8c6344cc0204e}{maf13}},\mbox{\hyperlink{namespacemodule__radlw__kgb13_ae513ce55829a57a0dbda77f570e4a619_ae513ce55829a57a0dbda77f570e4a619}{mmo13}}), public module\+\_\+radlw\+\_\+kgb13\+::ka\+\_\+mco2}

\mbox{\Hypertarget{namespacemodule__radlw__kgb13_a0c2f5802f9471c35759cb673dbc8ca05_a0c2f5802f9471c35759cb673dbc8ca05}\label{namespacemodule__radlw__kgb13_a0c2f5802f9471c35759cb673dbc8ca05_a0c2f5802f9471c35759cb673dbc8ca05}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!ka\_mco@{ka\_mco}}
\index{ka\_mco@{ka\_mco}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{ka\_mco}{ka\_mco}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng13,\mbox{\hyperlink{namespacemodule__radlw__kgb13_a1ddc025df872b12194b8c6344cc0204e_a1ddc025df872b12194b8c6344cc0204e}{maf13}},\mbox{\hyperlink{namespacemodule__radlw__kgb13_ae513ce55829a57a0dbda77f570e4a619_ae513ce55829a57a0dbda77f570e4a619}{mmo13}}), public module\+\_\+radlw\+\_\+kgb13\+::ka\+\_\+mco}

\mbox{\Hypertarget{namespacemodule__radlw__kgb13_acc93fbdd9ce1062cbe9b01973d8ab229_acc93fbdd9ce1062cbe9b01973d8ab229}\label{namespacemodule__radlw__kgb13_acc93fbdd9ce1062cbe9b01973d8ab229_acc93fbdd9ce1062cbe9b01973d8ab229}} 
\index{module\_radlw\_kgb13@{module\_radlw\_kgb13}!kb\_mo3@{kb\_mo3}}
\index{kb\_mo3@{kb\_mo3}!module\_radlw\_kgb13@{module\_radlw\_kgb13}}
\doxyparagraph{\texorpdfstring{kb\_mo3}{kb\_mo3}}
{\footnotesize\ttfamily real (kind=kind\+\_\+phys), dimension(ng13,\mbox{\hyperlink{namespacemodule__radlw__kgb13_ae513ce55829a57a0dbda77f570e4a619_ae513ce55829a57a0dbda77f570e4a619}{mmo13}}), public module\+\_\+radlw\+\_\+kgb13\+::kb\+\_\+mo3}

