Tm Function

private pure function Tm(H)

Arguments

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

Return Value real(kind=wp)


Calls

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

Called by

proc~~tm~~CalledByGraph proc~tm Tm proc~temperature_lower temperature_lower proc~temperature_lower->proc~tm 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 Tm(H)
    real(wp),intent(in) :: H
    integer :: i
    i = find(H, Hb)
    Tm = Tmb(i) + Lmb(i) * (H - Hb(i))
end function Tm