subroutine, public micro_mg_utils::evaporate_sublimate_precip |
( |
real(r8), dimension(mgncol), intent(in) |
t, |
|
|
real(r8), dimension(mgncol), intent(in) |
rho, |
|
|
real(r8), dimension(mgncol), intent(in) |
dv, |
|
|
real(r8), dimension(mgncol), intent(in) |
mu, |
|
|
real(r8), dimension(mgncol), intent(in) |
sc, |
|
|
real(r8), dimension(mgncol), intent(in) |
q, |
|
|
real(r8), dimension(mgncol), intent(in) |
qvl, |
|
|
real(r8), dimension(mgncol), intent(in) |
qvi, |
|
|
real(r8), dimension(mgncol), intent(in) |
lcldm, |
|
|
real(r8), dimension(mgncol), intent(in) |
precip_frac, |
|
|
real(r8), dimension(mgncol), intent(in) |
arn, |
|
|
real(r8), dimension(mgncol), intent(in) |
asn, |
|
|
real(r8), dimension(mgncol), intent(in) |
qcic, |
|
|
real(r8), dimension(mgncol), intent(in) |
qiic, |
|
|
real(r8), dimension(mgncol), intent(in) |
qric, |
|
|
real(r8), dimension(mgncol), intent(in) |
qsic, |
|
|
real(r8), dimension(mgncol), intent(in) |
lamr, |
|
|
real(r8), dimension(mgncol), intent(in) |
n0r, |
|
|
real(r8), dimension(mgncol), intent(in) |
lams, |
|
|
real(r8), dimension(mgncol), intent(in) |
n0s, |
|
|
real(r8), dimension(mgncol), intent(out) |
pre, |
|
|
real(r8), dimension(mgncol), intent(out) |
prds, |
|
|
real(r8), dimension(mgncol), intent(out) |
am_evp_st, |
|
|
integer, intent(in) |
mgncol |
|
) |
| |