%% GEN_radius_earth.m
%% Author: Timothy Williams
%% Date:   20130513, 10:07:15 CEST
%%
%% CALL:   r = GEN_radius_earth();
%% r is the radius of the earth in km;

function r = GEN_radius_earth()

%r  = 6378.137;%km - best at equator
%r  = 6399.594;%km - best at poles
r  = 6371;%km - average
