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,-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), 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, |
|
|
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), intent(inout) | input_lakedepth, |
|
|
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 |