This module sets up absorption coeffients for band 25: 16000-22650 cm-1 (low - h2o; high - nothing)

Variables
integer, public	msa25
	msa25=65

Chou(1999) coefficients for cloud rain particles
real(kind=kind_phys), dimension(msa25, ng25), public	absa
	the array absa(65,NG25) (ka(5,13,NG25)) 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(ng25), public	rayl
	rayleigh extinction coefficient

real(kind=kind_phys), dimension(ng25), public	abso3a
	o3

real(kind=kind_phys), dimension(ng25), public	abso3b
	o3

Variables