subroutine gfssflx::hrt |
( |
integer, intent(in) | nsoil, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(in) | stc, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(in) | smc, |
|
|
real (kind=kind_phys), intent(in) | smcmax, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(in) | zsoil, |
|
|
real (kind=kind_phys), intent(in) | yy, |
|
|
real (kind=kind_phys), intent(in) | zz1, |
|
|
real (kind=kind_phys), intent(in) | tbot, |
|
|
real (kind=kind_phys), intent(in) | zbot, |
|
|
real (kind=kind_phys), intent(in) | psisat, |
|
|
real (kind=kind_phys), intent(in) | dt, |
|
|
real (kind=kind_phys), intent(in) | bexp, |
|
|
real (kind=kind_phys), intent(in) | df1, |
|
|
real (kind=kind_phys), intent(in) | quartz, |
|
|
real (kind=kind_phys), intent(in) | csoil, |
|
|
integer, intent(in) | vegtyp, |
|
|
real (kind=kind_phys), intent(in) | shdfac, |
|
|
logical, intent(in) | lheatstrg, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(inout) | sh2o, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(out) | rhsts, |
|
|
real (kind=kind_phys), dimension(nsold), intent(out) | ai, |
|
|
real (kind=kind_phys), dimension(nsold), intent(out) | bi, |
|
|
real (kind=kind_phys), dimension(nsold), intent(out) | ci ) |
|
private |