subroutine clm_lake::soilthermprop_lake |
( |
integer, dimension(1), intent(in) |
snl, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(in) |
dz, |
|
|
real(kind_lake), dimension(1,-nlevsnow+0:nlevsoil), intent(in) |
zi, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(in) |
z, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(in) |
t_soisno, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(in) |
h2osoi_liq, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(in) |
h2osoi_ice, |
|
|
real(kind_lake), dimension(1,nlevsoil), intent(in) |
watsat, |
|
|
real(kind_lake), dimension(1,nlevsoil), intent(in) |
tksatu, |
|
|
real(kind_lake), dimension(1,nlevsoil), intent(in) |
tkmg, |
|
|
real(kind_lake), dimension(1,nlevsoil), intent(in) |
tkdry, |
|
|
real(kind_lake), dimension(1,nlevsoil), intent(in) |
csol, |
|
|
real(kind_lake), dimension(lbc:ubc,-nlevsnow+1:nlevsoil), intent(out) |
tk, |
|
|
real(kind_lake), dimension(lbc:ubc,-nlevsnow+1:nlevsoil), intent(out) |
cv, |
|
|
real(kind_lake), dimension(lbc:ubc), intent(out) |
tktopsoillay, |
|
|
character(*), intent(inout) |
errmsg, |
|
|
integer, intent(inout) |
errflg |
|
) |
| |
|
private |