geopotential_altitude Function

private pure function geopotential_altitude(Z)

Arguments

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

Return Value real(kind=wp)


Called by

proc~~geopotential_altitude~~CalledByGraph proc~geopotential_altitude geopotential_altitude proc~coesa_atmosphere COESA_atmosphere proc~coesa_atmosphere->proc~geopotential_altitude 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~geopotential_altitude proc~speed_of_sound_86km->proc~geopotential_altitude

Source Code

pure real(wp) function geopotential_altitude(Z)
    real(wp),intent(in) :: Z
    geopotential_altitude = r0 * Z / (r0 + Z)
end function geopotential_altitude