get_pthermal Function

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

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: w(nw_flux)
double precision, intent(in) :: x(1:ndim)

Return Value doubleprecision


Called by

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

Source Code

pure double precision function get_pthermal(w, x) result(pth)
  
  double precision, intent(in)  :: w(nw_flux)
  double precision, intent(in)  :: x(1:ndim)

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