This module sets up absorption coefficients for band 03: 500-630 cm-1 (low - h2o, co2; high - h2o, co2)

Variables
integer, public	msa03
	msa03=585

integer, public	msb03
	msb03=1175

integer, public	msf03
	msf03=10

integer, public	mfr03
	mfr03=4

integer, public	maf03
	maf03=9

integer, public	mbf03
	mbf03=5

integer, public	mmn03
	mmn03=19

real(kind=kind_phys), dimension(ng03, mfr03), 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 NG03=16).

real(kind=kind_phys), dimension(ng03, msa03), public	absa
	the array absa(NG03,585) = ka(NG03,9,5,13) contains absorption coefs at the NG03=16 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 water vapor to co2 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 NG03=16, and tells us which g-interval the absorption coefficients are for.

real(kind=kind_phys), dimension(ng03, msb03), public	absb
	the array absb(NG03,1175) = kb(NG03,5,5,13:59) contains absorption coefs at the NG03=16 g-intervals for a range of pressure levels < ~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*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 NG03=16, and tells us which g-interval the absorption coefficients are for.

real(kind=kind_phys), dimension(ng03, msf03), 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 NG03=16).

real(kind=kind_phys), dimension(ng03, maf03), public	fracrefa
	planck fraction mapping level: p=212.7250 mbar, t = 223.06 k

real(kind=kind_phys), dimension(ng03, mbf03), public	fracrefb
	planck fraction mapping level: p = 95.8 mbar, t = 215.7 k

real(kind=kind_phys), dimension(ng03, maf03, mmn03), public	ka_mn2o
	the array ka_mxxx(NG03,9,19) contains the absorption coefficient for a minor species at the NG03=16 chosen g-values for a reference pressure level below 100~ 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) * 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 NG03=16).

real(kind=kind_phys), dimension(ng03, mbf03, mmn03), public	kb_mn2o
	the array kb_mxxx contains the absorption coefficient for a minor species at the NG03=16 chosen g-values for a reference pressure level above 100~ mb. the first index in the array, js, runs from 1 to 10, and corresponds to different gas column amounts 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 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 NG03=16).

Variables