subroutine gfssflx::transp |
( |
integer, intent(in) |
nsoil, |
|
|
integer, intent(in) |
nroot, |
|
|
real (kind=kind_phys), intent(in) |
etp1, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(in) |
smc, |
|
|
real (kind=kind_phys), intent(in) |
smcwlt, |
|
|
real (kind=kind_phys), intent(in) |
smcref, |
|
|
real (kind=kind_phys), intent(in) |
cmc, |
|
|
real (kind=kind_phys), intent(in) |
cmcmax, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(in) |
zsoil, |
|
|
real (kind=kind_phys), intent(in) |
shdfac, |
|
|
real (kind=kind_phys), intent(in) |
pc, |
|
|
real (kind=kind_phys), intent(in) |
cfactr, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(in) |
rtdis, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(out) |
et1 |
|
) |
| |