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 ) |