This module sets up absorption coeffients for band 21: 6150-7700 cm-1 (low - h2o,co2; high - h2o,co2)

Variables
integer, public	msa21
	msa21=585

Chou(1999) coefficients for cloud rain particles
integer, public	msb21
	msb21=1175

integer, public	msf21
	msf21=10

integer, public	mfr21
	mfr21=4

real(kind=kind_phys), dimension(mfr21, ng21), public	forref
	optical depth coefficients

real(kind=kind_phys), dimension(msa21, ng21), public	absa
	the array absa(585,NG21) (ka((9,5,13,NG21)) contains absorption coefs at the 16 chosen g-values for a range of pressure levels> ~100mb, temperatures, and binary species parameters (see taumol.f for definition). the first index in the array, js, runs from 1 to 9, and corresponds to different values of the binary species parameter. for instance, js=1 refers to dry air, js = 2 corresponds to the paramter value 1/8, js = 3 corresponds to the parameter value 2/8, etc. the second index in the array, jt, which runs from 1 to 5, corresponds to different temperatures. more specifically, jt = 3 means that the data are for the reference temperature tref for this pressure level, jt = 2 refers to tref-15, jt = 1 is for tref-30, jt = 4 is for tref+15, and jt = 5 is for tref+30. the third index, jp, runs from 1 to 13 and refers to the jpth reference pressure level (see taumol.f for these levels in mb). the fourth index, ig, goes from 1 to 10, and indicates which g-interval the absorption coefficients are for.

real(kind=kind_phys), dimension(msb21, ng21), public	absb
	the array absb(1175,10) (kb(5,5,13:59,10)) contains absorption coefs at the 16 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 = 3 means that the data are for the reference temperature tref for this pressure level, jt = 2 refers to the temperature tref-15, jt = 1 is for tref-30, jt = 4 is for tref+15, and jt = 5 is for tref+30. 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 10, and tells us which g-interval the absorption coefficients are for.

real(kind=kind_phys), dimension(msf21, ng21), 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 10).

real(kind=kind_phys), parameter, public	rayl = 9.41e-09
	rayleigh extinction coefficient at \(v=6925cm^{-1}\)

Variables