subroutine __module_sf_noahmplsm_f90__::precip_heat |
( |
type (noahmp_parameters), intent(in) | parameters, |
|
|
integer, intent(in) | iloc, |
|
|
integer, intent(in) | jloc, |
|
|
integer, intent(in) | vegtyp, |
|
|
real (kind=kind_phys), intent(in) | dt, |
|
|
real (kind=kind_phys), intent(in) | uu, |
|
|
real (kind=kind_phys), intent(in) | vv, |
|
|
real (kind=kind_phys), intent(in) | elai, |
|
|
real (kind=kind_phys), intent(in) | esai, |
|
|
real (kind=kind_phys), intent(in) | fveg, |
|
|
integer, intent(in) | ist, |
|
|
real (kind=kind_phys), intent(in) | bdfall, |
|
|
real (kind=kind_phys), intent(in) | rain, |
|
|
real (kind=kind_phys), intent(in) | snow, |
|
|
real (kind=kind_phys), intent(in) | fp, |
|
|
real (kind=kind_phys), intent(inout) | canliq, |
|
|
real (kind=kind_phys), intent(inout) | canice, |
|
|
real (kind=kind_phys), intent(in) | tv, |
|
|
real (kind=kind_phys), intent(in) | sfctmp, |
|
|
real (kind=kind_phys), intent(in) | tg, |
|
|
real (kind=kind_phys), intent(out) | qintr, |
|
|
real (kind=kind_phys), intent(out) | qdripr, |
|
|
real (kind=kind_phys), intent(out) | qthror, |
|
|
real (kind=kind_phys), intent(out) | qints, |
|
|
real (kind=kind_phys), intent(out) | qdrips, |
|
|
real (kind=kind_phys), intent(out) | qthros, |
|
|
real (kind=kind_phys), intent(out) | pahv, |
|
|
real (kind=kind_phys), intent(out) | pahg, |
|
|
real (kind=kind_phys), intent(out) | pahb, |
|
|
real (kind=kind_phys), intent(out) | qrain, |
|
|
real (kind=kind_phys), intent(out) | qsnow, |
|
|
real (kind=kind_phys), intent(out) | snowhin, |
|
|
real (kind=kind_phys), intent(out) | fwet, |
|
|
real (kind=kind_phys), intent(out) | cmc ) |
|
private |