ERF_mp_radar.F90 File Reference

Modules
module	mp_radar

Functions/Subroutines
subroutine, public	mp_radar::radar_init
subroutine, public	mp_radar::rayleigh_soak_wetgraupel (x_g, a_geo, b_geo, fmelt, meltratio_outside, m_w, m_i, lambda, c_back, mixingrule, matrix, inclusion, host, hostmatrix, hostinclusion)
real(kind=kind_phys) function	mp_radar::wgamma (y)
real(kind=kind_phys) function	mp_radar::gammln (xx)
complex(kind=r8kind) function	mp_radar::get_m_mix_nested (m_a, m_i, m_w, volair, volice, volwater, mixingrule, host, matrix, inclusion, hostmatrix, hostinclusion, cumulerror)
complex(kind=r8kind) function	mp_radar::get_m_mix (m_a, m_i, m_w, volair, volice, volwater, mixingrule, matrix, inclusion, error)
complex(kind=r8kind) function	mp_radar::m_complex_maxwellgarnett (vol1, vol2, vol3, m1, m2, m3, inclusion, error)
complex(kind=r8kind) function	mp_radar::m_complex_water_ray (lambda, t)
complex(kind=r8kind) function	mp_radar::m_complex_ice_maetzler (lambda, t)

Variables
integer, parameter	mp_radar::kind_phys = c_double
integer, parameter, private	mp_radar::r4kind = selected_real_kind(6)
integer, parameter, private	mp_radar::r8kind = selected_real_kind(12)
integer, parameter, public	mp_radar::nrbins = 50
integer, parameter, public	mp_radar::slen = 20
character(len=slen), public	mp_radar::mixingrulestring_s
character(len=slen), public	mp_radar::matrixstring_s
character(len=slen), public	mp_radar::inclusionstring_s
character(len=slen), public	mp_radar::hoststring_s
character(len=slen), public	mp_radar::hostmatrixstring_s
character(len=slen), public	mp_radar::hostinclusionstring_s
character(len=slen), public	mp_radar::mixingrulestring_g
character(len=slen), public	mp_radar::matrixstring_g
character(len=slen), public	mp_radar::inclusionstring_g
character(len=slen), public	mp_radar::hoststring_g
character(len=slen), public	mp_radar::hostmatrixstring_g
character(len=slen), public	mp_radar::hostinclusionstring_g
complex(kind=r8kind), public	mp_radar::m_w_0
complex(kind=r8kind), public	mp_radar::m_i_0
double precision, dimension(nrbins+1), public	mp_radar::xxdx
double precision, dimension(nrbins), public	mp_radar::xxds
double precision, dimension(nrbins), public	mp_radar::xdts
double precision, dimension(nrbins), public	mp_radar::xxdg
double precision, dimension(nrbins), public	mp_radar::xdtg
double precision, parameter, public	mp_radar::lamda_radar = 0.10
double precision, public	mp_radar::k_w
double precision, public	mp_radar::pi5
double precision, public	mp_radar::lamda4
double precision, dimension(nrbins+1), public	mp_radar::simpson
double precision, dimension(3), parameter, public	mp_radar::basis = (/1.d0/3.d0, 4.d0/3.d0, 1.d0/3.d0/)
real(kind=kind_phys), dimension(4), public	mp_radar::xcre
real(kind=kind_phys), dimension(4), public	mp_radar::xcse
real(kind=kind_phys), dimension(4), public	mp_radar::xcge
real(kind=kind_phys), dimension(4), public	mp_radar::xcrg
real(kind=kind_phys), dimension(4), public	mp_radar::xcsg
real(kind=kind_phys), dimension(4), public	mp_radar::xcgg
real(kind=kind_phys), public	mp_radar::xam_r
real(kind=kind_phys), public	mp_radar::xbm_r
real(kind=kind_phys), public	mp_radar::xmu_r
real(kind=kind_phys), public	mp_radar::xobmr
real(kind=kind_phys), public	mp_radar::xam_s
real(kind=kind_phys), public	mp_radar::xbm_s
real(kind=kind_phys), public	mp_radar::xmu_s
real(kind=kind_phys), public	mp_radar::xoams
real(kind=kind_phys), public	mp_radar::xobms
real(kind=kind_phys), public	mp_radar::xocms
real(kind=kind_phys), public	mp_radar::xam_g
real(kind=kind_phys), public	mp_radar::xbm_g
real(kind=kind_phys), public	mp_radar::xmu_g
real(kind=kind_phys), public	mp_radar::xoamg
real(kind=kind_phys), public	mp_radar::xobmg
real(kind=kind_phys), public	mp_radar::xocmg
real(kind=kind_phys), public	mp_radar::xorg2
real(kind=kind_phys), public	mp_radar::xosg2
real(kind=kind_phys), public	mp_radar::xogg2
character(len=256)	mp_radar::radar_debug
double precision, parameter, public	mp_radar::melt_outside_s = 0.9d0
double precision, parameter, public	mp_radar::melt_outside_g = 0.9d0