scm_sfc_flux_spec_run()

subroutine, public scm_sfc_flux_spec::scm_sfc_flux_spec_run	(	integer, intent(in)	im,
		real(kind=kind_phys), dimension(:), intent(in)	u1,
		real(kind=kind_phys), dimension(:), intent(in)	v1,
		real(kind=kind_phys), dimension(:), intent(in)	z1,
		real(kind=kind_phys), dimension(:), intent(in)	t1,
		real(kind=kind_phys), dimension(:), intent(in)	q1,
		real(kind=kind_phys), dimension(:), intent(in)	p1,
		real(kind=kind_phys), dimension(:), intent(in)	roughness_length,
		real(kind=kind_phys), dimension(:), intent(in)	spec_sh_flux,
		real(kind=kind_phys), dimension(:), intent(in)	spec_lh_flux,
		real(kind=kind_phys), dimension(:), intent(in)	exner_inverse,
		real(kind=kind_phys), dimension(:), intent(in)	t_surf,
		real(kind=kind_phys), intent(in)	cp,
		real(kind=kind_phys), intent(in)	grav,
		real(kind=kind_phys), intent(in)	hvap,
		real(kind=kind_phys), intent(in)	rd,
		real(kind=kind_phys), intent(in)	fvirt,
		real(kind=kind_phys), intent(in)	vonkarman,
		real(kind=kind_phys), intent(in)	tgice,
		integer, dimension(:), intent(inout)	islmsk,
		logical, dimension(:), intent(inout)	dry,
		real(kind=kind_phys), dimension(:), intent(out)	frland,
		real(kind=kind_phys), dimension(:), intent(inout)	cice,
		logical, dimension(:), intent(inout)	icy,
		real(kind=kind_phys), dimension(:), intent(inout)	tisfc,
		real(kind=kind_phys), dimension(:), intent(in)	oceanfrac,
		real(kind=kind_phys), intent(in)	min_seaice,
		logical, intent(in)	cplflx,
		logical, intent(in)	cplice,
		logical, dimension(:), intent(inout)	flag_cice,
		logical, dimension(:), intent(inout)	wet,
		real(kind=kind_phys), intent(in)	min_lakeice,
		real(kind=kind_phys), dimension(:), intent(inout)	tsfcl,
		real(kind=kind_phys), dimension(:), intent(inout)	tsfc_wat,
		real(kind=kind_phys), dimension(:), intent(inout)	slmsk,
		real(kind=kind_phys), dimension(:), intent(in)	lakefrac,
		integer, intent(in)	lkm,
		real(kind=kind_phys), dimension(:), intent(in)	lakedepth,
		integer, dimension(:), intent(inout)	use_lake_model,
		real(kind=kind_phys), dimension(:), intent(out)	sh_flux,
		real(kind=kind_phys), dimension(:), intent(out)	lh_flux,
		real(kind=kind_phys), dimension(:), intent(out)	sh_flux_chs,
		real(kind=kind_phys), dimension(:), intent(out)	u_star,
		real(kind=kind_phys), dimension(:), intent(out)	sfc_stress,
		real(kind=kind_phys), dimension(:), intent(out)	cm,
		real(kind=kind_phys), dimension(:), intent(out)	ch,
		real(kind=kind_phys), dimension(:), intent(out)	fm,
		real(kind=kind_phys), dimension(:), intent(out)	fh,
		real(kind=kind_phys), dimension(:), intent(out)	rb,
		real(kind=kind_phys), dimension(:), intent(out)	u10m,
		real(kind=kind_phys), dimension(:), intent(out)	v10m,
		real(kind=kind_phys), dimension(:), intent(out)	wind1,
		real(kind=kind_phys), dimension(:), intent(out)	qss,
		real(kind=kind_phys), dimension(:), intent(out)	t2m,
		real(kind=kind_phys), dimension(:), intent(out)	q2m,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg )

Argument Table

local_name	standard_name	long_name	units	type	dimensions	kind	intent
im	horizontal_loop_extent	horizontal loop extent	count	integer	()		in
u1	x_wind_at_surface_adjacent_layer	x component of 1st model layer wind	m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
v1	y_wind_at_surface_adjacent_layer	y component of 1st model layer wind	m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
z1	height_above_ground_at_lowest_model_layer	height above ground at 1st model layer	m	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
t1	air_temperature_at_surface_adjacent_layer	1st model layer air temperature	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
q1	specific_humidity_at_surface_adjacent_layer	1st model layer specific humidity	kg kg-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
p1	air_pressure_at_surface_adjacent_layer	Model layer 1 mean pressure	Pa	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
roughness_length	surface_roughness_length	surface roughness length	cm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
spec_sh_flux	specified_surface_upward_temperature_flux	specified kinematic surface upward sensible heat flux	K m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
spec_lh_flux	specified_surface_upward_specific_humidity_flux	specified kinematic surface upward latent heat flux	kg kg-1 m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
exner_inverse	ratio_of_exner_function_between_midlayer_and_interface_at_lowest_model_layer	Exner function ratio bt midlayer and interface at 1st layer	ratio	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
T_surf	surface_skin_temperature	surface skin temperature	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
cp	specific_heat_of_dry_air_at_constant_pressure	specific heat of dry air at constant pressure	J kg-1 K-1	real	()	kind_phys	in
grav	gravitational_acceleration	gravitational acceleration	m s-2	real	()	kind_phys	in
hvap	latent_heat_of_vaporization_of_water_at_0c	latent heat of vaporization of water at 0C	J kg-1	real	()	kind_phys	in
rd	gas_constant_of_dry_air	ideal gas constant for dry air	J kg-1 K-1	real	()	kind_phys	in
fvirt	ratio_of_vapor_to_dry_air_gas_constants_minus_one	rv/rd - 1 (rv = ideal gas constant for water vapor)	none	real	()	kind_phys	in
vonKarman	von_karman_constant	Von Karman constant	none	real	()	kind_phys	in
tgice	freezing_point_temperature_of_seawater	freezing point temperature of seawater	K	real	()	kind_phys	in
islmsk	sea_land_ice_mask	sea/land/ice mask (=0/1/2)	flag	integer	(ccpp_constant_one:horizontal_loop_extent)		inout
dry	flag_nonzero_land_surface_fraction	flag indicating presence of some land surface area fraction	flag	logical	(ccpp_constant_one:horizontal_loop_extent)		inout
frland	land_area_fraction_for_microphysics	land area fraction used in microphysics schemes	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
cice	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
tisfc	surface_skin_temperature_over_ice	surface skin temperature over ice	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
oceanfrac	sea_area_fraction	fraction of horizontal grid area occupied by ocean	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
min_seaice	min_sea_ice_area_fraction	minimum sea ice value	frac	real	()	kind_phys	in
cplflx	flag_for_surface_flux_coupling	flag controlling cplflx collection (default off)	flag	logical	()		in
cplice	flag_for_sea_ice_coupling	flag controlling cplice collection (default on)	flag	logical	()		in
flag_cice	flag_for_cice	flag for cice	flag	logical	(ccpp_constant_one:horizontal_loop_extent)		inout
wet	flag_nonzero_wet_surface_fraction	flag indicating presence of some ocean or lake surface area fraction	flag	logical	(ccpp_constant_one:horizontal_loop_extent)		inout
min_lakeice	min_lake_ice_area_fraction	minimum lake ice value	frac	real	()	kind_phys	in
tsfcl	surface_skin_temperature_over_land	surface skin temperature over land	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
slmsk	area_type	landmask: sea/land/ice=0/1/2	flag	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
lakefrac	lake_area_fraction	fraction of horizontal grid area occupied by lake	frac	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
lkm	control_for_lake_model_execution_method	control for lake model execution: 0=no lake, 1=lake, 2=lake+nsst	flag	integer	()		in
lakedepth	lake_depth	lake depth	m	real	(ccpp_constant_one:horizontal_loop_extent)	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
sh_flux	surface_upward_temperature_flux	surface upward sensible heat flux	K m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
lh_flux	surface_upward_specific_humidity_flux	surface upward evaporation flux	kg kg-1 m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
sh_flux_chs	kinematic_surface_upward_sensible_heat_flux_reduced_by_surface_roughness_and_vegetation	kinematic surface upward sensible heat flux reduced by surface roughness and vegetation	K m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
u_star	surface_friction_velocity	boundary layer parameter	m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
sfc_stress	surface_wind_stress	surface wind stress	m2 s-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
cm	surface_drag_coefficient_for_momentum_in_air	surface exchange coeff for momentum	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
ch	surface_drag_coefficient_for_heat_and_moisture_in_air	surface exchange coeff heat & moisture	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
fm	monin_obukhov_similarity_function_for_momentum	Monin-Obukhov similarity function for momentum	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
fh	monin_obukhov_similarity_function_for_heat	Monin-Obukhov similarity function for heat	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
rb	bulk_richardson_number_at_lowest_model_level	bulk Richardson number at the surface	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
u10m	x_wind_at_10m	10 meter u wind speed	m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
v10m	y_wind_at_10m	10 meter v wind speed	m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
wind1	wind_speed_at_lowest_model_layer	wind speed at lowest model level	m s-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
qss	surface_specific_humidity	surface air saturation specific humidity	kg kg-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
t2m	air_temperature_at_2m	2 meter temperature	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
q2m	specific_humidity_at_2m	2 meter specific humidity	kg kg-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	out
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

General Algorithm

1. Compute friction velocity from the wind speed at the lowest model layer, the height about the ground, and the roughness length.
2. Compute the surface stress from the friction velocity.
3. Calculate the surface drag coefficient for momentum given the surface stress and wind on the lowest model layer.
4. Calculate the Monin-Obukhov similarity funciton for momentum from the surface drag coefficient.
5. Calculate the Obukhov length from the friction velocity, surface virtual potential temperature, and surface vertical virtual potential temperature flux.
6. Calculate the bulk Richardson number at the lowest model layer.
7. Calculate the Monin-Obukhov similarity function for heat and moisture from the bulk Richardson number and diagnosed similarity function for momentum.
8. Calculate the surface drag coefficient for heat and moisture.
9. Calculate the u and v wind at 10m.