getheatfluxes_1d Subroutine

private subroutine getheatfluxes_1d(n, dx, dxL, qh, qhya, qhyb, qhTa, qhTb, var, vlit, T, TL, litter, q, qya, qyb, qTa, qTb, qadv, qadvya, qadvyb, qadvTa, qadvTb, advection)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=i_d),	intent(in)			::	n
real(kind=r_2),	intent(in),		DIMENSION(1:n)	::	dx
real(kind=r_2),	intent(in)			::	dxL
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qh
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qhya
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qhyb
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qhTa
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qhTb
type(vars),	intent(in),		DIMENSION(1:n)	::	var
type(vars),	intent(in)			::	vlit
real(kind=r_2),	intent(in),		DIMENSION(1:n)	::	T
real(kind=r_2),	intent(in)			::	TL
logical,	intent(in)			::	litter
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	q
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qya
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qyb
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qTa
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qTb
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qadv
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qadvya
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qadvyb
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qadvTa
real(kind=r_2),	intent(inout),		DIMENSION(0:n)	::	qadvTb
integer(kind=i_d),	intent(in)			::	advection