reconflux_muscl_llf_prim Subroutine

private subroutine reconflux_muscl_llf_prim(u, xlocC, flux_dim, flux, typelim)

MUSCL (primitive-variable) reconstruction with slope limiter; LLF/Rusanov numerical flux at faces. Robust and diffusive; uses local max wavespeed for upwinding. Adaptive diffusion (Rempel et al. 2009) is compiled in only when FLUX_AD is defined.

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: u(nw_phys,5)
real(kind=dp), intent(in) :: xlocC(1:ndim,2)
integer, intent(in) :: flux_dim
real(kind=dp), intent(out) :: flux(nw_flux,2)
integer, intent(in) :: typelim

Calls

proc~~reconflux_muscl_llf_prim~3~~CallsGraph proc~reconflux_muscl_llf_prim~3 reconflux_muscl_llf_prim proc~muscl_reconstruct_prim~3 muscl_reconstruct_prim proc~reconflux_muscl_llf_prim~3->proc~muscl_reconstruct_prim~3 proc~riemann_llf_prim~3 riemann_llf_prim proc~reconflux_muscl_llf_prim~3->proc~riemann_llf_prim~3 proc~fix_prim_state~3 fix_prim_state proc~muscl_reconstruct_prim~3->proc~fix_prim_state~3 proc~koren~3 koren proc~muscl_reconstruct_prim~3->proc~koren~3 proc~mcbeta~3 mcbeta proc~muscl_reconstruct_prim~3->proc~mcbeta~3 proc~minmod~3 minmod proc~muscl_reconstruct_prim~3->proc~minmod~3 proc~vanleer~3 vanleer proc~muscl_reconstruct_prim~3->proc~vanleer~3 proc~get_cmax~5 get_cmax proc~riemann_llf_prim~3->proc~get_cmax~5 proc~get_flux~3 get_flux proc~riemann_llf_prim~3->proc~get_flux~3 proc~to_conservative~7 to_conservative proc~riemann_llf_prim~3->proc~to_conservative~7 tracer tracer proc~get_flux~3->tracer

Called by

proc~~reconflux_muscl_llf_prim~3~~CalledByGraph proc~reconflux_muscl_llf_prim~3 reconflux_muscl_llf_prim proc~finite_volume_local_muscl_llf~3 finite_volume_local_muscl_llf proc~finite_volume_local_muscl_llf~3->proc~reconflux_muscl_llf_prim~3 proc~finite_volume_local~3 finite_volume_local proc~finite_volume_local~3->proc~finite_volume_local_muscl_llf~3

Source Code

  subroutine reconflux_muscl_llf_prim(u, xlocC, flux_dim, flux, typelim)
    
    real(dp), intent(in)  :: u(nw_phys, 5)
    real(dp), intent(in)  :: xlocC(1:ndim, 2)
    integer, intent(in)   :: flux_dim, typelim
    real(dp), intent(out) :: flux(nw_flux, 2)

    real(dp) :: uL(nw_phys,2), uR(nw_phys,2)
    integer  :: iface
    real(dp) :: phi(nw_flux,2)
    real(dp) :: delta_rc, delta_ct, phi_v
    integer  :: iw

    call muscl_reconstruct_prim(u, typelim, uL, uR)

    ! Rempel et al. (2009): reduce dissipation where reconstruction and cell-centre agree in sign
    phi = 1.0_dp
    do iface = 1, 2
      do iw = 1, nw_flux
        delta_rc = uR(iw,iface) - uL(iw,iface)
        delta_ct = u(iw, iface+2) - u(iw, iface+1)
        if (delta_rc * delta_ct > 1.0e-18_dp) then
          phi_v = flux_ad_scale * delta_rc**2 / (delta_ct**2 + 1.0e-18_dp)
          phi(iw,iface) = max(flux_ad_min, min(phi_v, 1.0_dp))
        end if
      end do
    end do

    do iface = 1, 2
      call riemann_llf_prim(uL(:,iface), uR(:,iface), xlocC(:,iface), flux_dim, flux(:,iface), phi(:,iface))
    end do


  end subroutine reconflux_muscl_llf_prim