subroutine, public clm_lake::clm_lake_run |
( |
logical, intent(in) |
flag_restart, |
|
|
integer, intent(in) |
im, |
|
|
integer, intent(in) |
km, |
|
|
integer, intent(in) |
me, |
|
|
integer, intent(in) |
master, |
|
|
real(kind_phys), intent(in) |
fhour, |
|
|
integer, dimension(4), intent(in) |
IDATE, |
|
|
integer, intent(in) |
kdt, |
|
|
integer, intent(in) |
iopt_lake, |
|
|
integer, intent(in) |
iopt_lake_clm, |
|
|
real(kind_phys), intent(in) |
min_lakeice, |
|
|
real(kind_phys), intent(in) |
lakedepth_default, |
|
|
logical, intent(in) |
use_lakedepth, |
|
|
real(kind_phys), intent(in) |
dtp, |
|
|
integer, dimension(:), intent(in) |
use_lake_model, |
|
|
real(kind_phys), dimension(:), intent(inout) |
clm_lake_initialized, |
|
|
logical, intent(in) |
frac_grid, |
|
|
logical, intent(in) |
frac_ice, |
|
|
integer, intent(in) |
lkm, |
|
|
real(kind_phys), dimension(:), intent(in) |
tg3, |
|
|
real(kind_phys), dimension(:), intent(in) |
pgr, |
|
|
real(kind_phys), dimension(:), intent(in) |
zlvl, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
gt0, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
prsi, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
phii, |
|
|
real(kind_phys), dimension(:), intent(in) |
qvcurr, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
gu0, |
|
|
real(kind_phys), dimension(:,:), intent(in) |
gv0, |
|
|
real(kind_phys), dimension(:), intent(in) |
xlat_d, |
|
|
real(kind_phys), dimension(:), intent(in) |
xlon_d, |
|
|
real(kind_phys), dimension(:), intent(in) |
ch, |
|
|
real(kind_phys), dimension(:), intent(in) |
cm, |
|
|
real(kind_phys), dimension(:), intent(in) |
dlwsfci, |
|
|
real(kind_phys), dimension(:), intent(in) |
dswsfci, |
|
|
real(kind_phys), dimension(:), intent(in) |
oro_lakedepth, |
|
|
real(kind_phys), dimension(:), intent(in) |
wind, |
|
|
real(kind_phys), dimension(:), intent(in) |
rho0, |
|
|
real(kind_phys), dimension(:), intent(inout) |
tsfc, |
|
|
logical, dimension(:), intent(in) |
flag_iter, |
|
|
integer, dimension(:), intent(in) |
ISLTYP, |
|
|
real(kind_phys), dimension(:), intent(in) |
rainncprv, |
|
|
real(kind_phys), dimension(:), intent(in) |
raincprv, |
|
|
real(kind_phys), dimension(:), intent(inout) |
evap_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
evap_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
hflx_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
hflx_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
gflx_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
gflx_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
ep1d_water, |
|
|
real(kind_phys), dimension(:), intent(inout) |
ep1d_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
tsurf_water, |
|
|
real(kind_phys), dimension(:), intent(inout) |
tsurf_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
tsfc_wat, |
|
|
real(kind_phys), dimension(:), intent(inout) |
tisfc, |
|
|
real(kind_phys), dimension(:), intent(inout) |
weasdi, |
|
|
real(kind_phys), dimension(:), intent(inout) |
snodi, |
|
|
real(kind_phys), dimension(:), intent(inout) |
hice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
qss_water, |
|
|
real(kind_phys), dimension(:), intent(inout) |
qss_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
cmm_water, |
|
|
real(kind_phys), dimension(:), intent(inout) |
cmm_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
chh_water, |
|
|
real(kind_phys), dimension(:), intent(inout) |
chh_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
uustar_water, |
|
|
real(kind_phys), dimension(:), intent(inout) |
uustar_ice, |
|
|
real(kind_phys), dimension(:), intent(inout) |
lake_t_snow, |
|
|
real(kind_phys), dimension(:), intent(inout) |
albedo, |
|
|
real(kind_phys), dimension(:), intent(inout) |
zorlw, |
|
|
real(kind_phys), dimension(:), intent(inout) |
zorli, |
|
|
real(kind_phys), dimension(:), intent(inout) |
lake_t2m, |
|
|
real(kind_phys), dimension(:), intent(inout) |
lake_q2m, |
|
|
real(kind_phys), dimension(:), intent(inout) |
weasd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
snowd, |
|
|
real(kind_phys), dimension(:), intent(inout) |
fice, |
|
|
logical, dimension(:), intent(inout) |
icy, |
|
|
integer, dimension( : ), intent(inout) |
salty, |
|
|
real(kind_phys), dimension(: ), intent(inout) |
savedtke12d, |
|
|
real(kind_phys), dimension(: ), intent(inout) |
snowdp2d, |
|
|
real(kind_phys), dimension(: ), intent(inout) |
h2osno2d, |
|
|
real(kind_phys), dimension(: ), intent(inout) |
snl2d, |
|
|
real(kind_phys), dimension(: ), intent(inout) |
t_grnd2d, |
|
|
real(kind_phys), dimension( :,: ), intent(inout) |
t_lake3d, |
|
|
real(kind_phys), dimension( :,: ), intent(inout) |
lake_icefrac3d, |
|
|
real(kind_phys), dimension( :,-nlevsnow+1: ), intent(inout) |
t_soisno3d, |
|
|
real(kind_phys), dimension( :,-nlevsnow+1: ), intent(inout) |
h2osoi_ice3d, |
|
|
real(kind_phys), dimension( :,-nlevsnow+1: ), intent(inout) |
h2osoi_liq3d, |
|
|
real(kind_phys), dimension( :,-nlevsnow+1: ), intent(inout) |
h2osoi_vol3d, |
|
|
real(kind_phys), dimension( :,-nlevsnow+1: ), intent(inout) |
z3d, |
|
|
real(kind_phys), dimension( :,-nlevsnow+1: ), intent(inout) |
dz3d, |
|
|
real(kind_phys), dimension( :,-nlevsnow+0: ), intent(inout) |
zi3d, |
|
|
real(kind_phys), dimension( :,: ), intent(inout) |
z_lake3d, |
|
|
real(kind_phys), dimension( :,: ), intent(inout) |
dz_lake3d, |
|
|
real(kind_phys), dimension( :,: ), intent(inout) |
watsat3d, |
|
|
real(kind_phys), dimension( :,: ), intent(inout) |
csol3d, |
|
|
real(kind_phys), dimension( :,: ), intent(inout) |
sand3d, |
|
|
real(kind_phys), dimension( :,: ), intent(inout) |
clay3d, |
|
|
real(kind_phys), dimension( :,: ), intent(inout) |
tkmg3d, |
|
|
real(kind_phys), dimension( :,: ), intent(inout) |
tkdry3d, |
|
|
real(kind_phys), dimension( :,: ), intent(inout) |
tksatu3d, |
|
|
real(kind_phys), dimension( : ), intent(inout) |
clm_lakedepth, |
|
|
integer, dimension( : ), intent(inout) |
cannot_freeze, |
|
|
integer, intent(out) |
errflg, |
|
|
character(*), intent(out) |
errmsg |
|
) |
| |