subroutine clm_lake::lakemain |
( |
real(kind_lake), dimension(1), intent(in) |
forc_t, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_pbot, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_psrf, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_hgt, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_hgt_q, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_hgt_t, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_hgt_u, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_q, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_u, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_v, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_lwrad, |
|
|
real(kind_lake), dimension(1), intent(in) |
prec, |
|
|
real(kind_lake), dimension(1), intent(in) |
sabg, |
|
|
real(kind_lake), dimension(1), intent(in) |
lat, |
|
|
real(kind_lake), dimension(1,nlevlake), intent(in) |
z_lake, |
|
|
real(kind_lake), dimension(1,nlevlake), intent(in) |
dz_lake, |
|
|
real(kind_lake), dimension(1), intent(in) |
lakedepth, |
|
|
logical, dimension(1), intent(in) |
do_capsnow, |
|
|
real(kind_lake), dimension(1), intent(inout) |
h2osno, |
|
|
real(kind_lake), dimension(1), intent(inout) |
snowdp, |
|
|
integer, dimension(1), intent(inout) |
snl, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) |
z, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) |
dz, |
|
|
real(kind_lake), dimension(1,-nlevsnow+0:nlevsoil), intent(inout) |
zi, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) |
h2osoi_vol, |
|
|
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), intent(inout) |
t_grnd, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) |
t_soisno, |
|
|
real(kind_lake), dimension(1,nlevlake), intent(inout) |
t_lake, |
|
|
real(kind_lake), dimension(1), intent(inout) |
savedtke1, |
|
|
real(kind_lake), dimension(1,nlevlake), intent(inout) |
lake_icefrac, |
|
|
real(kind_lake), dimension(1), intent(out) |
eflx_lwrad_net, |
|
|
real(kind_lake), dimension(1), intent(out) |
eflx_gnet, |
|
|
real(kind_lake), dimension(1), intent(out) |
eflx_sh_tot, |
|
|
real(kind_lake), dimension(1), intent(out) |
eflx_lh_tot, |
|
|
real(kind_lake), dimension(1), intent(out) |
t_ref2m, |
|
|
real(kind_lake), dimension(1), intent(out) |
q_ref2m, |
|
|
real(kind_lake), intent(in) |
dtime, |
|
|
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(1), intent(out) |
taux, |
|
|
real(kind_lake), dimension(1), intent(out) |
tauy, |
|
|
real(kind_lake), dimension(1), intent(out) |
ram1, |
|
|
real(kind_lake), dimension(1), intent(out) |
z0mg, |
|
|
real(kind_lake), dimension(1), intent(out) |
ustar_out, |
|
|
character(*), intent(inout) |
errmsg, |
|
|
integer, intent(inout) |
errflg, |
|
|
real(kind_lake), intent(in) |
xlat_d, |
|
|
real(kind_lake), intent(in) |
xlon_d |
|
) |
| |
|
private |