NESDIS_SnowEM_Parameters.f90 File Reference

Go to the source code of this file.

Modules
module	nesdis_snowem_parameters

Variables
character(*), parameter	nesdis_snowem_parameters::module_version_id = '$Id: NESDIS_SnowEM_Parameters.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $'
integer, parameter, public	nesdis_snowem_parameters::invalid_snow_type = -999
integer, parameter, public	nesdis_snowem_parameters::wet_snow = 1
integer, parameter, public	nesdis_snowem_parameters::grass_after_snow = 2
integer, parameter, public	nesdis_snowem_parameters::rs_snow_a = 3
integer, parameter, public	nesdis_snowem_parameters::powder_snow = 4
integer, parameter, public	nesdis_snowem_parameters::rs_snow_b = 5
integer, parameter, public	nesdis_snowem_parameters::rs_snow_c = 6
integer, parameter, public	nesdis_snowem_parameters::rs_snow_d = 7
integer, parameter, public	nesdis_snowem_parameters::thin_crust_snow = 8
integer, parameter, public	nesdis_snowem_parameters::rs_snow_e = 9
integer, parameter, public	nesdis_snowem_parameters::bottom_crust_snow_a = 10
integer, parameter, public	nesdis_snowem_parameters::shallow_snow = 11
integer, parameter, public	nesdis_snowem_parameters::deep_snow = 12
integer, parameter, public	nesdis_snowem_parameters::crust_snow = 13
integer, parameter, public	nesdis_snowem_parameters::medium_snow = 14
integer, parameter, public	nesdis_snowem_parameters::bottom_crust_snow_b = 15
integer, parameter, public	nesdis_snowem_parameters::thick_crust_snow = 16
integer, parameter, public	nesdis_snowem_parameters::n_frequency = 10
integer, parameter, public	nesdis_snowem_parameters::n_freq_amsre = 7
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::frequency_default = (/ 4.9_fp, 6.93_fp, 10.65_fp, 18.7_fp,23.8_fp, 31.4_fp, 50.3_fp, 52.5_fp, 89.0_fp,150._fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::wet_snow_emiss = (/0.87_fp,0.89_fp,0.91_fp,0.93_fp,0.94_fp, 0.94_fp,0.94_fp,0.93_fp,0.92_fp,0.90_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::grass_after_snow_emiss = (/0.91_fp,0.91_fp,0.92_fp,0.91_fp, 0.90_fp,0.90_fp,0.91_fp,0.91_fp, 0.91_fp,0.86_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::rs_snow_a_emiss = (/0.90_fp,0.89_fp,0.88_fp,0.87_fp, 0.86_fp, 0.86_fp,0.85_fp,0.85_fp,0.82_fp,0.82_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::powder_snow_emiss = (/0.91_fp,0.91_fp,0.93_fp,0.93_fp,0.93_fp, 0.93_fp,0.89_fp,0.88_fp,0.79_fp,0.79_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::rs_snow_b_emiss = (/0.90_fp,0.89_fp,0.88_fp,0.85_fp,0.84_fp, 0.83_fp,0.83_fp,0.82_fp,0.79_fp,0.73_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::rs_snow_c_emiss = (/0.90_fp,0.89_fp,0.86_fp,0.82_fp,0.80_fp, 0.79_fp,0.78_fp,0.78_fp,0.77_fp,0.77_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::rs_snow_d_emiss = (/0.88_fp,0.86_fp,0.85_fp,0.80_fp,0.78_fp, 0.77_fp,0.77_fp,0.76_fp,0.72_fp,0.72_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::thin_crust_snow_emiss = (/0.93_fp,0.94_fp,0.96_fp,0.96_fp,0.95_fp, 0.93_fp,0.87_fp,0.86_fp,0.74_fp,0.65_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::rs_snow_e_emiss = (/0.87_fp,0.86_fp,0.84_fp,0.80_fp,0.76_fp, 0.76_fp,0.75_fp,0.75_fp,0.70_fp,0.69_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::bottom_crust_snow_a_emiss = (/0.87_fp,0.86_fp,0.83_fp,0.77_fp, 0.73_fp,0.68_fp,0.66_fp,0.66_fp, 0.68_fp,0.67_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::shallow_snow_emiss = (/0.89_fp,0.89_fp,0.88_fp,0.87_fp, 0.86_fp, 0.82_fp,0.77_fp,0.76_fp,0.69_fp,0.64_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::deep_snow_emiss = (/0.88_fp,0.87_fp,0.86_fp,0.83_fp,0.81_fp, 0.77_fp,0.74_fp,0.73_fp,0.69_fp,0.64_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::crust_snow_emiss = (/0.86_fp,0.86_fp,0.86_fp,0.85_fp,0.82_fp, 0.78_fp,0.69_fp,0.68_fp,0.51_fp,0.47_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::medium_snow_emiss = (/0.89_fp,0.88_fp,0.87_fp,0.83_fp,0.80_fp, 0.75_fp,0.70_fp,0.70_fp,0.64_fp,0.60_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::bottom_crust_snow_b_emiss = (/0.91_fp,0.92_fp,0.93_fp,0.88_fp, 0.84_fp,0.76_fp,0.66_fp,0.64_fp, 0.48_fp,0.44_fp/)
real(fp), dimension(n_frequency), parameter, public	nesdis_snowem_parameters::thick_crust_snow_emiss = (/0.94_fp,0.95_fp,0.97_fp,0.91_fp, 0.86_fp,0.74_fp,0.63_fp,0.63_fp, 0.50_fp,0.45_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::frequency_amsre = (/ 6.925_fp, 10.65_fp, 18.7_fp,23.8_fp, 36.5_fp, 89.0_fp,150._fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::wet_snow_em_amsre = (/0.91_fp, 0.93_fp, 0.94_fp, 0.95_fp, 0.95_fp, 0.93_fp, 0.93_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::grass_after_snow_em_amsre = (/0.91_fp, 0.92_fp, 0.91_fp, 0.90_fp, 0.91_fp, 0.91_fp, 0.91_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_a_em_amsre = (/0.90_fp, 0.89_fp, 0.88_fp, 0.87_fp, 0.86_fp, 0.82_fp, 0.82_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::powder_snow_em_amsre = (/0.92_fp, 0.93_fp, 0.94_fp, 0.94_fp, 0.92_fp, 0.80_fp, 0.80_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_b_em_amsre = (/0.87_fp, 0.86_fp, 0.83_fp, 0.80_fp, 0.79_fp, 0.77_fp, 0.77_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_c_em_amsre = (/0.89_fp, 0.88_fp, 0.85_fp, 0.84_fp, 0.83_fp, 0.79_fp, 0.79_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_d_em_amsre = (/0.84_fp, 0.83_fp, 0.82_fp, 0.80_fp, 0.78_fp, 0.72_fp, 0.72_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::thin_crust_snow_em_amsre = (/0.95_fp, 0.96_fp, 0.96_fp, 0.95_fp, 0.91_fp, 0.75_fp, 0.75_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_e_em_amsre = (/0.80_fp, 0.80_fp, 0.80_fp, 0.79_fp, 0.75_fp, 0.70_fp, 0.70_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::bottom_crust_snow_a_em_amsre = (/0.91_fp, 0.90_fp, 0.89_fp, 0.87_fp, 0.82_fp, 0.69_fp, 0.69_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::shallow_snow_em_amsre = (/0.90_fp, 0.89_fp, 0.85_fp,0.82_fp, 0.76_fp, 0.65_fp, 0.65_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::deep_snow_em_amsre = (/0.89_fp, 0.88_fp, 0.86_fp, 0.83_fp, 0.78_fp, 0.70_fp, 0.70_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::crust_snow_em_amsre = (/0.88_fp, 0.86_fp, 0.80_fp, 0.75_fp, 0.69_fp, 0.67_fp, 0.67_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::medium_snow_em_amsre = (/0.96_fp, 0.97_fp, 0.92_fp, 0.87_fp, 0.72_fp, 0.50_fp, 0.50_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::bottom_crust_snow_b_em_amsre = (/0.93_fp, 0.94_fp, 0.89_fp, 0.85_fp, 0.74_fp, 0.48_fp, 0.48_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::thick_crust_snow_em_amsre = (/0.88_fp, 0.88_fp, 0.87_fp, 0.85_fp, 0.77_fp, 0.52_fp, 0.52_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::wet_snow_eh_amsre = (/0.93_fp, 0.92_fp, 0.93_fp, 0.94_fp, 0.93_fp, 0.93_fp, 0.90_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::grass_after_snow_eh_amsre = (/0.91_fp, 0.90_fp, 0.90_fp, 0.90_fp, 0.91_fp, 0.90_fp, 0.85_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_a_eh_amsre = (/0.85_fp, 0.85_fp, 0.84_fp, 0.84_fp, 0.82_fp, 0.80_fp, 0.80_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::powder_snow_eh_amsre = (/0.90_fp, 0.90_fp, 0.92_fp, 0.92_fp, 0.90_fp, 0.80_fp, 0.79_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_b_eh_amsre = (/0.82_fp, 0.81_fp, 0.77_fp, 0.76_fp, 0.74_fp, 0.74_fp, 0.74_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_c_eh_amsre = (/0.84_fp, 0.83_fp, 0.80_fp, 0.78_fp, 0.77_fp, 0.75_fp, 0.69_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_d_eh_amsre = (/0.77_fp, 0.77_fp, 0.76_fp, 0.75_fp, 0.73_fp, 0.71_fp, 0.71_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::thin_crust_snow_eh_amsre = (/0.95_fp, 0.94_fp, 0.95_fp, 0.94_fp, 0.89_fp, 0.75_fp, 0.65_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_e_eh_amsre = (/0.73_fp, 0.73_fp, 0.74_fp, 0.72_fp, 0.71_fp, 0.68_fp, 0.67_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::bottom_crust_snow_a_eh_amsre = (/0.88_fp, 0.87_fp, 0.86_fp, 0.85_fp, 0.80_fp, 0.68_fp, 0.63_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::shallow_snow_eh_amsre = (/0.86_fp, 0.84_fp, 0.80_fp, 0.78_fp, 0.72_fp, 0.62_fp, 0.57_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::deep_snow_eh_amsre = (/0.87_fp, 0.85_fp, 0.83_fp, 0.80_fp, 0.77_fp, 0.68_fp, 0.62_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::crust_snow_eh_amsre = (/0.82_fp, 0.78_fp, 0.74_fp, 0.71_fp, 0.67_fp, 0.64_fp, 0.64_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::medium_snow_eh_amsre = (/0.90_fp, 0.90_fp, 0.89_fp, 0.88_fp, 0.83_fp, 0.53_fp, 0.48_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::bottom_crust_snow_b_eh_amsre = (/0.87_fp, 0.85_fp, 0.84_fp, 0.82_fp, 0.74_fp, 0.53_fp, 0.49_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::thick_crust_snow_eh_amsre = (/0.85_fp, 0.84_fp, 0.83_fp, 0.81_fp, 0.79_fp, 0.51_fp, 0.46_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::wet_snow_ev_amsre = (/0.96_fp, 0.94_fp, 0.96_fp, 0.95_fp, 0.94_fp, 0.94_fp, 0.91_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::grass_after_snow_ev_amsre = (/0.96_fp, 0.94_fp, 0.95_fp, 0.96_fp, 0.96_fp, 0.92_fp, 0.87_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_a_ev_amsre = (/0.99_fp, 0.97_fp, 0.96_fp, 0.96_fp, 0.93_fp, 0.87_fp, 0.87_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::powder_snow_ev_amsre = (/0.98_fp, 0.97_fp, 0.99_fp, 0.98_fp, 0.96_fp, 0.84_fp, 0.83_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_b_ev_amsre = (/0.97_fp, 0.95_fp, 0.93_fp, 0.92_fp, 0.89_fp, 0.84_fp,0.84_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_c_ev_amsre = (/1.00_fp, 0.97_fp, 0.96_fp, 0.94_fp, 0.91_fp, 0.84_fp, 0.78_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_d_ev_amsre = (/0.99_fp, 0.96_fp, 0.93_fp, 0.90_fp, 0.86_fp, 0.80_fp, 0.80_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::thin_crust_snow_ev_amsre = (/0.98_fp, 0.97_fp, 0.98_fp, 0.97_fp, 0.92_fp, 0.77_fp, 0.67_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::rs_snow_e_ev_amsre = (/0.98_fp, 0.95_fp, 0.90_fp, 0.86_fp, 0.82_fp, 0.74_fp, 0.73_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::bottom_crust_snow_a_ev_amsre = (/0.96_fp, 0.95_fp, 0.95_fp, 0.93_fp, 0.87_fp, 0.71_fp, 0.66_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::shallow_snow_ev_amsre = (/0.97_fp, 0.95_fp, 0.94_fp, 0.90_fp, 0.84_fp, 0.68_fp, 0.63_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::deep_snow_ev_amsre = (/0.96_fp, 0.94_fp, 0.92_fp, 0.90_fp, 0.85_fp, 0.77_fp, 0.71_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::crust_snow_ev_amsre = (/0.98_fp, 0.96_fp, 0.93_fp, 0.90_fp, 0.81_fp, 0.71_fp, 0.71_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::medium_snow_ev_amsre = (/0.99_fp, 0.97_fp, 0.98_fp, 0.96_fp, 0.92_fp, 0.57_fp, 0.52_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::bottom_crust_snow_b_ev_amsre = (/1.00_fp, 0.97_fp, 0.97_fp, 0.95_fp, 0.86_fp, 0.58_fp, 0.54_fp/)
real(fp), dimension(n_freq_amsre), parameter, public	nesdis_snowem_parameters::thick_crust_snow_ev_amsre = (/0.98_fp, 0.96_fp, 0.96_fp, 0.94_fp, 0.89_fp, 0.56_fp, 0.51_fp/)