| subroutine, private module_sf_noahmplsm::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 |
1.9.4