+/* Set the altitude (force) */
+int fgFlightModelSetAltitude(int model, fgFLIGHT *f, double alt_meters) {
+ double sea_level_radius_meters;
+ double lat_geoc;
+ // Set the FG variables first
+ fgGeodToGeoc( FG_Latitude, alt_meters,
+ &sea_level_radius_meters, &lat_geoc);
+
+ FG_Altitude = alt_meters * METER_TO_FEET;
+ FG_Radius_to_vehicle = FG_Altitude +
+ (sea_level_radius_meters * METER_TO_FEET);
+
+ if ( model == FG_LARCSIM ) {
+ ls_ForceAltitude(FG_Altitude);
+ } else {
+ fgPrintf( FG_FLIGHT, FG_WARN,
+ "Unimplemented flight model == %d\n", model );
+ }
+
+}
+
+