shr_flux_atmOcn_diurnal Subroutine

public subroutine shr_flux_atmOcn_diurnal(nMax, zbot, ubot, vbot, thbot, 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, uGust, lwdn, swdn, swup, prec, swpen, ocnsal, ocn_prognostic, flux_diurnal, latt, long, warm, salt, speed, regime, warmMax, windMax, qSolAvg, windAvg, warmMaxInc, windMaxInc, qSolInc, windInc, nInc, tBulk, tSkin, tSkin_day, tSkin_night, cSkin, cSkin_night, secs, dt, duu10n, ustar_sv, re_sv, ssq_sv, missval, cold_start)

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)			::	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(in)			::	uGust(nMax)
real(kind=R8),	intent(in)			::	lwdn(nMax)
real(kind=R8),	intent(in)			::	swdn(nMax)
real(kind=R8),	intent(in)			::	swup(nMax)
real(kind=R8),	intent(in)			::	prec(nMax)
real(kind=R8),	intent(inout)			::	swpen(nMax)
real(kind=R8),	intent(inout)			::	ocnsal(nMax)
logical,	intent(in)			::	ocn_prognostic
logical,	intent(in)			::	flux_diurnal
real(kind=R8),	intent(in)			::	latt(nMax)
real(kind=R8),	intent(in)			::	long(nMax)
real(kind=R8),	intent(inout)			::	warm(nMax)
real(kind=R8),	intent(inout)			::	salt(nMax)
real(kind=R8),	intent(inout)			::	speed(nMax)
real(kind=R8),	intent(inout)			::	regime(nMax)
real(kind=R8),	intent(out)			::	warmMax(nMax)
real(kind=R8),	intent(out)			::	windMax(nMax)
real(kind=R8),	intent(inout)			::	qSolAvg(nMax)
real(kind=R8),	intent(inout)			::	windAvg(nMax)
real(kind=R8),	intent(inout)			::	warmMaxInc(nMax)
real(kind=R8),	intent(inout)			::	windMaxInc(nMax)
real(kind=R8),	intent(inout)			::	qSolInc(nMax)
real(kind=R8),	intent(inout)			::	windInc(nMax)
real(kind=R8),	intent(inout)			::	nInc(nMax)
real(kind=R8),	intent(out)			::	tBulk(nMax)
real(kind=R8),	intent(out)			::	tSkin(nMax)
real(kind=R8),	intent(out)			::	tSkin_day(nMax)
real(kind=R8),	intent(out)			::	tSkin_night(nMax)
real(kind=R8),	intent(out)			::	cSkin(nMax)
real(kind=R8),	intent(out)			::	cSkin_night(nMax)
integer(kind=IN),	intent(in)			::	secs
integer(kind=IN),	intent(in)			::	dt
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
logical,	intent(in)			::	cold_start