| subroutine, private module_sf_noahmplsm::energy |
( |
type (noahmp_parameters), intent(in) |
parameters, |
|
|
integer, intent(in) |
ice, |
|
|
integer, intent(in) |
vegtyp, |
|
|
integer, intent(in) |
ist, |
|
|
integer, intent(in) |
nsnow, |
|
|
integer, intent(in) |
nsoil, |
|
|
integer, intent(in) |
isnow, |
|
|
real (kind=kind_phys), intent(in) |
dt, |
|
|
real (kind=kind_phys), intent(in) |
rhoair, |
|
|
real (kind=kind_phys), intent(in) |
sfcprs, |
|
|
real (kind=kind_phys), intent(in) |
qair, |
|
|
real (kind=kind_phys), intent(in) |
sfctmp, |
|
|
real (kind=kind_phys), intent(in) |
thair, |
|
|
real (kind=kind_phys), intent(in) |
lwdn, |
|
|
real (kind=kind_phys), intent(in) |
uu, |
|
|
real (kind=kind_phys), intent(in) |
vv, |
|
|
real (kind=kind_phys), intent(in) |
zref, |
|
|
real (kind=kind_phys), intent(in) |
co2air, |
|
|
real (kind=kind_phys), intent(in) |
o2air, |
|
|
real (kind=kind_phys), dimension( 1: 2), intent(in) |
solad, |
|
|
real (kind=kind_phys), dimension( 1: 2), intent(in) |
solai, |
|
|
real (kind=kind_phys), intent(in) |
cosz, |
|
|
real (kind=kind_phys), intent(in) |
igs, |
|
|
real (kind=kind_phys), intent(in) |
eair, |
|
|
real (kind=kind_phys), intent(in) |
tbot, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |
zsnso, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) |
zsoil, |
|
|
real (kind=kind_phys), intent(in) |
elai, |
|
|
real (kind=kind_phys), intent(in) |
esai, |
|
|
real (kind=kind_phys), intent(in) |
fwet, |
|
|
real (kind=kind_phys), intent(in) |
foln, |
|
|
real (kind=kind_phys), intent(in) |
fveg, |
|
|
real (kind=kind_phys), intent(in) |
shdfac, |
|
|
real (kind=kind_phys), intent(in) |
pahv, |
|
|
real (kind=kind_phys), intent(in) |
pahg, |
|
|
real (kind=kind_phys), intent(in) |
pahb, |
|
|
real (kind=kind_phys), intent(in) |
qsnow, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |
dzsnso, |
|
|
real (kind=kind_phys), intent(in) |
lat, |
|
|
real (kind=kind_phys), intent(in) |
canliq, |
|
|
real (kind=kind_phys), intent(in) |
canice, |
|
|
integer, intent(in) |
iloc, |
|
|
integer, intent(in) |
jloc, |
|
|
logical, intent(in) |
thsfc_loc, |
|
|
real (kind=kind_phys), intent(in) |
prslkix, |
|
|
real (kind=kind_phys), intent(in) |
prsik1x, |
|
|
real (kind=kind_phys), intent(in) |
prslk1x, |
|
|
real (kind=kind_phys), intent(in) |
garea1, |
|
|
real (kind=kind_phys), intent(out) |
z0wrf, |
|
|
real (kind=kind_phys), intent(out) |
z0hwrf, |
|
|
integer, dimension(-nsnow+1:nsoil), intent(out) |
imelt, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(out) |
snicev, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(out) |
snliqv, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(out) |
epore, |
|
|
real (kind=kind_phys), intent(out) |
t2m, |
|
|
real (kind=kind_phys), intent(out) |
fsno, |
|
|
real (kind=kind_phys), intent(out) |
sav, |
|
|
real (kind=kind_phys), intent(out) |
sag, |
|
|
real (kind=kind_phys), intent(out) |
qmelt, |
|
|
real (kind=kind_phys), intent(out) |
fsa, |
|
|
real (kind=kind_phys), intent(out) |
fsr, |
|
|
real (kind=kind_phys), intent(out) |
taux, |
|
|
real (kind=kind_phys), intent(out) |
tauy, |
|
|
real (kind=kind_phys), intent(out) |
fira, |
|
|
real (kind=kind_phys), intent(out) |
fsh, |
|
|
real (kind=kind_phys), intent(out) |
fcev, |
|
|
real (kind=kind_phys), intent(out) |
fgev, |
|
|
real (kind=kind_phys), intent(out) |
fctr, |
|
|
real (kind=kind_phys), intent(out) |
trad, |
|
|
real (kind=kind_phys), intent(out) |
psn, |
|
|
real (kind=kind_phys), intent(out) |
apar, |
|
|
real (kind=kind_phys), intent(out) |
ssoil, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(out) |
btrani, |
|
|
real (kind=kind_phys), intent(out) |
btran, |
|
|
real (kind=kind_phys), intent(out) |
ponding, |
|
|
real (kind=kind_phys), intent(out) |
ts, |
|
|
real (kind=kind_phys), intent(out) |
latheav, |
|
|
real (kind=kind_phys), intent(out) |
latheag, |
|
|
logical, intent(out) |
frozen_canopy, |
|
|
logical, intent(out) |
frozen_ground, |
|
|
real (kind=kind_phys), intent(inout) |
tv, |
|
|
real (kind=kind_phys), intent(inout) |
tg, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |
stc, |
|
|
real (kind=kind_phys), intent(inout) |
snowh, |
|
|
real (kind=kind_phys), intent(inout) |
eah, |
|
|
real (kind=kind_phys), intent(inout) |
tah, |
|
|
real (kind=kind_phys), intent(inout) |
sneqvo, |
|
|
real (kind=kind_phys), intent(inout) |
sneqv, |
|
|
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(-nsnow+1: 0), intent(inout) |
snice, |
|
|
real (kind=kind_phys), dimension(-nsnow+1: 0), intent(inout) |
snliq, |
|
|
real (kind=kind_phys), intent(inout) |
albold, |
|
|
real (kind=kind_phys), intent(inout) |
cm, |
|
|
real (kind=kind_phys), intent(inout) |
ch, |
|
|
real (kind=kind_phys), intent(in) |
dx, |
|
|
real (kind=kind_phys), intent(in) |
dz8w, |
|
|
real (kind=kind_phys), intent(in) |
q2, |
|
|
real (kind=kind_phys), intent(inout) |
ustarx, |
|
|
|
ifdef, |
|
|
|
CCPP |
|
) |
| |
|
private |
1.9.4