Go to the source code of this file.
|
subroutine | zeff (freq, D, N, nsizes, k2, tt, ice, xr, z_eff, z_ray, kr, qe, qs, rho_e) |
|
subroutine zeff |
( |
real*8, intent(in) |
freq, |
|
|
real*8, dimension(nsizes), intent(in) |
D, |
|
|
real*8, dimension(nsizes), intent(in) |
N, |
|
|
integer, intent(in) |
nsizes, |
|
|
real*8, intent(inout) |
k2, |
|
|
real*8, intent(in) |
tt, |
|
|
integer, intent(in) |
ice, |
|
|
integer, intent(in) |
xr, |
|
|
real*8, intent(out) |
z_eff, |
|
|
real*8, intent(out) |
z_ray, |
|
|
real*8, intent(out) |
kr, |
|
|
real*8, dimension(nsizes), intent(in) |
qe, |
|
|
real*8, dimension(nsizes), intent(in) |
qs, |
|
|
real*8, dimension(nsizes), intent(in) |
rho_e |
|
) |
| |