subroutine, private module_sf_noahmplsm::compact |
( |
type (noahmp_parameters), intent(in) |
parameters, |
|
|
integer, intent(in) |
nsnow, |
|
|
integer, intent(in) |
nsoil, |
|
|
real, intent(in) |
dt, |
|
|
real, dimension(-nsnow+1:nsoil), intent(in) |
stc, |
|
|
real, dimension(-nsnow+1: 0), intent(in) |
snice, |
|
|
real, dimension(-nsnow+1: 0), intent(in) |
snliq, |
|
|
real, dimension( 1:nsoil), intent(in) |
zsoil, |
|
|
integer, dimension(-nsnow+1:0), intent(in) |
imelt, |
|
|
real, dimension(-nsnow+1: 0), intent(in) |
ficeold, |
|
|
integer, intent(in) |
iloc, |
|
|
integer, intent(in) |
jloc, |
|
|
integer, intent(inout) |
isnow, |
|
|
real, dimension(-nsnow+1:nsoil), intent(inout) |
dzsnso, |
|
|
real, dimension(-nsnow+1:nsoil), intent(inout) |
zsnso |
|
) |
| |
|
private |