| subroutine gfssflx::snksrc | ( | integer, intent(in) | nsoil, |
| integer, intent(in) | k, | ||
| real (kind=kind_phys), intent(in) | tavg, | ||
| real (kind=kind_phys), intent(in) | smc, | ||
| real (kind=kind_phys), intent(in) | smcmax, | ||
| real (kind=kind_phys), intent(in) | psisat, | ||
| real (kind=kind_phys), intent(in) | bexp, | ||
| real (kind=kind_phys), intent(in) | dt, | ||
| real (kind=kind_phys), intent(in) | qtot, | ||
| real (kind=kind_phys), dimension(nsoil), intent(in) | zsoil, | ||
| real (kind=kind_phys), intent(inout) | sh2o, | ||
| real (kind=kind_phys), intent(out) | tsrc | ||
| ) |