| 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 | ||
| ) |