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