SEB_FR – CABLE

private subroutine SEB_FR(n, par, vmet, vsnow, var, qprec, qprec_snow, nsteps, dx, h0, Tsoil, dt, Tsurface0, Tsurface, G0, lE0, TsurfaceFR, G0FR, lEFR, HFR, qsurface, qevap, qliq, qv, qyb, qTb, qlyb, qvyb, qlTb, qvTb, qh, qadv, qhyb, qhTb, qadvyb, qadvTb, irec)

Type	Intent	Attributes		Name
integer(kind=i_d),	intent(in)		::	n
type(params),	intent(in),	DIMENSION(1:n)	::	par
type(vars_met),	intent(in)		::	vmet
type(vars_snow),	intent(in)		::	vsnow
type(vars),	intent(in),	DIMENSION(1:n)	::	var
real(kind=r_2),	intent(in)		::	qprec
real(kind=r_2),	intent(in)		::	qprec_snow
integer(kind=i_d),	intent(in)		::	nsteps
real(kind=r_2),	intent(in),	DIMENSION(1:n)	::	dx
real(kind=r_2),	intent(in)		::	h0
real(kind=r_2),	intent(in),	DIMENSION(1:n)	::	Tsoil
real(kind=r_2),	intent(in)		::	dt
real(kind=r_2),	intent(in)		::	Tsurface0
real(kind=r_2),	intent(out)		::	Tsurface
real(kind=r_2),	intent(out)		::	G0
real(kind=r_2),	intent(out)		::	lE0
real(kind=r_2),	intent(out)		::	TsurfaceFR
real(kind=r_2),	intent(out)		::	G0FR
real(kind=r_2),	intent(out)		::	lEFR
real(kind=r_2),	intent(out)		::	HFR
real(kind=r_2),	intent(out)		::	qsurface
real(kind=r_2),	intent(out)		::	qevap
real(kind=r_2),	intent(out)		::	qliq
real(kind=r_2),	intent(out)		::	qv
real(kind=r_2),	intent(out)		::	qyb
real(kind=r_2),	intent(out)		::	qTb
real(kind=r_2),	intent(out)		::	qlyb
real(kind=r_2),	intent(out)		::	qvyb
real(kind=r_2),	intent(out)		::	qlTb
real(kind=r_2),	intent(out)		::	qvTb
real(kind=r_2),	intent(out)		::	qh
real(kind=r_2),	intent(out)		::	qadv
real(kind=r_2),	intent(out)		::	qhyb
real(kind=r_2),	intent(out)		::	qhTb
real(kind=r_2),	intent(out)		::	qadvyb
real(kind=r_2),	intent(out)		::	qadvTb
integer(kind=i_d),	intent(in)		::	irec

Help