subroutine gfssflx::devap |
( |
real (kind=kind_phys), intent(in) |
etp1, |
|
|
real (kind=kind_phys), intent(in) |
smc, |
|
|
real (kind=kind_phys), intent(in) |
shdfac, |
|
|
real (kind=kind_phys), intent(in) |
smcmax, |
|
|
real (kind=kind_phys), intent(in) |
smcdry, |
|
|
real (kind=kind_phys), intent(in) |
fxexp, |
|
|
real (kind=kind_phys), intent(out) |
edir1 |
|
) |
| |
|
private |