subroutine, private noahmp_glacier_routines::snowwater_glacier |
( |
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) |
sfctmp, |
|
|
real (kind=kind_phys), intent(in) |
snowhin, |
|
|
real (kind=kind_phys), intent(in) |
qsnow, |
|
|
real (kind=kind_phys), intent(inout) |
qsnfro, |
|
|
real (kind=kind_phys), intent(inout) |
qsnsub, |
|
|
real (kind=kind_phys), intent(in) |
qrain, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:0), intent(in) |
ficeold, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) |
zsoil, |
|
|
integer, intent(inout) |
isnow, |
|
|
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( 1:nsoil), intent(inout) |
sh2o, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(inout) |
sice, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |
stc, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |
dzsnso, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |
zsnso, |
|
|
real (kind=kind_phys), intent(inout) |
fsh, |
|
|
real (kind=kind_phys), intent(out) |
qsnbot, |
|
|
real (kind=kind_phys), intent(out) |
snoflow, |
|
|
real (kind=kind_phys), intent(out) |
ponding1, |
|
|
real (kind=kind_phys), intent(out) |
ponding2 |
|
) |
| |
|
private |