CRTM_LowFrequency_MWSSEM.f90 File Reference

Go to the source code of this file.

Data Types
type	crtm_lowfrequency_mwssem::ivar_type

Modules
module	crtm_lowfrequency_mwssem

Functions/Subroutines
subroutine, public	crtm_lowfrequency_mwssem::lowfrequency_mwssem (Frequency, Zenith_Angle, Temperature, Salinity, Wind_Speed, Emissivity, iVar)
subroutine, public	crtm_lowfrequency_mwssem::lowfrequency_mwssem_tl (Temperature_TL, Salinity_TL, Wind_Speed_TL, Emissivity_TL, iVar)
subroutine, public	crtm_lowfrequency_mwssem::lowfrequency_mwssem_ad (Emissivity_AD, Temperature_AD, Salinity_AD, Wind_Speed_AD, iVar)
subroutine	crtm_lowfrequency_mwssem::foam_reflectivity (z, Rv, Rh)
subroutine	crtm_lowfrequency_mwssem::foam_coverage (wind_speed, coverage)
subroutine	crtm_lowfrequency_mwssem::foam_coverage_tl (wind_speed, wind_speed_TL, coverage_TL)
subroutine	crtm_lowfrequency_mwssem::foam_coverage_ad (wind_speed, coverage_AD, wind_speed_AD)
subroutine	crtm_lowfrequency_mwssem::small_scale_correction (sdd, cos2_z, f, Rv, Rh, R_term)
subroutine	crtm_lowfrequency_mwssem::small_scale_correction_tl (sdd_TL, cos2_z, f, Rv_TL, Rh_TL, R_term)
subroutine	crtm_lowfrequency_mwssem::small_scale_correction_ad (Rv_AD, Rh_AD, cos2_z, f, sdd_AD, R_term)
subroutine	crtm_lowfrequency_mwssem::large_scale_correction (v, z, f, Rv, Rh, Rv_term, Rh_term)
subroutine	crtm_lowfrequency_mwssem::large_scale_correction_tl (v_TL, Rv_TL, Rh_TL, Rv_term, Rh_term)
subroutine	crtm_lowfrequency_mwssem::large_scale_correction_ad (Rv_AD, Rh_AD, v_AD, Rv_term, Rh_term)

Variables
character(*), parameter	crtm_lowfrequency_mwssem::module_rcs_id = '$Id: CRTM_LowFrequency_MWSSEM.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $'
real(fp), parameter	crtm_lowfrequency_mwssem::low_f_threshold = 20.0_fp
real(fp), parameter	crtm_lowfrequency_mwssem::smallscale_f_threshold = 15.0_fp
real(fp), parameter	crtm_lowfrequency_mwssem::foam_threshold = 7.0_fp
real(fp), parameter	crtm_lowfrequency_mwssem::ghz_to_hz = 1.0e+09_fp
real(fp), parameter	crtm_lowfrequency_mwssem::d_frequency = 2.0_fp
integer, parameter	crtm_lowfrequency_mwssem::n_frequencies = 11
real(fp), dimension(n_frequencies), parameter	crtm_lowfrequency_mwssem::frequency_sdd = (/ 3.0_fp, 5.0_fp, 7.0_fp, 9.0_fp, 11.0_fp, 13.0_fp, 15.0_fp, 17.0_fp, 19.0_fp, 21.0_fp, 23.0_fp /)
real(fp), parameter	crtm_lowfrequency_mwssem::d_wind_speed = 0.5_fp
integer, parameter	crtm_lowfrequency_mwssem::n_wind_speeds = 40
real(fp), dimension(n_wind_speeds), parameter	crtm_lowfrequency_mwssem::wind_speed_sdd = (/ 0.5_fp, 1.0_fp, 1.5_fp, 2.0_fp, 2.5_fp, 3.0_fp, 3.5_fp, 4.0_fp, 4.5_fp, 5.0_fp, 5.5_fp, 6.0_fp, 6.5_fp, 7.0_fp, 7.5_fp, 8.0_fp, 8.5_fp, 9.0_fp, 9.5_fp,10.0_fp,10.5_fp,11.0_fp,11.5_fp,12.0_fp, 12.5_fp,13.0_fp,13.5_fp,14.0_fp,14.5_fp,15.0_fp,15.5_fp,16.0_fp, 16.5_fp,17.0_fp,17.5_fp,18.0_fp,18.5_fp,19.0_fp,19.5_fp,20.0_fp /)
real(fp), parameter	crtm_lowfrequency_mwssem::fc1 = 7.751e-6_fp
real(fp), parameter	crtm_lowfrequency_mwssem::fc2 = 3.231_fp
real(fp), parameter	crtm_lowfrequency_mwssem::fc3 = FC1*FC2
real(fp), parameter	crtm_lowfrequency_mwssem::fc4 = FC2-ONE
real(fp), dimension(8), parameter	crtm_lowfrequency_mwssem::lsc_coeff = (/ 5.209e-04_fp, 1.582e-05_fp, -3.510e-07_fp, 5.209e-04_fp, -1.550e-05_fp, -1.356e-07_fp, 1.90896_fp, 0.120448_fp /)
real(fp), dimension(n_frequencies, n_wind_speeds)	crtm_lowfrequency_mwssem::sdd
integer	crtm_lowfrequency_mwssem::n