subroutine clm_lake::shallakehydrology |
( |
real(kind_lake), dimension(1,nlevlake), intent(in) |
dz_lake, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_rain, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_snow, |
|
|
real(kind_lake), dimension(1), intent(inout) |
begwb, |
|
|
real(kind_lake), dimension(1), intent(in) |
qflx_evap_tot, |
|
|
real(kind_lake), dimension(1), intent(in) |
forc_t, |
|
|
logical, dimension(1), intent(in) |
do_capsnow, |
|
|
real(kind_lake), dimension(1), intent(in) |
t_grnd, |
|
|
real(kind_lake), dimension(1), intent(in) |
qflx_evap_soi, |
|
|
real(kind_lake), dimension(1), intent(in) |
qflx_snomelt, |
|
|
integer, dimension(1,-nlevsnow+1:nlevsoil), intent(in) |
imelt, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) |
frac_iceold, |
|
|
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, |
|
|
integer, dimension(1), intent(inout) |
snl, |
|
|
real(kind_lake), dimension(1), intent(inout) |
h2osno, |
|
|
real(kind_lake), dimension(1), intent(inout) |
snowdp, |
|
|
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(out) |
endwb, |
|
|
real(kind_lake), dimension(1), intent(out) |
snowage, |
|
|
real(kind_lake), dimension(1), intent(out) |
snowice, |
|
|
real(kind_lake), dimension(1), intent(out) |
snowliq, |
|
|
real(kind_lake), dimension(1), intent(out) |
t_snow, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(out) |
t_soisno, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(out) |
h2osoi_ice, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(out) |
h2osoi_liq, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(out) |
h2osoi_vol, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_drain, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_surf, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_infl, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_qrgwl, |
|
|
real(kind_lake), dimension(1), intent(out) |
qcharge, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_prec_grnd, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_snowcap, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_snowcap_col, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_snow_grnd_pft, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_snow_grnd_col, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_rain_grnd, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_evap_tot_col, |
|
|
real(kind_lake), dimension(1), intent(out) |
soilalpha, |
|
|
real(kind_lake), dimension(1), intent(out) |
zwt, |
|
|
real(kind_lake), dimension(1), intent(out) |
fcov, |
|
|
real(kind_lake), dimension(1,1:nlevsoil), intent(out) |
rootr_column, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_evap_grnd, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_sub_snow, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_dew_snow, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_dew_grnd, |
|
|
real(kind_lake), dimension(1), intent(out) |
qflx_rain_grnd_col, |
|
|
real(kind_lake), dimension(1,nlevsoil) |
watsat, |
|
|
real(kind_lake), dimension(1,nlevsoil) |
tksatu, |
|
|
real(kind_lake), dimension(1,nlevsoil) |
tkmg, |
|
|
real(kind_lake), dimension(1,nlevsoil) |
tkdry, |
|
|
real(kind_lake), dimension(1,nlevsoil) |
csol, |
|
|
real(kind_lake), intent(in) |
dtime, |
|
|
character(*), intent(inout) |
errmsg, |
|
|
integer, intent(inout) |
errflg |
|
) |
| |
|
private |