| 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(inout) | tsfc, | ||
| logical, dimension(:), intent(in) | flag_iter, | ||
| logical, dimension(:), intent(inout) | flag_lakefreeze, | ||
| 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(in) | t1, | ||
| real(kind_phys), dimension(:), intent(in) | qv1, | ||
| real(kind_phys), dimension(:), intent(in) | prsl1, | ||
| real(kind_phys), dimension( : ), intent(inout) | input_lakedepth, | ||
| real(kind_phys), dimension( : ), intent(inout) | clm_lakedepth, | ||
| integer, dimension( : ), intent(inout) | cannot_freeze, | ||
| integer, intent(out) | errflg, | ||
| character(*), intent(out) | errmsg ) |