subroutine __noahmpdrv_f90__::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 ) |
|
private |