subroutine noahmpdrv::penman |
( |
real(kind=kind_phys), intent(in) |
sfctmp, |
|
|
real(kind=kind_phys), intent(in) |
sfcprs, |
|
|
real(kind=kind_phys), intent(in) |
ch, |
|
|
real(kind=kind_phys), intent(in) |
t2v, |
|
|
real(kind=kind_phys), intent(in) |
th2, |
|
|
real(kind=kind_phys), intent(in) |
prcp, |
|
|
real(kind=kind_phys), intent(in) |
fdown, |
|
|
real(kind=kind_phys), intent(in) |
ssoil, |
|
|
real(kind=kind_phys), intent(in) |
q2, |
|
|
real(kind=kind_phys), intent(in) |
q2sat, |
|
|
real(kind=kind_phys), intent(out) |
etp, |
|
|
logical, intent(in) |
snowng, |
|
|
logical, intent(in) |
frzgra, |
|
|
real(kind=kind_phys), intent(in) |
ffrozp, |
|
|
real(kind=kind_phys), intent(in) |
dqsdt2, |
|
|
real(kind=kind_phys), intent(in) |
emissi_in, |
|
|
real(kind=kind_phys), intent(in) |
sncovr |
|
) |
| |