complex*16 function, private module_mp_radar::get_m_mix_nested |
( |
complex*16, intent(in) |
m_a, |
|
|
complex*16, intent(in) |
m_i, |
|
|
complex*16, intent(in) |
m_w, |
|
|
double precision, intent(in) |
volair, |
|
|
double precision, intent(in) |
volice, |
|
|
double precision, intent(in) |
volwater, |
|
|
character(len=*), intent(in) |
mixingrule, |
|
|
character(len=*), intent(in) |
host, |
|
|
character(len=*), intent(in) |
matrix, |
|
|
character(len=*), intent(in) |
inclusion, |
|
|
character(len=*), intent(in) |
hostmatrix, |
|
|
character(len=*), intent(in) |
hostinclusion, |
|
|
integer, intent(out) |
cumulerror |
|
) |
| |
|
private |