subroutine, private module_sf_noahmplsm::water |
( |
type (noahmp_parameters), intent(in) |
parameters, |
|
|
integer, intent(in) |
vegtyp, |
|
|
integer, intent(in) |
nsnow, |
|
|
integer, intent(in) |
nsoil, |
|
|
integer, dimension(-nsnow+1:0), intent(in) |
imelt, |
|
|
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) |
fcev, |
|
|
real (kind=kind_phys), intent(in) |
fctr, |
|
|
real (kind=kind_phys), intent(in) |
qprecc, |
|
|
real (kind=kind_phys), intent(in) |
qprecl, |
|
|
real (kind=kind_phys), intent(in) |
elai, |
|
|
real (kind=kind_phys), intent(in) |
esai, |
|
|
real (kind=kind_phys), intent(in) |
sfctmp, |
|
|
real (kind=kind_phys), intent(in) |
qvap, |
|
|
real (kind=kind_phys), intent(in) |
qdew, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) |
zsoil, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) |
btrani, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(in) |
ficeold, |
|
|
real (kind=kind_phys), intent(inout) |
ponding, |
|
|
real (kind=kind_phys), intent(in) |
tg, |
|
|
integer, intent(in) |
ist, |
|
|
real (kind=kind_phys), intent(in) |
fveg, |
|
|
integer, intent(in) |
iloc, |
|
|
integer, intent(in) |
jloc, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) |
smceq, |
|
|
real (kind=kind_phys), intent(in) |
bdfall, |
|
|
real (kind=kind_phys), intent(in) |
fp, |
|
|
real (kind=kind_phys), intent(in) |
rain, |
|
|
real (kind=kind_phys), intent(in) |
snow, |
|
|
real (kind=kind_phys), intent(in) |
qsnow, |
|
|
real (kind=kind_phys), intent(in) |
qrain, |
|
|
real (kind=kind_phys), intent(in) |
snowhin, |
|
|
real (kind=kind_phys), intent(in) |
latheav, |
|
|
real (kind=kind_phys), intent(in) |
latheag, |
|
|
logical, intent(in) |
frozen_canopy, |
|
|
logical, intent(in) |
frozen_ground, |
|
|
integer, intent(inout) |
isnow, |
|
|
real (kind=kind_phys), intent(inout) |
canliq, |
|
|
real (kind=kind_phys), intent(inout) |
canice, |
|
|
real (kind=kind_phys), intent(inout) |
tv, |
|
|
real (kind=kind_phys), intent(inout) |
snowh, |
|
|
real (kind=kind_phys), intent(inout) |
sneqv, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(inout) |
snice, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(inout) |
snliq, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |
stc, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |
zsnso, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(inout) |
sh2o, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(inout) |
smc, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(inout) |
sice, |
|
|
real (kind=kind_phys), intent(inout) |
zwt, |
|
|
real (kind=kind_phys), intent(inout) |
wa, |
|
|
real (kind=kind_phys), intent(inout) |
wt, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |
dzsnso, |
|
|
real (kind=kind_phys), intent(inout) |
wslake, |
|
|
real (kind=kind_phys), intent(inout) |
smcwtd, |
|
|
real (kind=kind_phys), intent(inout) |
deeprech, |
|
|
real (kind=kind_phys), intent(inout) |
rech, |
|
|
real (kind=kind_phys), intent(out) |
cmc, |
|
|
real (kind=kind_phys), intent(out) |
ecan, |
|
|
real (kind=kind_phys), intent(out) |
etran, |
|
|
real (kind=kind_phys), intent(out) |
fwet, |
|
|
real (kind=kind_phys), intent(out) |
runsrf, |
|
|
real (kind=kind_phys), intent(out) |
runsub, |
|
|
real (kind=kind_phys), intent(out) |
qin, |
|
|
real (kind=kind_phys), intent(out) |
qdis, |
|
|
real (kind=kind_phys), intent(out) |
ponding1, |
|
|
real (kind=kind_phys), intent(out) |
ponding2, |
|
|
real (kind=kind_phys), intent(out) |
qsnbot, |
|
|
real (kind=kind_phys), intent(out) |
esnow |
|
) |
| |
|
private |