speed_of_sound_86km Function

  1. COESA.f90
  2. COESA_module
  3. speed_of_sound_86km

private pure function speed_of_sound_86km()

Arguments

None

Return Value real(kind=wp)


Calls

proc~~speed_of_sound_86km~~CallsGraph proc~speed_of_sound_86km speed_of_sound_86km proc~geopotential_altitude geopotential_altitude proc~speed_of_sound_86km->proc~geopotential_altitude proc~mean_molecular_weight_lower mean_molecular_weight_lower proc~speed_of_sound_86km->proc~mean_molecular_weight_lower proc~temperature_lower temperature_lower proc~speed_of_sound_86km->proc~temperature_lower proc~speed_of_sound_lower speed_of_sound_lower proc~speed_of_sound_86km->proc~speed_of_sound_lower proc~mean_molecular_weight_ratio_lower mean_molecular_weight_ratio_lower proc~mean_molecular_weight_lower->proc~mean_molecular_weight_ratio_lower proc~tm Tm proc~temperature_lower->proc~tm proc~find find proc~mean_molecular_weight_ratio_lower->proc~find proc~tm->proc~find

Called by

proc~~speed_of_sound_86km~~CalledByGraph proc~speed_of_sound_86km speed_of_sound_86km proc~coesa_atmosphere COESA_atmosphere proc~coesa_atmosphere->proc~speed_of_sound_86km

Contents

Source Code

speed_of_sound_86km

Source Code

pure real(wp) function speed_of_sound_86km()
    real(wp),parameter :: Z = 86000.0_wp ! (m)
    real(wp) :: H,M,T
    H = geopotential_altitude(Z)
    M = mean_molecular_weight_lower(Z)
    T = temperature_lower(H, M)
    speed_of_sound_86km = speed_of_sound_lower(T, M)
end function speed_of_sound_86km