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

Called by

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