shr_flux_mod Module

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=SHR_KIND_IN),	public,	parameter	::	shr_flux_MOwScales	=	1
integer(kind=SHR_KIND_IN),	public,	parameter	::	shr_flux_MOfunctions	=	2
real(kind=SHR_KIND_R8),	public,	parameter	::	shr_flux_MOgammaM	=	3.59_SHR_KIND_R8
real(kind=SHR_KIND_R8),	public,	parameter	::	shr_flux_MOgammaS	=	7.86_SHR_KIND_R8

Subroutines

public subroutine shr_flux_adjust_constants(zvir, cpair, cpvir, karman, gravit, latvap, latice, stebol, flux_convergence_tolerance, flux_convergence_max_iteration, coldair_outbreak_mod)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R8),	intent(in),	optional		::	zvir
real(kind=R8),	intent(in),	optional		::	cpair
real(kind=R8),	intent(in),	optional		::	cpvir
real(kind=R8),	intent(in),	optional		::	karman
real(kind=R8),	intent(in),	optional		::	gravit
real(kind=R8),	intent(in),	optional		::	latvap
real(kind=R8),	intent(in),	optional		::	latice
real(kind=R8),	intent(in),	optional		::	stebol
real(kind=r8),	intent(in),	optional		::	flux_convergence_tolerance
integer(kind=in),	intent(in),	optional		::	flux_convergence_max_iteration
logical,	intent(in),	optional		::	coldair_outbreak_mod

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

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

public subroutine shr_flux_atmIce(mask, zbot, ubot, vbot, thbot, qbot, rbot, tbot, ts, sen, lat, lwup, evap, taux, tauy, tref, qref)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=IN),	intent(in)			::	mask(:)
real(kind=R8),	intent(in)			::	zbot(:)
real(kind=R8),	intent(in)			::	ubot(:)
real(kind=R8),	intent(in)			::	vbot(:)
real(kind=R8),	intent(in)			::	thbot(:)
real(kind=R8),	intent(in)			::	qbot(:)
real(kind=R8),	intent(in)			::	rbot(:)
real(kind=R8),	intent(in)			::	tbot(:)
real(kind=R8),	intent(in)			::	ts(:)
real(kind=R8),	intent(out)			::	sen(:)
real(kind=R8),	intent(out)			::	lat(:)
real(kind=R8),	intent(out)			::	lwup(:)
real(kind=R8),	intent(out)			::	evap(:)
real(kind=R8),	intent(out)			::	taux(:)
real(kind=R8),	intent(out)			::	tauy(:)
real(kind=R8),	intent(out)			::	tref(:)
real(kind=R8),	intent(out)			::	qref(:)

public subroutine shr_flux_MOstability(option, arg1, arg2, arg3, arg4, arg5)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=IN),	intent(in)			::	option
real(kind=R8),	intent(in)			::	arg1
real(kind=R8),	intent(inout)			::	arg2
real(kind=R8),	intent(out)			::	arg3
real(kind=R8),	intent(out)			::	arg4
real(kind=R8),	intent(out),	optional		::	arg5