calc_l_extended Subroutine

public subroutine calc_l_extended(tpoint, lpoint, fl)

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: tpoint
double precision, intent(out) :: lpoint
type(rc_fluid), intent(in) :: fl

Called by

proc~~calc_l_extended~~CalledByGraph proc~calc_l_extended calc_l_extended proc~cool_exact cool_exact proc~cool_exact->proc~calc_l_extended proc~getvar_cooling_exact getvar_cooling_exact proc~getvar_cooling_exact->proc~calc_l_extended proc~radiative_cooling_add_source radiative_cooling_add_source proc~radiative_cooling_add_source->proc~cool_exact

Source Code

    subroutine calc_l_extended (tpoint, lpoint,fl)
      
    !  Calculate l for t beyond tcoolmax
    !  Assumes Bremsstrahlung for the interpolated tables
    !  Uses the power law for piecewise power laws
      double precision, intent(IN)  :: tpoint
      double precision, intent(OUT) :: lpoint
      type(rc_fluid), intent(in) :: fl

      lpoint = fl%Lcool(fl%ncool) * dsqrt( tpoint / fl%tcoolmax)

    end subroutine calc_l_extended