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

Variables
integer, public	msa04
	msa04=585

integer, public	msb04
	msb04=1175

integer, public	msf04
	msf04=10

integer, public	mfr04
	mfr04=4

integer, public	maf04
	maf04=9

integer, public	mbf04
	mbf04=5

real(kind=kind_phys), dimension(ng04, mfr04), 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 NG04=14).

real(kind=kind_phys), dimension(ng04, msa04), public	absa
	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 > ~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)*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.

real(kind=kind_phys), dimension(ng04, msb04), public	absb
	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 < ~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 NG04=14, and tells us which g-interval the absorption coefficients are for.

real(kind=kind_phys), dimension(ng04, msf04), 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 NG04=14).

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

real(kind=kind_phys), dimension(ng04, mbf04), public	fracrefb
	planck fraction mapping level : p = 95.58350 mb, t = 215.70 k

Variables