subroutine gfdl_cloud_microphys_mod::fall_speed |
( |
integer, intent(in) |
ktop, |
|
|
integer, intent(in) |
kbot, |
|
|
real, dimension (ktop:kbot), intent(in) |
den, |
|
|
real, dimension (ktop:kbot), intent(in) |
qs, |
|
|
real, dimension (ktop:kbot), intent(in) |
qi, |
|
|
real, dimension (ktop:kbot), intent(in) |
qg, |
|
|
real, dimension (ktop:kbot), intent(in) |
ql, |
|
|
real, dimension (ktop:kbot), intent(in) |
tk, |
|
|
real, dimension (ktop:kbot), intent(out) |
vts, |
|
|
real, dimension (ktop:kbot), intent(out) |
vti, |
|
|
real, dimension (ktop:kbot), intent(out) |
vtg |
|
) |
| |
|
private |