subroutine clm_lake::phasechange_lake |
( |
integer, dimension(1), intent(in) |
snl, |
|
|
real(kind_lake), dimension(1), intent(inout) |
h2osno, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(in) |
dz, |
|
|
real(kind_lake), dimension(1,nlevlake), intent(in) |
dz_lake, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) |
t_soisno, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) |
h2osoi_liq, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) |
h2osoi_ice, |
|
|
real(kind_lake), dimension(1,nlevlake), intent(inout) |
lake_icefrac, |
|
|
real(kind_lake), dimension(1,nlevlake), intent(inout) |
t_lake, |
|
|
real(kind_lake), dimension(1), intent(inout) |
snowdp, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_snomelt, |
|
|
real(kind_lake), dimension(1), intent(out) |
eflx_snomelt, |
|
|
integer, dimension(1,-nlevsnow+1:nlevsoil), intent(out) |
imelt, |
|
|
real(kind_lake), dimension(lbc:ubc,-nlevsnow+1:nlevsoil), intent(inout) |
cv, |
|
|
real(kind_lake), dimension (lbc:ubc,1:nlevlake), intent(inout) |
cv_lake, |
|
|
real(kind_lake), dimension(lbc:ubc), intent(out) |
lhabs |
|
) |
| |
|
private |