temperature_lower Function

private pure function temperature_lower(H, M)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: H
real(kind=wp), intent(in) :: M

Return Value real(kind=wp)


Calls

proc~~temperature_lower~~CallsGraph proc~temperature_lower temperature_lower proc~tm Tm proc~temperature_lower->proc~tm proc~find find proc~tm->proc~find

Called by

proc~~temperature_lower~~CalledByGraph proc~temperature_lower temperature_lower proc~coesa_atmosphere COESA_atmosphere proc~coesa_atmosphere->proc~temperature_lower proc~speed_of_sound_86km speed_of_sound_86km proc~coesa_atmosphere->proc~speed_of_sound_86km proc~coesa_density COESA_density proc~coesa_density->proc~temperature_lower proc~speed_of_sound_86km->proc~temperature_lower

Source Code

pure real(wp) function temperature_lower(H, M)
    real(wp),intent(in) :: H
    real(wp),intent(in) :: M
    temperature_lower = Tm(H) / M0 * M
end function temperature_lower