Wolfram Language™

Explore un modelo detallado de los océanos de la Tierra

Descubra cómo la salinidad del agua de mar se desvía de su valor estándar promedio de 35.2 g/kg en distintas profundidades.

Calcule un arreglo de valores de anomalía de salinidad alrededor de 180° E meridiano para profundidades que van de los 0 a los 6000 metros, y asumiendo una temperatura constante de 15 °C.

In[1]:=

anomaly = Table[{lat, Quantity[-d, "Meters"], StandardOceanData[<|"Position" -> GeoPosition[{lat, 180}], "Pressure" -> Quantity[d, "Decibars"], "Temperature" -> Quantity[15, "DegreesCelsius"]|>, "AbsoluteSalinityAnomaly"]}, {lat, -85, 65, 5}, {d, 0, 6000, 50}];

Las desviaciones más grandes fueron encontradas en las altitudes más grandes.

In[2]:=

anomalyPlot = ListDensityPlot[Flatten[anomaly, 1], ColorFunction -> "TemperatureMap", FrameLabel -> {"latitude", "elevation"}, PlotLegends -> Automatic, ImageSize -> Medium]

Out[2]=

Superponga un perfil de elevación del fondo marítimo a lo largo del mismo meridiano.

In[3]:=

depths = GeoElevationData[ GeoPosition[Table[{lat, 180}, {lat, -85, 65, 1}]], UnitSystem -> "Metric"]; depthsPlot = ListPlot[Transpose[{Range[-85, 65, 1], depths}], Joined -> True, Filling -> Bottom, FillingStyle -> Gray, PlotStyle -> None, Frame -> True, Axes -> False]; Show[anomalyPlot, depthsPlot]

Out[3]=