This module sets up absorption coefficients for band 08: 1080-1180 cm-1 (low - h2o; high - o3)

Variables
integer, public	msa08
	msa08=65

minor gas mapping level:
integer, public	msb08
	msb08=235

integer, public	msf08
	msf08=10

integer, public	mfr08
	mfr08=4

integer, public	mmc08
	mmc08=19

real(kind=kind_phys), dimension(ng08, mfr08), public	forref
	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 NG08=8).

real(kind=kind_phys), dimension(ng08, msa08), public	absa
	the array absa(NG08,65) = ka(NG08,5,13) contains absorption coefs at the NG08=8 g-intervals for a range of pressure levels > ~100mb, temperatures. the first 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 second index, jp, runs from 1 to 13 and refers to the corresponding pressure level in pref (e.g. jp = 1 is for a pressure of 1053.63 mb). the third index, ig, goes from 1 to NG08=8, and tells us which g-interval the absorption coefficients are for.

real(kind=kind_phys), dimension(ng08, msb08), public	absb
	the array absb(NG08,235) = kb(NG08,5,13:59) contains absorption coefs at the NG08=8 chosen g-values for a range of pressure levels < ~100mb and temperatures. the first 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 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 NG08=8, and tells us which g-interval the absorption coefficients are for.

real(kind=kind_phys), dimension(ng08, msf08), public	selfref
	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 NG08=8).

real(kind=kind_phys), dimension(ng08), public	fracrefa
	planck fraction mapping level : p=473.4280 mb, t = 259.83 k

real(kind=kind_phys), dimension(ng08), public	fracrefb
	planck fraction mapping level : p=95.5835 mb, t= 215.7 k

real(kind=kind_phys), dimension(ng08, mmc08), public	ka_mo3
	minor gas mapping level:lower - o3, p = 317.348 mb, t = 240.77 k

real(kind=kind_phys), dimension(ng08, mmc08), public	ka_mco2
	minor gas mapping level:lower - co2, p = 1053.63 mb, t = 294.2 k

real(kind=kind_phys), dimension(ng08, mmc08), public	kb_mco2
	minor gas mapping level:upper - co2, p = 35.1632 mb, t = 223.28 k

real(kind=kind_phys), dimension(ng08), public	cfc12
	minor gas mapping level:lower - cfc12

real(kind=kind_phys), dimension(ng08, mmc08), public	ka_mn2o
	minor gas mapping level:lower - n2o, p = 706.2720 mb, t= 278.94 k

real(kind=kind_phys), dimension(ng08, mmc08), public	kb_mn2o
	minor gas mapping level:upper - n2o, p = 8.716e-2 mb, t = 226.03 k

real(kind=kind_phys), dimension(ng08), public	cfc22adj
	original cfc22 is multiplied by 1.485 to account for the 780-850 cm-1 and 1290-1335 cm-1 bands.

Variables