shr_flux_atmOcn Subroutine

public subroutine shr_flux_atmOcn(nMax, zbot, ubot, vbot, thbot, prec_gust, gust_fac, qbot, s16O, sHDO, s18O, rbot, tbot, us, vs, ts, mask, seq_flux_atmocn_minwind, sen, lat, lwup, r16O, rHDO, r18O, evap, evap_16O, evap_HDO, evap_18O, taux, tauy, tref, qref, duu10n, ustar_sv, re_sv, ssq_sv, missval)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=IN),	intent(in)			::	nMax
real(kind=R8),	intent(in)			::	zbot(nMax)
real(kind=R8),	intent(in)			::	ubot(nMax)
real(kind=R8),	intent(in)			::	vbot(nMax)
real(kind=R8),	intent(in)			::	thbot(nMax)
real(kind=R8),	intent(in)			::	prec_gust(nMax)
real(kind=R8),	intent(in)			::	gust_fac
real(kind=R8),	intent(in)			::	qbot(nMax)
real(kind=R8),	intent(in)			::	s16O(nMax)
real(kind=R8),	intent(in)			::	sHDO(nMax)
real(kind=R8),	intent(in)			::	s18O(nMax)
real(kind=R8),	intent(in)			::	rbot(nMax)
real(kind=R8),	intent(in)			::	tbot(nMax)
real(kind=R8),	intent(in)			::	us(nMax)
real(kind=R8),	intent(in)			::	vs(nMax)
real(kind=R8),	intent(in)			::	ts(nMax)
integer(kind=IN),	intent(in)			::	mask(nMax)
real(kind=R8),	intent(in)			::	seq_flux_atmocn_minwind
real(kind=R8),	intent(out)			::	sen(nMax)
real(kind=R8),	intent(out)			::	lat(nMax)
real(kind=R8),	intent(out)			::	lwup(nMax)
real(kind=R8),	intent(in)			::	r16O(nMax)
real(kind=R8),	intent(in)			::	rHDO(nMax)
real(kind=R8),	intent(in)			::	r18O(nMax)
real(kind=R8),	intent(out)			::	evap(nMax)
real(kind=R8),	intent(out)			::	evap_16O(nMax)
real(kind=R8),	intent(out)			::	evap_HDO(nMax)
real(kind=R8),	intent(out)			::	evap_18O(nMax)
real(kind=R8),	intent(out)			::	taux(nMax)
real(kind=R8),	intent(out)			::	tauy(nMax)
real(kind=R8),	intent(out)			::	tref(nMax)
real(kind=R8),	intent(out)			::	qref(nMax)
real(kind=R8),	intent(out)			::	duu10n(nMax)
real(kind=R8),	intent(out),	optional		::	ustar_sv(nMax)
real(kind=R8),	intent(out),	optional		::	re_sv(nMax)
real(kind=R8),	intent(out),	optional		::	ssq_sv(nMax)
real(kind=R8),	intent(in),	optional		::	missval