radconstants.F90 File Reference

Modules
module	radconstants

Functions/Subroutines
subroutine, public	radconstants::get_number_sw_bands (number_of_bands)
subroutine, public	radconstants::get_lw_spectral_boundaries (low_boundaries, high_boundaries, units)
subroutine, public	radconstants::get_sw_spectral_boundaries (low_boundaries, high_boundaries, units)
subroutine, public	radconstants::get_ref_solar_band_irrad (band_irrad)
subroutine, public	radconstants::radconstants_init ()
subroutine, public	radconstants::get_true_ref_solar_band_irrad (solfrac_true_out)
subroutine, public	radconstants::get_ref_total_solar_irrad (tsi)
subroutine, public	radconstants::get_solar_band_fraction_irrad (fractional_irradiance)
integer function, public	radconstants::rad_gas_index (gasname)

Variables
integer, dimension(nswbands), parameter, public	radconstants::indxsl = (/ 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4/)
real(r8), dimension(nswbands), parameter	radconstants::wavmin = (/ 0.200_r8, 0.245_r8, 0.265_r8, 0.275_r8, 0.285_r8, 0.295_r8, 0.305_r8, 0.350_r8, 0.640_r8, 0.700_r8, 0.700_r8, 0.700_r8, 0.700_r8, 0.700_r8, 0.700_r8, 0.700_r8, 2.630_r8, 4.160_r8, 4.160_r8/)
real(r8), dimension(nswbands), parameter	radconstants::wavmax = (/ 0.245_r8, 0.265_r8, 0.275_r8, 0.285_r8, 0.295_r8, 0.305_r8, 0.350_r8, 0.640_r8, 0.700_r8, 5.000_r8, 5.000_r8, 5.000_r8, 5.000_r8, 5.000_r8, 5.000_r8, 5.000_r8, 2.860_r8, 4.550_r8, 4.550_r8/)
real(r8), dimension(nswbands), parameter, public	radconstants::frcsol = (/ .001488_r8, .001389_r8, .001290_r8, .001686_r8, .002877_r8, .003869_r8, .026336_r8, .360739_r8, .065392_r8, .526861_r8, .526861_r8, .526861_r8, .526861_r8, .526861_r8, .526861_r8, .526861_r8, .006239_r8, .001834_r8, .001834_r8/)
real(r8), dimension(nswbands), parameter, public	radconstants::ph2o = (/ .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .505_r8, .210_r8, .120_r8, .070_r8, .048_r8, .029_r8, .018_r8, .000_r8, .000_r8, .000_r8/)
real(r8), dimension(nswbands), parameter, public	radconstants::pco2 = (/ .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, 1.000_r8, .640_r8, .360_r8/)
real(r8), dimension(nswbands), parameter, public	radconstants::po2 = (/ .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, 1.000_r8, 1.000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8, .000_r8/)
real(r8), dimension(nswbands)	radconstants::solfrac_true