FV3 Bundle
|
Functions/Subroutines | |
subroutine, public | nesdis_amsre_ssiceem (frequency, User_Angle, tv, th, Ts, Tice, Emissivity_H, Emissivity_V) |
subroutine | amsre_ice_tb (frequency, theta, tv, th, em_vector) |
subroutine | amsre_ice_tbts (frequency, theta, tv, th, tskin, tice, em_vector) |
subroutine | siceemiss_extrapolate (ev, eh, theta, ntype) |
Variables | |
character(*), parameter | module_version_id = '$Id: NESDIS_AMSRE_SICEEM_Module.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' |
integer, parameter, public | n_freq = 7 |
real(fp), dimension(n_freq), parameter, public | frequency_amsrealg = (/ 6.925_fp, 10.65_fp, 18.7_fp,23.8_fp, 36.5_fp, 89.0_fp,157._fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_a_emiss =(/0.93_fp, 0.94_fp, 0.96_fp, 0.97_fp, 0.97_fp, 0.94_fp, 0.93_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_b_emiss =(/0.86_fp, 0.87_fp, 0.90_fp, 0.91_fp, 0.90_fp, 0.90_fp, 0.89_fp/) |
real(fp), dimension(n_freq), parameter, public | mixed_newice_snow_emiss =(/0.88_fp, 0.88_fp, 0.89_fp, 0.88_fp, 0.87_fp, 0.84_fp, 0.82_fp/) |
real(fp), dimension(n_freq), parameter, public | nare_newice_emiss =(/0.80_fp, 0.81_fp, 0.81_fp, 0.81_fp, 0.80_fp, 0.79_fp, 0.79_fp/) |
real(fp), dimension(n_freq), parameter, public | broken_ice_emiss =(/0.75_fp, 0.78_fp, 0.80_fp, 0.81_fp, 0.80_fp, 0.77_fp, 0.74_fp/) |
real(fp), dimension(n_freq), parameter, public | first_year_ice_emiss =(/0.93_fp, 0.93_fp, 0.92_fp, 0.92_fp, 0.89_fp, 0.78_fp, 0.69_fp/) |
real(fp), dimension(n_freq), parameter, public | composite_pack_ice_emiss =(/0.89_fp, 0.88_fp, 0.87_fp, 0.85_fp, 0.82_fp, 0.69_fp, 0.59_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_c_emiss =(/0.92_fp, 0.90_fp, 0.83_fp, 0.78_fp, 0.73_fp, 0.62_fp, 0.58_fp/) |
real(fp), dimension(n_freq), parameter, public | fast_ice_emiss =(/0.85_fp, 0.85_fp, 0.84_fp, 0.81_fp, 0.78_fp, 0.63_fp, 0.56_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_d_emiss =(/0.76_fp, 0.76_fp, 0.76_fp, 0.76_fp, 0.74_fp, 0.65_fp, 0.60_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_e_emiss =(/0.63_fp, 0.65_fp, 0.67_fp, 0.68_fp, 0.70_fp, 0.74_fp, 0.75_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_f_emiss =(/0.54_fp, 0.60_fp, 0.64_fp, 0.67_fp, 0.70_fp, 0.71_fp, 0.72_fp/) |
real(fp), dimension(n_freq), parameter, public | grease_ice_emiss =(/0.49_fp, 0.51_fp, 0.53_fp, 0.55_fp, 0.58_fp, 0.65_fp, 0.67_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_a_ev =(/ 0.96_fp, 0.97_fp, 0.99_fp, 0.99_fp, 0.99_fp, 0.98_fp, 0.97_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_b_ev =(/0.95_fp, 0.96_fp, 0.99_fp, 0.98_fp, 0.97_fp, 0.94_fp, 0.93_fp/) |
real(fp), dimension(n_freq), parameter, public | mixed_newice_snow_ev =(/0.96_fp, 0.96_fp, 0.95_fp, 0.94_fp, 0.93_fp, 0.88_fp, 0.86_fp/) |
real(fp), dimension(n_freq), parameter, public | nare_newice_ev =(/0.88_fp, 0.89_fp, 0.91_fp, 0.91_fp, 0.91_fp, 0.88_fp, 0.88_fp/) |
real(fp), dimension(n_freq), parameter, public | broken_ice_ev =(/0.85_fp, 0.87_fp, 0.91_fp, 0.91_fp, 0.91_fp, 0.87_fp, 0.84_fp/) |
real(fp), dimension(n_freq), parameter, public | first_year_ice_ev =(/0.98_fp, 0.98_fp, 0.98_fp, 0.97_fp, 0.95_fp, 0.84_fp, 0.75_fp/) |
real(fp), dimension(n_freq), parameter, public | composite_pack_ice_ev =(/0.98_fp, 0.97_fp, 0.95_fp, 0.93_fp, 0.89_fp, 0.72_fp, 0.62_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_c_ev =(/0.99_fp, 0.96_fp, 0.90_fp, 0.86_fp, 0.75_fp, 0.66_fp, 0.62_fp/) |
real(fp), dimension(n_freq), parameter, public | fast_ice_ev =(/0.95_fp, 0.95_fp, 0.94_fp, 0.91_fp, 0.85_fp, 0.69_fp, 0.62_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_d_ev =(/0.87_fp, 0.87_fp, 0.88_fp, 0.88_fp, 0.88_fp, 0.77_fp, 0.72_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_e_ev =(/0.77_fp, 0.78_fp, 0.81_fp, 0.82_fp, 0.84_fp, 0.86_fp, 0.88_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_f_ev =(/0.71_fp, 0.73_fp, 0.77_fp, 0.78_fp, 0.81_fp, 0.86_fp, 0.87_fp/) |
real(fp), dimension(n_freq), parameter, public | grease_ice_ev =(/0.66_fp, 0.67_fp, 0.70_fp, 0.72_fp, 0.76_fp, 0.82_fp, 0.84_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_a_eh =(/ 0.88_fp, 0.92_fp, 0.94_fp, 0.94_fp, 0.95_fp, 0.92_fp, 0.91_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_b_eh =(/0.81_fp, 0.82_fp, 0.85_fp, 0.86_fp, 0.87_fp, 0.88_fp, 0.87_fp/) |
real(fp), dimension(n_freq), parameter, public | mixed_newice_snow_eh =(/0.83_fp, 0.84_fp, 0.86_fp, 0.85_fp, 0.84_fp, 0.82_fp, 0.80_fp/) |
real(fp), dimension(n_freq), parameter, public | nare_newice_eh =(/0.74_fp, 0.75_fp, 0.76_fp, 0.76_fp, 0.77_fp, 0.73_fp, 0.73_fp/) |
real(fp), dimension(n_freq), parameter, public | broken_ice_eh =(/0.71_fp, 0.73_fp, 0.76_fp, 0.77_fp, 0.80_fp, 0.72_fp, 0.69_fp/) |
real(fp), dimension(n_freq), parameter, public | first_year_ice_eh =(/0.91_fp, 0.90_fp, 0.89_fp, 0.88_fp, 0.86_fp, 0.76_fp, 0.67_fp/) |
real(fp), dimension(n_freq), parameter, public | composite_pack_ice_eh =(/0.85_fp, 0.84_fp, 0.83_fp, 0.82_fp, 0.79_fp, 0.67_fp, 0.57_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_c_eh =(/0.90_fp, 0.87_fp, 0.81_fp, 0.78_fp, 0.69_fp, 0.60_fp, 0.56_fp/) |
real(fp), dimension(n_freq), parameter, public | fast_ice_eh =(/0.80_fp, 0.80_fp, 0.78_fp, 0.76_fp, 0.72_fp, 0.60_fp, 0.53_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_d_eh =(/0.71_fp, 0.71_fp, 0.70_fp, 0.70_fp, 0.70_fp, 0.59_fp, 0.54_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_e_eh =(/0.55_fp, 0.59_fp, 0.60_fp, 0.61_fp, 0.62_fp, 0.67_fp, 0.69_fp/) |
real(fp), dimension(n_freq), parameter, public | rs_ice_f_eh =(/0.48_fp, 0.51_fp, 0.56_fp, 0.57_fp, 0.60_fp, 0.64_fp, 0.65_fp/) |
real(fp), dimension(n_freq), parameter, public | grease_ice_eh =(/0.42_fp, 0.42_fp, 0.43_fp, 0.45_fp, 0.49_fp, 0.54_fp, 0.56_fp/) |
|
private |
Definition at line 455 of file NESDIS_AMSRE_SICEEM_Module.f90.
|
private |
Definition at line 607 of file NESDIS_AMSRE_SICEEM_Module.f90.
subroutine, public nesdis_amsre_siceem_module::nesdis_amsre_ssiceem | ( | real(fp) | frequency, |
real(fp) | User_Angle, | ||
real(fp), dimension(nch) | tv, | ||
real(fp), dimension(nch) | th, | ||
real(fp) | Ts, | ||
real(fp) | Tice, | ||
real(fp), intent(out) | Emissivity_H, | ||
real(fp), intent(out) | Emissivity_V | ||
) |
Definition at line 376 of file NESDIS_AMSRE_SICEEM_Module.f90.
|
private |
Definition at line 807 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::broken_ice_eh =(/0.71_fp, 0.73_fp, 0.76_fp, 0.77_fp, 0.80_fp, 0.72_fp, 0.69_fp/) |
Definition at line 184 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::broken_ice_emiss =(/0.75_fp, 0.78_fp, 0.80_fp, 0.81_fp, 0.80_fp, 0.77_fp, 0.74_fp/) |
Definition at line 71 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::broken_ice_ev =(/0.85_fp, 0.87_fp, 0.91_fp, 0.91_fp, 0.91_fp, 0.87_fp, 0.84_fp/) |
Definition at line 128 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::composite_pack_ice_eh =(/0.85_fp, 0.84_fp, 0.83_fp, 0.82_fp, 0.79_fp, 0.67_fp, 0.57_fp/) |
Definition at line 192 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::composite_pack_ice_emiss =(/0.89_fp, 0.88_fp, 0.87_fp, 0.85_fp, 0.82_fp, 0.69_fp, 0.59_fp/) |
Definition at line 79 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::composite_pack_ice_ev =(/0.98_fp, 0.97_fp, 0.95_fp, 0.93_fp, 0.89_fp, 0.72_fp, 0.62_fp/) |
Definition at line 136 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::fast_ice_eh =(/0.80_fp, 0.80_fp, 0.78_fp, 0.76_fp, 0.72_fp, 0.60_fp, 0.53_fp/) |
Definition at line 200 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::fast_ice_emiss =(/0.85_fp, 0.85_fp, 0.84_fp, 0.81_fp, 0.78_fp, 0.63_fp, 0.56_fp/) |
Definition at line 87 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::fast_ice_ev =(/0.95_fp, 0.95_fp, 0.94_fp, 0.91_fp, 0.85_fp, 0.69_fp, 0.62_fp/) |
Definition at line 144 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::first_year_ice_eh =(/0.91_fp, 0.90_fp, 0.89_fp, 0.88_fp, 0.86_fp, 0.76_fp, 0.67_fp/) |
Definition at line 188 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::first_year_ice_emiss =(/0.93_fp, 0.93_fp, 0.92_fp, 0.92_fp, 0.89_fp, 0.78_fp, 0.69_fp/) |
Definition at line 75 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::first_year_ice_ev =(/0.98_fp, 0.98_fp, 0.98_fp, 0.97_fp, 0.95_fp, 0.84_fp, 0.75_fp/) |
Definition at line 132 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension (n_freq), parameter, public nesdis_amsre_siceem_module::frequency_amsrealg = (/ 6.925_fp, 10.65_fp, 18.7_fp,23.8_fp, 36.5_fp, 89.0_fp,157._fp/) |
Definition at line 49 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::grease_ice_eh =(/0.42_fp, 0.42_fp, 0.43_fp, 0.45_fp, 0.49_fp, 0.54_fp, 0.56_fp/) |
Definition at line 216 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::grease_ice_emiss =(/0.49_fp, 0.51_fp, 0.53_fp, 0.55_fp, 0.58_fp, 0.65_fp, 0.67_fp/) |
Definition at line 103 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::grease_ice_ev =(/0.66_fp, 0.67_fp, 0.70_fp, 0.72_fp, 0.76_fp, 0.82_fp, 0.84_fp/) |
Definition at line 160 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::mixed_newice_snow_eh =(/0.83_fp, 0.84_fp, 0.86_fp, 0.85_fp, 0.84_fp, 0.82_fp, 0.80_fp/) |
Definition at line 176 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::mixed_newice_snow_emiss =(/0.88_fp, 0.88_fp, 0.89_fp, 0.88_fp, 0.87_fp, 0.84_fp, 0.82_fp/) |
Definition at line 63 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::mixed_newice_snow_ev =(/0.96_fp, 0.96_fp, 0.95_fp, 0.94_fp, 0.93_fp, 0.88_fp, 0.86_fp/) |
Definition at line 120 of file NESDIS_AMSRE_SICEEM_Module.f90.
|
private |
Definition at line 43 of file NESDIS_AMSRE_SICEEM_Module.f90.
integer, parameter, public nesdis_amsre_siceem_module::n_freq = 7 |
Definition at line 47 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::nare_newice_eh =(/0.74_fp, 0.75_fp, 0.76_fp, 0.76_fp, 0.77_fp, 0.73_fp, 0.73_fp/) |
Definition at line 180 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::nare_newice_emiss =(/0.80_fp, 0.81_fp, 0.81_fp, 0.81_fp, 0.80_fp, 0.79_fp, 0.79_fp/) |
Definition at line 67 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::nare_newice_ev =(/0.88_fp, 0.89_fp, 0.91_fp, 0.91_fp, 0.91_fp, 0.88_fp, 0.88_fp/) |
Definition at line 124 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_a_eh =(/ 0.88_fp, 0.92_fp, 0.94_fp, 0.94_fp, 0.95_fp, 0.92_fp, 0.91_fp/) |
Definition at line 168 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_a_emiss =(/0.93_fp, 0.94_fp, 0.96_fp, 0.97_fp, 0.97_fp, 0.94_fp, 0.93_fp/) |
Definition at line 55 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_a_ev =(/ 0.96_fp, 0.97_fp, 0.99_fp, 0.99_fp, 0.99_fp, 0.98_fp, 0.97_fp/) |
Definition at line 112 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_b_eh =(/0.81_fp, 0.82_fp, 0.85_fp, 0.86_fp, 0.87_fp, 0.88_fp, 0.87_fp/) |
Definition at line 172 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_b_emiss =(/0.86_fp, 0.87_fp, 0.90_fp, 0.91_fp, 0.90_fp, 0.90_fp, 0.89_fp/) |
Definition at line 59 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_b_ev =(/0.95_fp, 0.96_fp, 0.99_fp, 0.98_fp, 0.97_fp, 0.94_fp, 0.93_fp/) |
Definition at line 116 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_c_eh =(/0.90_fp, 0.87_fp, 0.81_fp, 0.78_fp, 0.69_fp, 0.60_fp, 0.56_fp/) |
Definition at line 196 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_c_emiss =(/0.92_fp, 0.90_fp, 0.83_fp, 0.78_fp, 0.73_fp, 0.62_fp, 0.58_fp/) |
Definition at line 83 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_c_ev =(/0.99_fp, 0.96_fp, 0.90_fp, 0.86_fp, 0.75_fp, 0.66_fp, 0.62_fp/) |
Definition at line 140 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_d_eh =(/0.71_fp, 0.71_fp, 0.70_fp, 0.70_fp, 0.70_fp, 0.59_fp, 0.54_fp/) |
Definition at line 204 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_d_emiss =(/0.76_fp, 0.76_fp, 0.76_fp, 0.76_fp, 0.74_fp, 0.65_fp, 0.60_fp/) |
Definition at line 91 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_d_ev =(/0.87_fp, 0.87_fp, 0.88_fp, 0.88_fp, 0.88_fp, 0.77_fp, 0.72_fp/) |
Definition at line 148 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_e_eh =(/0.55_fp, 0.59_fp, 0.60_fp, 0.61_fp, 0.62_fp, 0.67_fp, 0.69_fp/) |
Definition at line 208 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_e_emiss =(/0.63_fp, 0.65_fp, 0.67_fp, 0.68_fp, 0.70_fp, 0.74_fp, 0.75_fp/) |
Definition at line 95 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_e_ev =(/0.77_fp, 0.78_fp, 0.81_fp, 0.82_fp, 0.84_fp, 0.86_fp, 0.88_fp/) |
Definition at line 152 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_f_eh =(/0.48_fp, 0.51_fp, 0.56_fp, 0.57_fp, 0.60_fp, 0.64_fp, 0.65_fp/) |
Definition at line 212 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_f_emiss =(/0.54_fp, 0.60_fp, 0.64_fp, 0.67_fp, 0.70_fp, 0.71_fp, 0.72_fp/) |
Definition at line 99 of file NESDIS_AMSRE_SICEEM_Module.f90.
real(fp), dimension(n_freq), parameter, public nesdis_amsre_siceem_module::rs_ice_f_ev =(/0.71_fp, 0.73_fp, 0.77_fp, 0.78_fp, 0.81_fp, 0.86_fp, 0.87_fp/) |
Definition at line 156 of file NESDIS_AMSRE_SICEEM_Module.f90.