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