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~3~~CalledByGraph proc~get_pthermal~3 get_pthermal proc~cool_exact~3 cool_exact proc~cool_exact~3->proc~get_pthermal~3 proc~floortemperature~3 floortemperature proc~floortemperature~3->proc~get_pthermal~3 proc~getvar_cooling_exact~3 getvar_cooling_exact proc~getvar_cooling_exact~3->proc~get_pthermal~3 proc~radiative_cooling_add_source~3 radiative_cooling_add_source proc~radiative_cooling_add_source~3->proc~cool_exact~3 proc~radiative_cooling_add_source~3->proc~floortemperature~3

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*w(iw_mom(1))**2/w(iw_rho))
end function get_pthermal