subroutine clm_lake::lakeini |
( |
integer, intent(in) |
kdt, |
|
|
integer, dimension(im), intent(in) |
ISLTYP, |
|
|
real(kind_phys), dimension(im,km), intent(in) |
gt0, |
|
|
real(kind_phys), dimension(im), intent(inout) |
snowd, |
|
|
real(kind_phys), dimension(im), intent(inout) |
weasd, |
|
|
real(kind_phys), intent(in) |
lakedepth_default, |
|
|
real(kind_phys), intent(in) |
fhour, |
|
|
real(kind_phys), dimension(im), intent(in) |
oro_lakedepth, |
|
|
real(kind_phys), dimension(im), intent(out) |
savedtke12d, |
|
|
real(kind_phys), dimension(im), intent(out) |
snowdp2d, |
|
|
real(kind_phys), dimension(im), intent(out) |
h2osno2d, |
|
|
real(kind_phys), dimension(im), intent(out) |
snl2d, |
|
|
real(kind_phys), dimension(im), intent(out) |
t_grnd2d, |
|
|
real(kind_phys), dimension(im,nlevlake), intent(out) |
t_lake3d, |
|
|
real(kind_phys), dimension(im,nlevlake), intent(out) |
lake_icefrac3d, |
|
|
real(kind_phys), dimension(im,nlevlake), intent(out) |
z_lake3d, |
|
|
real(kind_phys), dimension(im,nlevlake), intent(out) |
dz_lake3d, |
|
|
real(kind_phys), dimension(im,-nlevsnow+1:nlevsoil ), intent(out) |
t_soisno3d, |
|
|
real(kind_phys), dimension(im,-nlevsnow+1:nlevsoil ), intent(out) |
h2osoi_ice3d, |
|
|
real(kind_phys), dimension(im,-nlevsnow+1:nlevsoil ), intent(out) |
h2osoi_liq3d, |
|
|
real(kind_phys), dimension(im,-nlevsnow+1:nlevsoil ), intent(out) |
h2osoi_vol3d, |
|
|
real(kind_phys), dimension(im,-nlevsnow+1:nlevsoil ), intent(out) |
z3d, |
|
|
real(kind_phys), dimension(im,-nlevsnow+1:nlevsoil ), intent(out) |
dz3d, |
|
|
real(kind_phys), dimension( im,-nlevsnow+0:nlevsoil ), intent(out) |
zi3d, |
|
|
real(kind_phys), dimension(im,nlevsoil), intent(out) |
watsat3d, |
|
|
real(kind_phys), dimension(im,nlevsoil), intent(out) |
csol3d, |
|
|
real(kind_phys), dimension(im,nlevsoil), intent(out) |
tkmg3d, |
|
|
real(kind_phys), dimension(im), intent(inout) |
fice, |
|
|
real(kind_phys), dimension(im), intent(inout) |
hice, |
|
|
real(kind_phys), intent(in) |
min_lakeice, |
|
|
real(kind_phys), dimension(im), intent(in) |
tsfc, |
|
|
integer, dimension(im), intent(in) |
use_lake_model, |
|
|
logical, intent(in) |
use_lakedepth, |
|
|
real(kind_phys), dimension(im,nlevsoil), intent(out) |
tkdry3d, |
|
|
real(kind_phys), dimension(im,nlevsoil), intent(out) |
tksatu3d, |
|
|
integer, intent(in) |
im, |
|
|
real(kind_phys), dimension(im,km), intent(in) |
prsi, |
|
|
real(kind_phys), dimension(im), intent(in) |
xlat_d, |
|
|
real(kind_phys), dimension(im), intent(in) |
xlon_d, |
|
|
real(kind_phys), dimension(im), intent(inout) |
clm_lake_initialized, |
|
|
real(kind_phys), dimension(im,nlevsoil), intent(inout) |
sand3d, |
|
|
real(kind_phys), dimension(im,nlevsoil), intent(inout) |
clay3d, |
|
|
real(kind_phys), dimension(im), intent(in) |
tg3, |
|
|
real(kind_phys), dimension(im), intent(inout) |
clm_lakedepth, |
|
|
integer, intent(in) |
km, |
|
|
integer, intent(in) |
me, |
|
|
integer, intent(in) |
master, |
|
|
character(*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |
|
private |