clm_lake_run()

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), optional	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), optional	rainncprv,
		real(kind_phys), dimension(:), intent(in), optional	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), optional	lake_t_snow,
		real(kind_phys), dimension(:), intent(inout), optional	albedo,
		real(kind_phys), dimension(:), intent(inout)	zorlw,
		real(kind_phys), dimension(:), intent(inout)	zorli,
		real(kind_phys), dimension(:), intent(inout), optional	lake_t2m,
		real(kind_phys), dimension(:), intent(inout), optional	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), optional	salty,
		real(kind_phys), dimension(: ), intent(inout), optional	savedtke12d,
		real(kind_phys), dimension(: ), intent(inout), optional	snowdp2d,
		real(kind_phys), dimension(: ), intent(inout), optional	h2osno2d,
		real(kind_phys), dimension(: ), intent(inout), optional	snl2d,
		real(kind_phys), dimension(: ), intent(inout), optional	t_grnd2d,
		real(kind_phys), dimension( :,: ), intent(inout), optional	t_lake3d,
		real(kind_phys), dimension( :,: ), intent(inout), optional	lake_icefrac3d,
		real(kind_phys), dimension( :,-nlevsnow+1: ), intent(inout), optional	t_soisno3d,
		real(kind_phys), dimension( :,-nlevsnow+1: ), intent(inout), optional	h2osoi_ice3d,
		real(kind_phys), dimension( :,-nlevsnow+1: ), intent(inout), optional	h2osoi_liq3d,
		real(kind_phys), dimension( :,-nlevsnow+1: ), intent(inout), optional	h2osoi_vol3d,
		real(kind_phys), dimension( :,-nlevsnow+1: ), intent(inout), optional	z3d,
		real(kind_phys), dimension( :,-nlevsnow+1: ), intent(inout), optional	dz3d,
		real(kind_phys), dimension( :,-nlevsnow+0: ), intent(inout), optional	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), optional	input_lakedepth,
		real(kind_phys), dimension( : ), intent(inout), optional	clm_lakedepth,
		integer, dimension( : ), intent(inout), optional	cannot_freeze,
		integer, intent(out)	errflg,
		character(*), intent(out)	errmsg )

Argument Table

local_name	standard_name	long_name	units	type	dimensions	kind	intent
flag_restart	flag_for_restart	flag for restart (warmstart) or coldstart	flag	logical	()		in
im	horizontal_loop_extent	horizontal loop extent	count	integer	()		in
km	vertical_layer_dimension	number of vertical levels	count	integer	()		in
me	mpi_rank	current MPI-rank	index	integer	()		in
master	mpi_root	master MPI-rank	index	integer	()		in
fhour	forecast_time	current forecast time	h	real	()	kind_phys	in
idate	date_and_time_at_model_initialization_in_united_states_order	initial date with different size and ordering	none	integer	(ccpp_constant_one:4)		in
kdt	index_of_timestep	current forecast iteration	index	integer	()		in
iopt_lake	control_for_lake_model_selection	control for lake model selection	1	integer	()		in
iopt_lake_clm	clm_lake_model_control_selection_value	value that indicates clm lake model in the control for lake model selection	1	integer	()		in
min_lakeice	min_lake_ice_area_fraction	minimum lake ice value	frac	real	()	kind_phys	in
lakedepth_default	default_lake_depth_in_clm_lake_model	default lake depth in clm lake model	m	real	()	kind_phys	in
use_lakedepth	flag_for_initializing_clm_lake_depth_from_lake_depth	flag for initializing clm lake depth from lake depth	flag	logical	()		in
dtp	timestep_for_physics	physics timestep	s	real	()	kind_phys	in
use_lake_model	flag_for_using_lake_model	flag indicating lake points using a lake model	flag	integer	(ccpp_constant_one:horizontal_loop_extent)		inout
clm_lake_initialized	flag_for_clm_lake_initialization	set to true in clm_lake_run after likeini is called, as a workaround for ccpp limitation	flag	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
frac_grid	flag_for_fractional_landmask	flag for fractional grid	flag	logical	()		in
frac_ice	flag_for_fractional_ice_when_fractional_landmask_is_disabled	flag for fractional ice when fractional landmask is disabled	flag	logical	()		in
lkm	control_for_lake_model_execution_method	control for lake model execution: 0=no lake, 1=lake, 2=lake+nsst	flag	integer	()		in
tg3	deep_soil_temperature	deep soil temperature	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
pgr	surface_air_pressure	surface pressure	Pa	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
zlvl	height_above_ground_at_lowest_model_layer	layer 1 height above ground (not MSL)	m	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
gt0	air_temperature_of_new_state	temperature updated by physics	K	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
prsi	air_pressure_at_interface	air pressure at model layer interfaces	Pa	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
phii	geopotential_at_interface	geopotential at model layer interfaces	m2 s-2	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
qvcurr	specific_humidity_of_new_state_at_surface_adjacent_layer	water vapor specific humidity at lowest model layer updated by physics	kg kg-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
gu0	x_wind_of_new_state	zonal wind updated by physics	m s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
gv0	y_wind_of_new_state	meridional wind updated by physics	m s-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
xlat_d	latitude_in_degree	latitude in degree north	degree_north	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
xlon_d	longitude_in_degree	longitude in degree east	degree_east	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
ch	surface_drag_coefficient_for_heat_and_moisture_in_air_over_water	surface exchange coeff heat surface exchange coeff heat & moisture over ocean moisture over water	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
cm	surface_drag_coefficient_for_momentum_in_air_over_water	surface exchange coeff for momentum over water	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
dlwsfci	surface_downwelling_longwave_flux	surface downwelling longwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
dswsfci	surface_downwelling_shortwave_flux	surface downwelling shortwave flux at current time	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
raincprv	lwe_thickness_of_convective_precipitation_amount_on_previous_timestep	convective_precipitation_amount from previous timestep	m	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
rainncprv	lwe_thickness_of_explicit_precipitation_amount_on_previous_timestep	explicit rainfall from previous timestep	m	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
oro_lakedepth	lake_depth	lake depth	m	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
input_lakedepth	lake_depth_before_correction	lake depth_before_correction	m	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
wind	wind_speed_at_lowest_model_layer	wind speed at lowest model level	m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
tsfc	surface_skin_temperature	surface skin temperature	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
flag_iter	flag_for_iteration	flag for iteration	flag	logical	(ccpp_constant_one:horizontal_loop_extent)		in
flag_lakefreeze	flag_for_lake_water_freeze	flag for lake water freeze	flag	logical	(ccpp_constant_one:horizontal_loop_extent)		inout
isltyp	soil_type_classification	soil type at each grid cell	index	integer	(ccpp_constant_one:horizontal_loop_extent)		in
evap_wat	kinematic_surface_upward_latent_heat_flux_over_water	kinematic surface upward latent heat flux over water	kg kg-1 m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
evap_ice	kinematic_surface_upward_latent_heat_flux_over_ice	kinematic surface upward latent heat flux over ice	kg kg-1 m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
hflx_wat	kinematic_surface_upward_sensible_heat_flux_over_water	kinematic surface upward sensible heat flux over water	K m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
hflx_ice	kinematic_surface_upward_sensible_heat_flux_over_ice	kinematic surface upward sensible heat flux over ice	K m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
gflx_wat	upward_heat_flux_in_soil_over_water	soil heat flux over water	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
gflx_ice	upward_heat_flux_in_soil_over_ice	soil heat flux over ice	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
ep1d_water	surface_upward_potential_latent_heat_flux_over_water	surface upward potential latent heat flux over water	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
ep1d_ice	surface_upward_potential_latent_heat_flux_over_ice	surface upward potential latent heat flux over ice	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
tsurf_water	surface_skin_temperature_after_iteration_over_water	surface skin temperature after iteration over water	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
tsurf_ice	surface_skin_temperature_after_iteration_over_ice	surface skin temperature after iteration over ice	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
tsfc_wat	surface_skin_temperature_over_water	surface skin temperature over water	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
tisfc	surface_skin_temperature_over_ice	surface skin temperature over ice	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
weasdi	water_equivalent_accumulated_snow_depth_over_ice	water equiv of acc snow depth over land	mm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
snodi	surface_snow_thickness_water_equivalent_over_ice	water equivalent snow depth over ice	mm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
hice	sea_ice_thickness	sea ice thickness	m	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
qss_water	surface_specific_humidity_over_water	surface air saturation specific humidity over water	kg kg-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
qss_ice	surface_specific_humidity_over_ice	surface air saturation specific humidity over ice	kg kg-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
cmm_water	surface_drag_wind_speed_for_momentum_in_air_over_water	momentum exchange coefficient over water	m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
cmm_ice	surface_drag_wind_speed_for_momentum_in_air_over_ice	momentum exchange coefficient over ice	m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
chh_water	surface_drag_mass_flux_for_heat_and_moisture_in_air_over_water	thermal exchange coefficient over water	kg m-2 s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
chh_ice	surface_drag_mass_flux_for_heat_and_moisture_in_air_over_ice	thermal exchange coefficient over ice	kg m-2 s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
uustar_water	surface_friction_velocity_over_water	surface friction velocity over water	m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
uustar_ice	surface_friction_velocity_over_ice	surface friction velocity over ice	m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
lake_t_snow	temperature_of_snow_on_lake	the temperature of snow on a lake	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
albedo	mid_day_surface_albedo_over_lake	mid day surface albedo over lake	fraction	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
zorlw	surface_roughness_length_over_water	surface roughness length over water	cm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
zorli	surface_roughness_length_over_ice	surface roughness length over ice	cm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
lake_t2m	temperature_at_2m_from_clm_lake	temperature at 2m from clm lake	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
lake_q2m	specific_humidity_at_2m_from_clm_lake	specific humidity at 2m from clm lake	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
weasd	lwe_thickness_of_surface_snow_amount	water equiv of acc snow depth over land and sea ice	mm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
snowd	lwe_surface_snow	water equivalent snow depth	mm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
fice	sea_ice_area_fraction_of_sea_area_fraction	ice fraction over open water	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
icy	flag_nonzero_sea_ice_surface_fraction	flag indicating presence of some sea ice surface area fraction	flag	logical	(ccpp_constant_one:horizontal_loop_extent)		inout
salty	clm_lake_is_salty	lake at this point is salty (1) or not (0)	1	integer	(ccpp_constant_one:horizontal_loop_extent)		inout
cannot_freeze	clm_lake_cannot_freeze	lake at this point is so salty it cannot freeze	1	integer	(ccpp_constant_one:horizontal_loop_extent)		inout
savedtke12d	top_level_eddy_conductivity_from_previous_timestep_in_clm_lake_model	top level eddy conductivity from previous timestep in clm lake model	kg m-3	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
snowdp2d	actual_snow_depth_in_clm_lake_model	actual acc snow depth over lake in clm lake model	m	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
h2osno2d	water_equivalent_accumulated_snow_depth_in_clm_lake_model	water equiv of acc snow depth over lake in clm lake model	mm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
snl2d	snow_layers_in_clm_lake_model	snow layers in clm lake model (treated as integer)	count	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
t_grnd2d	skin_temperature_from_lake_model	skin_temperature_from_lake_model	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
t_lake3d	lake_layer_temperature_from_clm_lake_model	lake layer temperature from clm lake model	K	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:lake_vertical_dimension_for_clm_lake_model)	kind_phys	inout
lake_icefrac3d	lake_fractional_ice_cover_on_clm_lake_levels	lake fractional ice cover on clm lake levels	kg m-3	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:lake_vertical_dimension_for_clm_lake_model)	kind_phys	inout
t_soisno3d	soil_or_snow_layer_temperature_from_clm_lake_model	soil or snow layer temperature from clm lake model	K	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:snow_plus_soil_minus_one_vertical_dimension_for_clm_lake_model)	kind_phys	inout
h2osoi_ice3d	soil_ice_water_content_in_clm_lake_model	soil ice water content in clm lake model	kg m-3	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:snow_plus_soil_minus_one_vertical_dimension_for_clm_lake_model)	kind_phys	inout
h2osoi_liq3d	soil_liquid_water_content_in_clm_lake_model	soil liquid water content in clm lake model	kg m-3	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:snow_plus_soil_minus_one_vertical_dimension_for_clm_lake_model)	kind_phys	inout
h2osoi_vol3d	volumetric_soil_water_in_clm_lake_model	volumetric soil water in clm lake model	m3 m-3	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:snow_plus_soil_minus_one_vertical_dimension_for_clm_lake_model)	kind_phys	inout
z3d	snow_level_depth_in_clm_lake_model	snow level depth in clm lake model	m	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:snow_plus_soil_minus_one_vertical_dimension_for_clm_lake_model)	kind_phys	inout
dz3d	snow_level_thickness_in_clm_lake_model	snow level thickness in clm lake model	m	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:snow_plus_soil_minus_one_vertical_dimension_for_clm_lake_model)	kind_phys	inout
zi3d	snow_interface_depth_in_clm_lake_model	snow interface_depth in clm lake model	m	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:snow_plus_soil_vertical_dimension_for_clm_lake_model)	kind_phys	inout
clm_lakedepth	clm_lake_depth	clm internal copy of lake depth with 10.0 replaced by default lake depth	m	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
t1	air_temperature_at_surface_adjacent_layer	mean temperature at lowest model layer	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
qv1	specific_humidity_at_surface_adjacent_layer	water vapor specific humidity at lowest model layer	kg kg-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
prsl1	air_pressure_at_surface_adjacent_layer	mean pressure at lowest model layer	Pa	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
errmsg	ccpp_error_message	error message for error handling in CCPP	none	character	()	len=*	out
errflg	ccpp_error_code	error code for error handling in CCPP	1	integer	()		out

Definition at line 264 of file clm_lake.f90.

References albedo().

Here is the call graph for this function: