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)	prsl1,
		real (kind=kind_phys), dimension(:), intent(in)	prslki,
		logical, dimension(:), intent(in)	wet,
		logical, dimension(:), intent(in)	use_flake,
		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