getheatfluxes Interface

public interface getheatfluxes

Calls

interface~~getheatfluxes~~CallsGraph interface~getheatfluxes getheatfluxes proc~getheatfluxes_1d getheatfluxes_1d interface~getheatfluxes->proc~getheatfluxes_1d proc~getheatfluxes_2d getheatfluxes_2d interface~getheatfluxes->proc~getheatfluxes_2d

Called by

interface~~getheatfluxes~~CalledByGraph interface~getheatfluxes getheatfluxes proc~get_fluxes_and_derivs get_fluxes_and_derivs proc~get_fluxes_and_derivs->interface~getheatfluxes 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 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 IntentOptional 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

private subroutine getheatfluxes_2d(dx, dxL, i_qh, i_qhya, i_qhyb, i_qhTa, i_qhTb, var, vlit, T, TL, litter, i_q, i_qya, i_qyb, i_qTa, i_qTb, i_qadv, i_qadvya, i_qadvyb, i_qadvTa, i_qadvTb, advection)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(in), DIMENSION(:,:) :: dx
real(kind=r_2), intent(in), DIMENSION(:) :: dxL
real(kind=r_2), intent(inout), DIMENSION(:,:) :: i_qh
real(kind=r_2), intent(inout), DIMENSION(:,:) :: i_qhya
real(kind=r_2), intent(inout), DIMENSION(:,:) :: i_qhyb
real(kind=r_2), intent(inout), DIMENSION(:,:) :: i_qhTa
real(kind=r_2), intent(inout), DIMENSION(:,:) :: i_qhTb
type(vars), intent(in), DIMENSION(:,:) :: var
type(vars), intent(in), DIMENSION(:) :: vlit
real(kind=r_2), intent(in), DIMENSION(:,:) :: T
real(kind=r_2), intent(in), DIMENSION(:) :: TL
logical, intent(in) :: litter
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(inout), DIMENSION(:,:) :: i_qadv
real(kind=r_2), intent(inout), DIMENSION(:,:) :: i_qadvya
real(kind=r_2), intent(inout), DIMENSION(:,:) :: i_qadvyb
real(kind=r_2), intent(inout), DIMENSION(:,:) :: i_qadvTa
real(kind=r_2), intent(inout), DIMENSION(:,:) :: i_qadvTb
integer(kind=i_d), intent(in) :: advection