This module sets up absorption coefficients for band 12: 1800-2080 cm-1 (low - h2o, co2; high - /)

Variables
integer, public	msa12
	msa12=585

minor gas mapping level:
integer, public	msf12
	msf12=10

integer, public	mfr12
	mfr12=4

integer, public	maf12
	maf12=9

real(kind=kind_phys), dimension(ng12, msa12), public	absa
	the array absa(NG12,585) = ka(NG12,9,5,13) contains absorption coefs at the NG12=8 g-intervals for a range of pressure levels > ~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)*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 NG12=8, and tells us which g-interval the absorption coefficients are for.

real(kind=kind_phys), dimension(ng12, mfr12), 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 NG12=8).

real(kind=kind_phys), dimension(ng12, msf12), 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 NG12=8).

real(kind=kind_phys), dimension(ng12, maf12), public	fracrefa
	planck fraction mapping level : p = 174.1640 mbar, t= 215.78 k

Variables