subroutine gfssflx::evapo |
( |
integer, intent(in) |
nsoil, |
|
|
integer, intent(in) |
nroot, |
|
|
real (kind=kind_phys), intent(in) |
cmc, |
|
|
real (kind=kind_phys), intent(in) |
cmcmax, |
|
|
real (kind=kind_phys), intent(in) |
etp1, |
|
|
real (kind=kind_phys), intent(in) |
dt, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(in) |
zsoil, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(in) |
sh2o, |
|
|
real (kind=kind_phys), intent(in) |
smcmax, |
|
|
real (kind=kind_phys), intent(in) |
smcwlt, |
|
|
real (kind=kind_phys), intent(in) |
smcref, |
|
|
real (kind=kind_phys), intent(in) |
smcdry, |
|
|
real (kind=kind_phys), intent(in) |
pc, |
|
|
real (kind=kind_phys), intent(in) |
shdfac, |
|
|
real (kind=kind_phys), intent(in) |
cfactr, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(in) |
rtdis, |
|
|
real (kind=kind_phys), intent(in) |
fxexp, |
|
|
real (kind=kind_phys), intent(out) |
eta1, |
|
|
real (kind=kind_phys), intent(out) |
edir1, |
|
|
real (kind=kind_phys), intent(out) |
ec1, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(out) |
et1, |
|
|
real (kind=kind_phys), intent(out) |
ett1 |
|
) |
| |