getfluxes_vp_2d Subroutine

private subroutine getfluxes_vp_2d(dx, vtop, vbot, parin, var, hint, phimin, i_q, i_qya, i_qyb, i_qTa, i_qTb, i_ql, i_qlya, i_qlyb, i_qv, i_qvT, i_qvh, i_qvya, i_qvyb, iflux, init, getq0, getqn, Tsoil, T0, nsat, nsatlast)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	dx
type(vars),	intent(in),		DIMENSION(:)	::	vtop
type(vars),	intent(in),		DIMENSION(:)	::	vbot
type(params),	intent(in),		DIMENSION(:,:)	::	parin
type(vars),	intent(in),		DIMENSION(:,:)	::	var
real(kind=r_2),	intent(inout),		DIMENSION(:,:)	::	hint
real(kind=r_2),	intent(inout),		DIMENSION(:,:)	::	phimin
real(kind=r_2),	intent(inout),		DIMENSION(:,:)	::	i_q
real(kind=r_2),	intent(inout),		DIMENSION(:,:)	::	i_qya
real(kind=r_2),	intent(inout),		DIMENSION(:,:)	::	i_qyb
real(kind=r_2),	intent(inout),		DIMENSION(:,:)	::	i_qTa
real(kind=r_2),	intent(inout),		DIMENSION(:,:)	::	i_qTb
real(kind=r_2),	intent(out),		DIMENSION(:,:)	::	i_ql
real(kind=r_2),	intent(out),		DIMENSION(:,:)	::	i_qlya
real(kind=r_2),	intent(out),		DIMENSION(:,:)	::	i_qlyb
real(kind=r_2),	intent(out),		DIMENSION(:,:)	::	i_qv
real(kind=r_2),	intent(out),		DIMENSION(:,:)	::	i_qvT
real(kind=r_2),	intent(out),		DIMENSION(:,:)	::	i_qvh
real(kind=r_2),	intent(out),		DIMENSION(:,:)	::	i_qvya
real(kind=r_2),	intent(out),		DIMENSION(:,:)	::	i_qvyb
integer(kind=i_d),	intent(in),		DIMENSION(:)	::	iflux
logical,	intent(in),		DIMENSION(:)	::	init
logical,	intent(in),		DIMENSION(:)	::	getq0
logical,	intent(in),		DIMENSION(:)	::	getqn
real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	Tsoil
real(kind=r_2),	intent(in),		DIMENSION(:)	::	T0
integer(kind=i_d),	intent(in),		DIMENSION(:)	::	nsat
integer(kind=i_d),	intent(in),		DIMENSION(:)	::	nsatlast