getfluxes_vp Interface

public interface getfluxes_vp

Calls

interface~~getfluxes_vp~~CallsGraph interface~getfluxes_vp getfluxes_vp proc~getfluxes_vp_1d getfluxes_vp_1d interface~getfluxes_vp->proc~getfluxes_vp_1d proc~getfluxes_vp_2d getfluxes_vp_2d interface~getfluxes_vp->proc~getfluxes_vp_2d proc~flux flux proc~getfluxes_vp_1d->proc~flux proc~hyofh hyofh proc~getfluxes_vp_1d->proc~hyofh proc~zerovars zerovars proc~getfluxes_vp_1d->proc~zerovars proc~getfluxes_vp_2d->proc~flux proc~getfluxes_vp_2d->proc~hyofh proc~getfluxes_vp_2d->proc~zerovars proc~weight weight proc~flux->proc~weight proc~weight->proc~hyofh

Called by

interface~~getfluxes_vp~~CalledByGraph interface~getfluxes_vp getfluxes_vp proc~get_fluxes_and_derivs get_fluxes_and_derivs proc~get_fluxes_and_derivs->interface~getfluxes_vp proc~iflux_loop iflux_loop proc~iflux_loop->proc~get_fluxes_and_derivs proc~timestep_loop timestep_loop proc~timestep_loop->proc~iflux_loop proc~solve solve proc~solve->proc~timestep_loop proc~sli_main sli_main proc~sli_main->proc~solve

Module Procedures

private subroutine getfluxes_vp_1d(n, dx, vtop, vbot, parin, var, hint, phimin, q, qya, qyb, qTa, qTb, ql, qlya, qlyb, qv, qvT, qvh, qvya, qvyb, iflux, init, getq0, getqn, Tsoil, T0, nsat, nsatlast)

Arguments

Type IntentOptional Attributes Name
integer(kind=i_d), intent(in) :: n
real(kind=r_2), intent(in), DIMENSION(1:n) :: dx
type(vars), intent(in) :: vtop
type(vars), intent(in) :: vbot
type(params), intent(in), DIMENSION(1:n) :: parin
type(vars), intent(inout), DIMENSION(1:n) :: var
real(kind=r_2), intent(inout), DIMENSION(1:n) :: hint
real(kind=r_2), intent(inout), DIMENSION(1:n) :: phimin
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) :: ql
real(kind=r_2), intent(inout), DIMENSION(0:n) :: qlya
real(kind=r_2), intent(inout), DIMENSION(0:n) :: qlyb
real(kind=r_2), intent(inout), DIMENSION(0:n) :: qv
real(kind=r_2), intent(inout), DIMENSION(0:n) :: qvT
real(kind=r_2), intent(inout), DIMENSION(0:n) :: qvh
real(kind=r_2), intent(inout), DIMENSION(0:n) :: qvya
real(kind=r_2), intent(inout), DIMENSION(0:n) :: qvyb
integer(kind=i_d), intent(in) :: iflux
logical, intent(in) :: init
logical, intent(in) :: getq0
logical, intent(in) :: getqn
real(kind=r_2), intent(in), DIMENSION(1:n) :: Tsoil
real(kind=r_2), intent(in) :: T0
integer(kind=i_d), intent(in) :: nsat
integer(kind=i_d), intent(in) :: nsatlast

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 IntentOptional 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