+void
+FGEnvironmentMgr::_update_fdm () const
+{
+ //
+ // Pass atmosphere on to FDM
+ // FIXME: have FDMs read properties directly.
+ //
+ if (fgGetBool("/environment/params/control-fdm-atmosphere")) {
+ // convert from Rankine to Celsius
+ cur_fdm_state
+ ->set_Static_temperature((9.0/5.0)
+ * (_environment->get_temperature_degc() + 273.15));
+ // convert from inHG to PSF
+ cur_fdm_state
+ ->set_Static_pressure(_environment->get_pressure_inhg() * 70.726566);
+ // keep in slugs/ft^3
+ cur_fdm_state
+ ->set_Density(_environment->get_density_slugft3());
+ }
+}
+
+double
+FGEnvironmentMgr::get_cloud_layer_span_m (int index) const
+{
+ return thesky->get_cloud_layer(index)->getSpan_m();
+}
+
+void
+FGEnvironmentMgr::set_cloud_layer_span_m (int index, double span_m)
+{
+ thesky->get_cloud_layer(index)->setSpan_m(span_m);
+}
+
+double
+FGEnvironmentMgr::get_cloud_layer_elevation_ft (int index) const
+{
+ return thesky->get_cloud_layer(index)->getElevation_m() * SG_METER_TO_FEET;
+}
+
+void
+FGEnvironmentMgr::set_cloud_layer_elevation_ft (int index, double elevation_ft)
+{
+ thesky->get_cloud_layer(index)
+ ->setElevation_m(elevation_ft * SG_FEET_TO_METER);
+}
+
+double
+FGEnvironmentMgr::get_cloud_layer_thickness_ft (int index) const
+{
+ return thesky->get_cloud_layer(index)->getThickness_m() * SG_METER_TO_FEET;
+}
+
+void
+FGEnvironmentMgr::set_cloud_layer_thickness_ft (int index, double thickness_ft)
+{
+ thesky->get_cloud_layer(index)
+ ->setThickness_m(thickness_ft * SG_FEET_TO_METER);
+}
+
+double
+FGEnvironmentMgr::get_cloud_layer_transition_ft (int index) const
+{
+ return thesky->get_cloud_layer(index)->getTransition_m() * SG_METER_TO_FEET;
+}
+
+void
+FGEnvironmentMgr::set_cloud_layer_transition_ft (int index,
+ double transition_ft)
+{
+ thesky->get_cloud_layer(index)
+ ->setTransition_m(transition_ft * SG_FEET_TO_METER);
+}
+
+const char *
+FGEnvironmentMgr::get_cloud_layer_type (int index) const
+{
+ switch (thesky->get_cloud_layer(index)->getType()) {
+ case SGCloudLayer::SG_CLOUD_OVERCAST:
+ return "overcast";
+ case SGCloudLayer::SG_CLOUD_MOSTLY_CLOUDY:
+ return "mostly-cloudy";
+ case SGCloudLayer::SG_CLOUD_MOSTLY_SUNNY:
+ return "mostly-sunny";
+ case SGCloudLayer::SG_CLOUD_CIRRUS:
+ return "cirrus";
+ case SGCloudLayer::SG_CLOUD_CLEAR:
+ return "clear";
+ default:
+ return "unknown";
+ }
+}
+
+void
+FGEnvironmentMgr::set_cloud_layer_type (int index, const char * type_name)
+{
+ SGCloudLayer::Type type;
+ if (!strcmp(type_name, "overcast"))
+ type = SGCloudLayer::SG_CLOUD_OVERCAST;
+ else if (!strcmp(type_name, "mostly-cloudy"))
+ type = SGCloudLayer::SG_CLOUD_MOSTLY_CLOUDY;
+ else if (!strcmp(type_name, "mostly-sunny"))
+ type = SGCloudLayer::SG_CLOUD_MOSTLY_SUNNY;
+ else if (!strcmp(type_name, "cirrus"))
+ type = SGCloudLayer::SG_CLOUD_CIRRUS;
+ else if (!strcmp(type_name, "clear"))
+ type = SGCloudLayer::SG_CLOUD_CLEAR;
+ else {
+ SG_LOG(SG_INPUT, SG_WARN, "Unknown cloud type " << type_name);
+ type = SGCloudLayer::SG_CLOUD_CLEAR;
+ }
+ thesky->get_cloud_layer(index)->setType(type);
+}
+
+
+