parms_to_temp Function

private pure function parms_to_temp(me, f107_daily, f107a_avg, tkp) result(xtemp)

Compute exospheric temperature from F10.7 values using the Jacchia-Roberts formula

Type Bound

jacchia_roberts_type

Arguments

Type IntentOptional Attributes Name
class(jacchia_roberts_type), intent(in) :: me
real(kind=dp), intent(in) :: f107_daily

Daily F10.7 value
real(kind=dp), intent(in) :: f107a_avg

81-day average F10.7a
real(kind=dp), intent(in) :: tkp

Kp index

Return Value real(kind=dp)

Exospheric temperature (K)


Called by

proc~~parms_to_temp~~CalledByGraph proc~parms_to_temp jacchia_roberts_type%parms_to_temp proc~jacchia_roberts_density jacchia_roberts_type%jacchia_roberts_density proc~jacchia_roberts_density->proc~parms_to_temp

Source Code

   pure function parms_to_temp(me, f107_daily, f107a_avg, tkp) result(xtemp)
      class(jacchia_roberts_type), intent(in) :: me
      real(dp), intent(in) :: f107_daily !! Daily F10.7 value
      real(dp), intent(in) :: f107a_avg !! 81-day average F10.7a
      real(dp), intent(in) :: tkp !! Kp index
      real(dp) :: xtemp !! Exospheric temperature (K)

      xtemp = 379.0_dp + 3.24_dp * f107a_avg + 1.3_dp * (f107_daily - f107a_avg)

   end function parms_to_temp