| subroutine gfssflx::evapo | ( | integer, intent(in) | nsoil, |
| integer, intent(in) | nroot, | ||
| real (kind=kind_phys), intent(in) | cmc, | ||
| real (kind=kind_phys), intent(in) | cmcmax, | ||
| real (kind=kind_phys), intent(in) | etp1, | ||
| real (kind=kind_phys), intent(in) | dt, | ||
| real (kind=kind_phys), dimension(nsoil), intent(in) | zsoil, | ||
| real (kind=kind_phys), dimension(nsoil), intent(in) | sh2o, | ||
| real (kind=kind_phys), intent(in) | smcmax, | ||
| real (kind=kind_phys), intent(in) | smcwlt, | ||
| real (kind=kind_phys), intent(in) | smcref, | ||
| real (kind=kind_phys), intent(in) | smcdry, | ||
| real (kind=kind_phys), intent(in) | pc, | ||
| real (kind=kind_phys), intent(in) | shdfac, | ||
| real (kind=kind_phys), intent(in) | cfactr, | ||
| real (kind=kind_phys), dimension(nsoil), intent(in) | rtdis, | ||
| real (kind=kind_phys), intent(in) | fxexp, | ||
| real (kind=kind_phys), intent(out) | eta1, | ||
| real (kind=kind_phys), intent(out) | edir1, | ||
| real (kind=kind_phys), intent(out) | ec1, | ||
| real (kind=kind_phys), dimension(nsoil), intent(out) | et1, | ||
| real (kind=kind_phys), intent(out) | ett1 | ||
| ) |