radconstants.F90 File Reference

Modules
module	radconstants

Functions/Subroutines
subroutine, public	radconstants::get_solar_band_fraction_irrad (fractional_irradiance)
subroutine, public	radconstants::get_ref_total_solar_irrad (tsi)
subroutine, public	radconstants::get_ref_solar_band_irrad (band_irrad)
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)
integer function, public	radconstants::rad_gas_index (gasname)

Variables
integer, parameter, public	radconstants::nswbands = 14
integer, parameter, public	radconstants::nbndsw = 14
real(r8), dimension(nbndsw), parameter	radconstants::wavenum_low = (/2600._r8, 3250._r8, 4000._r8, 4650._r8, 5150._r8, 6150._r8, 7700._r8, 8050._r8,12850._r8,16000._r8,22650._r8,29000._r8,38000._r8, 820._r8/)
real(r8), dimension(nbndsw), parameter	radconstants::wavenum_high = (/3250._r8, 4000._r8, 4650._r8, 5150._r8, 6150._r8, 7700._r8, 8050._r8, 12850._r8,16000._r8,22650._r8,29000._r8,38000._r8,50000._r8, 2600._r8/)
real(r8), dimension(nbndsw), parameter	radconstants::solar_ref_band_irradiance = (/ 12.11_r8, 20.3600000000001_r8, 23.73_r8, 22.43_r8, 55.63_r8, 102.93_r8, 24.29_r8, 345.74_r8, 218.19_r8, 347.20_r8, 129.49_r8, 50.15_r8, 3.08_r8, 12.89_r8 /)
integer, parameter, public	radconstants::idx_sw_diag = 10
integer, parameter, public	radconstants::idx_nir_diag = 8
integer, parameter, public	radconstants::idx_uv_diag = 11
integer, parameter, public	radconstants::rrtmg_sw_cloudsim_band = 9
integer, parameter, public	radconstants::nrh = 1000
integer, parameter, public	radconstants::idx_lw_diag = 7
integer, parameter, public	radconstants::rrtmg_lw_cloudsim_band = 6
integer, parameter, public	radconstants::nlwbands = 16
integer, parameter, public	radconstants::nbndlw = 16
real(r8), dimension(nlwbands), parameter	radconstants::wavenumber1_longwave = (/ 10._r8, 350._r8, 500._r8, 630._r8, 700._r8, 820._r8, 980._r8, 1080._r8, 1180._r8, 1390._r8, 1480._r8, 1800._r8, 2080._r8, 2250._r8, 2390._r8, 2600._r8 /)
real(r8), dimension(nlwbands), parameter	radconstants::wavenumber2_longwave = (/ 350._r8, 500._r8, 630._r8, 700._r8, 820._r8, 980._r8, 1080._r8, 1180._r8, 1390._r8, 1480._r8, 1800._r8, 2080._r8, 2250._r8, 2390._r8, 2600._r8, 3250._r8 /)
integer, parameter, public	radconstants::idx_lw_h2o_nonwnd =1
integer, parameter, public	radconstants::idx_lw_h2o_window =2
integer, parameter, public	radconstants::idx_lw_0500_0650 =3
integer, parameter, public	radconstants::idx_lw_0650_0800 =4
integer, parameter, public	radconstants::idx_lw_0800_1000 =5
integer, parameter, public	radconstants::idx_lw_1000_1200 =6
integer, parameter, public	radconstants::idx_lw_1200_2000 =7
integer, parameter, public	radconstants::gasnamelength = 5
integer, parameter, public	radconstants::nradgas = 8
character(len=gasnamelength), dimension(nradgas), parameter, public	radconstants::gaslist = (/'H2O ','O3 ', 'O2 ', 'CO2 ', 'N2O ', 'CH4 ', 'CFC11', 'CFC12'/)
real(r8), dimension(nradgas), parameter, public	radconstants::minmmr = epsilon(1._r8)
integer, parameter, public	radconstants::ot_length = 32