subroutine, private noahmp_glacier_routines::energy_glacier |
( |
integer, intent(in) |
nsnow, |
|
|
integer, intent(in) |
nsoil, |
|
|
integer, intent(in) |
isnow, |
|
|
real, intent(in) |
dt, |
|
|
real, intent(in) |
qsnow, |
|
|
real, intent(in) |
rhoair, |
|
|
real, intent(in) |
eair, |
|
|
real, intent(in) |
sfcprs, |
|
|
real, intent(in) |
qair, |
|
|
real, intent(in) |
sfctmp, |
|
|
real, intent(in) |
lwdn, |
|
|
real, intent(in) |
uu, |
|
|
real, intent(in) |
vv, |
|
|
real, dimension( 1: 2), intent(in) |
solad, |
|
|
real, dimension( 1: 2), intent(in) |
solai, |
|
|
real, intent(in) |
cosz, |
|
|
real, intent(in) |
zref, |
|
|
real, intent(in) |
tbot, |
|
|
real, intent(in) |
zbot, |
|
|
real, dimension(-nsnow+1:nsoil), intent(in) |
zsnso, |
|
|
real, dimension(-nsnow+1:nsoil), intent(in) |
dzsnso, |
|
|
real, intent(inout) |
tg, |
|
|
real, dimension(-nsnow+1:nsoil), intent(inout) |
stc, |
|
|
real, intent(inout) |
snowh, |
|
|
real, intent(inout) |
sneqv, |
|
|
real, intent(inout) |
sneqvo, |
|
|
real, dimension( 1:nsoil), intent(inout) |
sh2o, |
|
|
real, dimension( 1:nsoil), intent(inout) |
smc, |
|
|
real, dimension(-nsnow+1: 0), intent(inout) |
snice, |
|
|
real, dimension(-nsnow+1: 0), intent(inout) |
snliq, |
|
|
real, intent(inout) |
albold, |
|
|
real, intent(inout) |
cm, |
|
|
real, intent(inout) |
ch, |
|
|
|
ifdef, |
|
|
|
CCPP |
|
) |
| |
|
private |