This module sets up absorption coeffients for band 28: 38000-50000 cm-1 (low - o3,o2; high - o3,o2)

Variables
integer, public	msa28
	msa28=585

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

real(kind=kind_phys), dimension(msa28, ng28), public	absa
	the array absa(585,NG28) (ka((9,5,13,NG28)) 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 6, and indicates which g-interval the absorption coefficients are for.

real(kind=kind_phys), dimension(msb28, ng28), public	absb
	the array absb(1175,6) (kb(5,5,13:59,6)) 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 6, and tells us which g-interval the absorption coefficients are for.

real(kind=kind_phys), parameter, public	rayl = 2.02e-05
	rayleigh extinction coefficient

Variables