get_pthermal Function

public pure function get_pthermal(w, x) result(pth)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: w(nw_phys)
real(kind=dp), intent(in) :: x(1:ndim)

Return Value real(kind=dp)


Called by

proc~~get_pthermal~~CalledByGraph proc~get_pthermal get_pthermal proc~cool_exact cool_exact proc~cool_exact->proc~get_pthermal proc~floortemperature floortemperature proc~floortemperature->proc~get_pthermal proc~getvar_cooling_exact getvar_cooling_exact proc~getvar_cooling_exact->proc~get_pthermal proc~radiative_cooling_add_source radiative_cooling_add_source proc~radiative_cooling_add_source->proc~cool_exact proc~radiative_cooling_add_source->proc~floortemperature

Source Code

pure real(dp) function get_pthermal(w, x) result(pth)
  
  real(dp), intent(in)  :: w(nw_phys)
  real(dp), intent(in)  :: x(1:ndim)

  pth = gamma_1*(w(iw_e)-0.5_dp*sum(w(iw_mom(:))**2)/w(iw_rho) &
       -0.5_dp*(w(iw_mag(1))**2+w(iw_mag(2))**2+w(iw_mag(3))**2))
end function get_pthermal