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