crtm_lowfrequency_mwssem Module Reference

Data Types
type	ivar_type

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

Variables
character(*), parameter	module_rcs_id = '$Id: CRTM_LowFrequency_MWSSEM.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $'
real(fp), parameter	low_f_threshold = 20.0_fp
real(fp), parameter	smallscale_f_threshold = 15.0_fp
real(fp), parameter	foam_threshold = 7.0_fp
real(fp), parameter	ghz_to_hz = 1.0e+09_fp
real(fp), parameter	d_frequency = 2.0_fp
integer, parameter	n_frequencies = 11
real(fp), dimension(n_frequencies), parameter	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	d_wind_speed = 0.5_fp
integer, parameter	n_wind_speeds = 40
real(fp), dimension(n_wind_speeds), parameter	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	fc1 = 7.751e-6_fp
real(fp), parameter	fc2 = 3.231_fp
real(fp), parameter	fc3 = FC1*FC2
real(fp), parameter	fc4 = FC2-ONE
real(fp), dimension(8), parameter	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)	sdd
integer	n

Function/Subroutine Documentation

foam_coverage()

subroutine crtm_lowfrequency_mwssem::foam_coverage ( real(fp), intent(in)  wind_speed, real(fp), intent(out)  coverage  )

private

Definition at line 976 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the caller graph for this function:

foam_coverage_ad()

subroutine crtm_lowfrequency_mwssem::foam_coverage_ad ( real(fp), intent(in)  wind_speed, real(fp), intent(inout)  coverage_AD, real(fp), intent(inout)  wind_speed_AD  )

private

Definition at line 999 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the caller graph for this function:

foam_coverage_tl()

subroutine crtm_lowfrequency_mwssem::foam_coverage_tl ( real(fp), intent(in)  wind_speed, real(fp), intent(in)  wind_speed_TL, real(fp), intent(out)  coverage_TL  )

private

Definition at line 987 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the caller graph for this function:

foam_reflectivity()

subroutine crtm_lowfrequency_mwssem::foam_reflectivity ( real(fp), intent(in)  z, real(fp), intent(out)  Rv, real(fp), intent(out)  Rh  )

private

Definition at line 948 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the caller graph for this function:

large_scale_correction()

subroutine crtm_lowfrequency_mwssem::large_scale_correction ( real(fp), intent(in)  v, real(fp), intent(in)  z, real(fp), intent(in)  f, real(fp), intent(out)  Rv, real(fp), intent(out)  Rh, real(fp), intent(out)  Rv_term, real(fp), intent(out)  Rh_term  )

private

Definition at line 1084 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the caller graph for this function:

large_scale_correction_ad()

subroutine crtm_lowfrequency_mwssem::large_scale_correction_ad ( real(fp), intent(inout)  Rv_AD, real(fp), intent(inout)  Rh_AD, real(fp), intent(inout)  v_AD, real(fp), intent(in)  Rv_term, real(fp), intent(in)  Rh_term  )

private

Definition at line 1116 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the caller graph for this function:

large_scale_correction_tl()

subroutine crtm_lowfrequency_mwssem::large_scale_correction_tl ( real(fp), intent(in)  v_TL, real(fp), intent(out)  Rv_TL, real(fp), intent(out)  Rh_TL, real(fp), intent(in)  Rv_term, real(fp), intent(in)  Rh_term  )

private

Definition at line 1104 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the caller graph for this function:

lowfrequency_mwssem()

subroutine, public crtm_lowfrequency_mwssem::lowfrequency_mwssem	(	real(fp), intent(in)	Frequency,
		real(fp), intent(in)	Zenith_Angle,
		real(fp), intent(in)	Temperature,
		real(fp), intent(in)	Salinity,
		real(fp), intent(in)	Wind_Speed,
		real(fp), dimension(:), intent(out)	Emissivity,
		type(ivar_type), intent(inout)	iVar
	)

Definition at line 470 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

lowfrequency_mwssem_ad()

subroutine, public crtm_lowfrequency_mwssem::lowfrequency_mwssem_ad	(	real(fp), dimension(:), intent(inout)	Emissivity_AD,
		real(fp), intent(inout)	Temperature_AD,
		real(fp), intent(inout)	Salinity_AD,
		real(fp), intent(inout)	Wind_Speed_AD,
		type(ivar_type), intent(in)	iVar
	)

Definition at line 820 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

lowfrequency_mwssem_tl()

subroutine, public crtm_lowfrequency_mwssem::lowfrequency_mwssem_tl	(	real(fp), intent(in)	Temperature_TL,
		real(fp), intent(in)	Salinity_TL,
		real(fp), intent(in)	Wind_Speed_TL,
		real(fp), dimension(:), intent(out)	Emissivity_TL,
		type(ivar_type), intent(in)	iVar
	)

Definition at line 639 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

small_scale_correction()

subroutine crtm_lowfrequency_mwssem::small_scale_correction ( real(fp), intent(in)  sdd, real(fp), intent(in)  cos2_z, real(fp), intent(in)  f, real(fp), intent(out)  Rv, real(fp), intent(out)  Rh, real(fp), intent(out)  R_term  )

private

Definition at line 1019 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the caller graph for this function:

small_scale_correction_ad()

subroutine crtm_lowfrequency_mwssem::small_scale_correction_ad ( real(fp), intent(inout)  Rv_AD, real(fp), intent(inout)  Rh_AD, real(fp), intent(in)  cos2_z, real(fp), intent(in)  f, real(fp), intent(inout)  sdd_AD, real(fp), intent(in)  R_term  )

private

Definition at line 1059 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the caller graph for this function:

small_scale_correction_tl()

subroutine crtm_lowfrequency_mwssem::small_scale_correction_tl ( real(fp), intent(in)  sdd_TL, real(fp), intent(in)  cos2_z, real(fp), intent(in)  f, real(fp), intent(out)  Rv_TL, real(fp), intent(out)  Rh_TL, real(fp), intent(in)  R_term  )

private

Definition at line 1038 of file CRTM_LowFrequency_MWSSEM.f90.

Here is the caller graph for this function:

Variable Documentation

d_frequency

real(fp), parameter crtm_lowfrequency_mwssem::d_frequency = 2.0_fp

private

Definition at line 80 of file CRTM_LowFrequency_MWSSEM.f90.

d_wind_speed

real(fp), parameter crtm_lowfrequency_mwssem::d_wind_speed = 0.5_fp

private

Definition at line 87 of file CRTM_LowFrequency_MWSSEM.f90.

fc1

real(fp), parameter crtm_lowfrequency_mwssem::fc1 = 7.751e-6_fp

private

Definition at line 101 of file CRTM_LowFrequency_MWSSEM.f90.

fc2

real(fp), parameter crtm_lowfrequency_mwssem::fc2 = 3.231_fp

private

Definition at line 102 of file CRTM_LowFrequency_MWSSEM.f90.

fc3

real(fp), parameter crtm_lowfrequency_mwssem::fc3 = FC1*FC2

private

Definition at line 103 of file CRTM_LowFrequency_MWSSEM.f90.

fc4

real(fp), parameter crtm_lowfrequency_mwssem::fc4 = FC2-ONE

private

Definition at line 104 of file CRTM_LowFrequency_MWSSEM.f90.

foam_threshold

real(fp), parameter crtm_lowfrequency_mwssem::foam_threshold = 7.0_fp

private

Definition at line 76 of file CRTM_LowFrequency_MWSSEM.f90.

frequency_sdd

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

private

Definition at line 82 of file CRTM_LowFrequency_MWSSEM.f90.

ghz_to_hz

real(fp), parameter crtm_lowfrequency_mwssem::ghz_to_hz = 1.0e+09_fp

private

Definition at line 77 of file CRTM_LowFrequency_MWSSEM.f90.

low_f_threshold

real(fp), parameter crtm_lowfrequency_mwssem::low_f_threshold = 20.0_fp

private

Definition at line 74 of file CRTM_LowFrequency_MWSSEM.f90.

lsc_coeff

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

private

Definition at line 107 of file CRTM_LowFrequency_MWSSEM.f90.

module_rcs_id

character(*), parameter crtm_lowfrequency_mwssem::module_rcs_id = '$Id: CRTM_LowFrequency_MWSSEM.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $'

private

Definition at line 70 of file CRTM_LowFrequency_MWSSEM.f90.

n

integer crtm_lowfrequency_mwssem::n

private

Definition at line 172 of file CRTM_LowFrequency_MWSSEM.f90.

n_frequencies

integer, parameter crtm_lowfrequency_mwssem::n_frequencies = 11

private

Definition at line 81 of file CRTM_LowFrequency_MWSSEM.f90.

n_wind_speeds

integer, parameter crtm_lowfrequency_mwssem::n_wind_speeds = 40

private

Definition at line 88 of file CRTM_LowFrequency_MWSSEM.f90.

sdd

real(fp), dimension(n_frequencies,n_wind_speeds) crtm_lowfrequency_mwssem::sdd

private

Definition at line 171 of file CRTM_LowFrequency_MWSSEM.f90.

smallscale_f_threshold

real(fp), parameter crtm_lowfrequency_mwssem::smallscale_f_threshold = 15.0_fp

private

Definition at line 75 of file CRTM_LowFrequency_MWSSEM.f90.

wind_speed_sdd

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

private

Definition at line 89 of file CRTM_LowFrequency_MWSSEM.f90.