sfc_cice_run()

subroutine sfc_cice::sfc_cice_run	(	integer, intent(in)	im,
		logical, intent(in)	cplflx,
		real(kind=kind_phys), intent(in)	hvap,
		real(kind=kind_phys), intent(in)	cp,
		real(kind=kind_phys), intent(in)	rvrdm1,
		real(kind=kind_phys), intent(in)	rd,
		real (kind=kind_phys), dimension(:), intent(in)	t1,
		real (kind=kind_phys), dimension(:), intent(in)	q1,
		real (kind=kind_phys), dimension(:), intent(in)	cm,
		real (kind=kind_phys), dimension(:), intent(in)	ch,
		real (kind=kind_phys), dimension(:), intent(in)	prsl1,
		real (kind=kind_phys), dimension(:), intent(in)	wind,
		logical, dimension(:), intent(in)	flag_cice,
		logical, dimension(:), intent(in)	flag_iter,
		real (kind=kind_phys), dimension(:), intent(in), optional	dqsfc,
		real (kind=kind_phys), dimension(:), intent(in), optional	dtsfc,
		real (kind=kind_phys), dimension(:), intent(in), optional	dusfc,
		real (kind=kind_phys), dimension(:), intent(in), optional	dvsfc,
		real (kind=kind_phys), dimension(:), intent(in)	snowd,
		real (kind=kind_phys), dimension(:), intent(inout)	qsurf,
		real (kind=kind_phys), dimension(:), intent(inout)	cmm,
		real (kind=kind_phys), dimension(:), intent(inout)	chh,
		real (kind=kind_phys), dimension(:), intent(inout)	evap,
		real (kind=kind_phys), dimension(:), intent(inout)	hflx,
		real (kind=kind_phys), dimension(:), intent(inout)	stress,
			weasd,
			snwdph,
			ep,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)

Arguments

local_name	standard_name	long_name	units	type	dimensions	kind	intent
im	horizontal_loop_extent	horizontal loop extent	count	integer	()		in
cplflx	flag_for_surface_flux_coupling	flag controlling cplflx collection (default off)	flag	logical	()		in
hvap	latent_heat_of_vaporization_of_water_at_0c	latent heat of evaporation/sublimation	J kg-1	real	()	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
rvrdm1	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
rd	gas_constant_of_dry_air	ideal gas constant for dry air	J kg-1 K-1	real	()	kind_phys	in
t1	air_temperature_at_surface_adjacent_layer	surface layer mean temperature	K	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
q1	specific_humidity_at_surface_adjacent_layer	surface layer mean specific humidity	kg kg-1	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
cm	surface_drag_coefficient_for_momentum_in_air_over_ice	surface exchange coeff for momentum over ice	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
ch	surface_drag_coefficient_for_heat_and_moisture_in_air_over_ice	surface exchange coeff heat & moisture over ice	none	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
prsl1	air_pressure_at_surface_adjacent_layer	surface layer mean pressure	Pa	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
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
flag_cice	flag_for_cice	flag for cice	flag	logical	(ccpp_constant_one:horizontal_loop_extent)		in
flag_iter	flag_for_iteration	flag for iteration	flag	logical	(ccpp_constant_one:horizontal_loop_extent)		in
dqsfc	surface_upward_latent_heat_flux_from_coupled_process	sfc latent heat flux for coupling	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
dtsfc	surface_upward_sensible_heat_flux_from_coupled_process	sfc sensible heat flux for coupling	W m-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
dusfc	surface_x_momentum_flux_from_coupled_process	sfc x momentum flux for coupling	Pa	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
dvsfc	surface_y_momentum_flux_from_coupled_process	sfc y momentum flux for coupling	Pa	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
snowd	lwe_surface_snow_from_coupled_process	sfc snow depth in meters over sea ice for coupling	m	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	in
qsurf	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	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	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
evap	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	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
stress	surface_wind_stress_over_ice	surface wind stress over ice	m2 s-2	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
weasd	water_equivalent_accumulated_snow_depth_over_ice	water equiv of acc snow depth over ice	mm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
snwdph	surface_snow_thickness_water_equivalent_over_ice	water equivalent snow depth over ice	mm	real	(ccpp_constant_one:horizontal_loop_extent)	kind_phys	inout
ep	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
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 23 of file sfc_cice.f.