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 |