sfc_ocean_run()

subroutine, public sfc_ocean::sfc_ocean_run	(	integer, intent(in)	im,
		real (kind=kind_phys), intent(in)	hvap,
		real (kind=kind_phys), intent(in)	cp,
		real (kind=kind_phys), intent(in)	rd,
		real (kind=kind_phys), intent(in)	eps,
		real (kind=kind_phys), intent(in)	epsm1,
		real (kind=kind_phys), intent(in)	rvrdm1,
		real (kind=kind_phys), dimension(:), intent(in)	ps,
		real (kind=kind_phys), dimension(:), intent(in)	u1,
		real (kind=kind_phys), dimension(:), intent(in)	v1,
		real (kind=kind_phys), dimension(:), intent(in)	t1,
		real (kind=kind_phys), dimension(:), intent(in)	q1,
		real (kind=kind_phys), dimension(:), intent(in)	tskin,
		real (kind=kind_phys), dimension(:), intent(in)	cm,
		real (kind=kind_phys), dimension(:), intent(in)	ch,
		logical, intent(in)	lseaspray,
		real (kind=kind_phys), dimension(:), intent(in)	fm,
		real (kind=kind_phys), dimension(:), intent(in)	fm10,
		real (kind=kind_phys), dimension(:), intent(in)	usfco,
		real (kind=kind_phys), dimension(:), intent(in)	vsfco,
		integer, intent(in)	icplocn2atm,
		real (kind=kind_phys), dimension(:), intent(in)	prsl1,
		real (kind=kind_phys), dimension(:), intent(in)	prslki,
		logical, dimension(:), intent(in)	wet,
		integer, dimension(:), intent(in)	use_lake_model,
		real (kind=kind_phys), dimension(:), intent(in)	wind )

• Flag for open water

• Initialize variables. all units are supposedly m.k.s. unless specified

• Calcualte sensible and latent heat flux over open water

• Include sea spray effects