Functions/Subroutines
subroutine, public	get_solar_band_fraction_irrad (fractional_irradiance)

subroutine, public	get_ref_total_solar_irrad (tsi)

subroutine, public	get_ref_solar_band_irrad (band_irrad)

subroutine, public	get_number_sw_bands (number_of_bands)

subroutine, public	get_lw_spectral_boundaries (low_boundaries, high_boundaries, units)

subroutine, public	get_sw_spectral_boundaries (low_boundaries, high_boundaries, units)

integer function, public	rad_gas_index (gasname)

subroutine, public	radconstants_init ()

subroutine, public	get_true_ref_solar_band_irrad (solfrac_true_out)

Variables
integer, parameter, public	nswbands = 14

integer, parameter, public	nbndsw = 14

real(r8), dimension(nbndsw), parameter	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	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	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	idx_sw_diag = 10

integer, parameter, public	idx_nir_diag = 8

integer, parameter, public	idx_uv_diag = 11

integer, parameter, public	rrtmg_sw_cloudsim_band = 9

integer, parameter, public	nrh = 1000

integer, parameter, public	idx_lw_diag = 7

integer, parameter, public	rrtmg_lw_cloudsim_band = 6

integer, parameter, public	nlwbands = 16

integer, parameter, public	nbndlw = 16

real(r8), dimension(nlwbands), parameter	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	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	idx_lw_h2o_nonwnd =1

integer, parameter, public	idx_lw_h2o_window =2

integer, parameter, public	idx_lw_0500_0650 =3

integer, parameter, public	idx_lw_0650_0800 =4

integer, parameter, public	idx_lw_0800_1000 =5

integer, parameter, public	idx_lw_1000_1200 =6

integer, parameter, public	idx_lw_1200_2000 =7

integer, parameter, public	gasnamelength = 5

integer, parameter, public	nradgas = 8

character(len=gasnamelength), dimension(nradgas), parameter, public	gaslist = (/'H2O ','O3 ', 'O2 ', 'CO2 ', 'N2O ', 'CH4 ', 'CFC11', 'CFC12'/)

real(r8), dimension(nradgas), parameter, public	minmmr = epsilon(1._r8)

integer, parameter, public	ot_length = 32

integer, dimension(nswbands), parameter, public	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	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	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	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	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	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	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)	solfrac_true

Function/Subroutine Documentation

◆ get_lw_spectral_boundaries()

subroutine public radconstants::get_lw_spectral_boundaries	(	real(r8), dimension(nlwbands), intent(out)	low_boundaries,
		real(r8), dimension(nlwbands), intent(out)	high_boundaries,
		character(*), intent(in)	units
	)

◆ get_number_sw_bands()

subroutine public radconstants::get_number_sw_bands ( integer, intent(out) number_of_bands )

Here is the caller graph for this function:

◆ get_ref_solar_band_irrad()

subroutine public radconstants::get_ref_solar_band_irrad ( real(r8), dimension(nswbands), intent(out) band_irrad )

Here is the caller graph for this function:

◆ get_ref_total_solar_irrad()

subroutine public radconstants::get_ref_total_solar_irrad ( real(r8), intent(out) tsi )

Here is the caller graph for this function:

◆ get_solar_band_fraction_irrad()

subroutine public radconstants::get_solar_band_fraction_irrad ( real(r8), dimension(1:nswbands), intent(out) fractional_irradiance )

Here is the caller graph for this function:

◆ get_sw_spectral_boundaries()

subroutine public radconstants::get_sw_spectral_boundaries	(	real(r8), dimension(nswbands), intent(out)	low_boundaries,
		real(r8), dimension(nswbands), intent(out)	high_boundaries,
		character(*), intent(in)	units
	)

Here is the caller graph for this function:

◆ get_true_ref_solar_band_irrad()

subroutine, public radconstants::get_true_ref_solar_band_irrad ( real(r8), dimension(nswbands), intent(out) solfrac_true_out )

Here is the call graph for this function:

◆ rad_gas_index()

integer function public radconstants::rad_gas_index ( character(len=*), intent(in) gasname )

Here is the caller graph for this function:

◆ radconstants_init()

subroutine, public radconstants::radconstants_init ( )

Here is the caller graph for this function:

Variable Documentation

◆ frcsol

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/)

◆ gaslist

character(len=gasnamelength), dimension(nradgas), parameter, public radconstants::gaslist = (/'H2O ','O3 ', 'O2 ', 'CO2 ', 'N2O ', 'CH4 ', 'CFC11', 'CFC12'/)

◆ gasnamelength

integer parameter public radconstants::gasnamelength = 5

◆ idx_lw_0500_0650

integer parameter public radconstants::idx_lw_0500_0650 =3

◆ idx_lw_0650_0800

integer parameter public radconstants::idx_lw_0650_0800 =4

◆ idx_lw_0800_1000

integer parameter public radconstants::idx_lw_0800_1000 =5

◆ idx_lw_1000_1200

integer parameter public radconstants::idx_lw_1000_1200 =6

◆ idx_lw_1200_2000

integer parameter public radconstants::idx_lw_1200_2000 =7

◆ idx_lw_diag

integer parameter public radconstants::idx_lw_diag = 7

◆ idx_lw_h2o_nonwnd

integer parameter public radconstants::idx_lw_h2o_nonwnd =1

◆ idx_lw_h2o_window

integer parameter public radconstants::idx_lw_h2o_window =2

◆ idx_nir_diag

integer parameter public radconstants::idx_nir_diag = 8

◆ idx_sw_diag

integer parameter public radconstants::idx_sw_diag = 10

◆ idx_uv_diag

integer parameter public radconstants::idx_uv_diag = 11

◆ indxsl

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/)

◆ minmmr

real(r8), dimension(nradgas), parameter, public radconstants::minmmr = epsilon(1._r8)

◆ nbndlw

integer, parameter, public radconstants::nbndlw = 16

◆ nbndsw

integer, parameter, public radconstants::nbndsw = 14

◆ nlwbands

integer parameter public radconstants::nlwbands = 16

◆ nradgas

integer parameter public radconstants::nradgas = 8

◆ nrh

integer parameter public radconstants::nrh = 1000

◆ nswbands

integer parameter public radconstants::nswbands = 14

◆ ot_length

integer parameter public radconstants::ot_length = 32

◆ pco2

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/)

◆ ph2o

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/)

◆ po2

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/)

◆ rrtmg_lw_cloudsim_band

integer, parameter, public radconstants::rrtmg_lw_cloudsim_band = 6

◆ rrtmg_sw_cloudsim_band

integer, parameter, public radconstants::rrtmg_sw_cloudsim_band = 9

◆ solar_ref_band_irradiance

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 /)

private

◆ solfrac_true

real(r8), dimension(nswbands) radconstants::solfrac_true

private

◆ wavenum_high

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/)

private

◆ wavenum_low

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/)

private

◆ wavenumber1_longwave

real(r8), dimension(nlwbands), parameter, private 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 /)

private

◆ wavenumber2_longwave

real(r8), dimension(nlwbands), parameter, private 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 /)

private

◆ wavmax

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/)

private

◆ wavmin

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/)

private

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ get_lw_spectral_boundaries()

◆ get_number_sw_bands()

◆ get_ref_solar_band_irrad()

◆ get_ref_total_solar_irrad()

◆ get_solar_band_fraction_irrad()

◆ get_sw_spectral_boundaries()

◆ get_true_ref_solar_band_irrad()

◆ rad_gas_index()

◆ radconstants_init()

Variable Documentation

◆ frcsol

◆ gaslist

◆ gasnamelength

◆ idx_lw_0500_0650

◆ idx_lw_0650_0800

◆ idx_lw_0800_1000

◆ idx_lw_1000_1200

◆ idx_lw_1200_2000

◆ idx_lw_diag

◆ idx_lw_h2o_nonwnd

◆ idx_lw_h2o_window

◆ idx_nir_diag

◆ idx_sw_diag

◆ idx_uv_diag

◆ indxsl

◆ minmmr

◆ nbndlw

◆ nbndsw

◆ nlwbands

◆ nradgas

◆ nrh

◆ nswbands

◆ ot_length

◆ pco2

◆ ph2o

◆ po2

◆ rrtmg_lw_cloudsim_band

◆ rrtmg_sw_cloudsim_band

◆ solar_ref_band_irradiance

◆ solfrac_true

◆ wavenum_high

◆ wavenum_low

◆ wavenumber1_longwave

◆ wavenumber2_longwave

◆ wavmax

◆ wavmin