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.
muestre la entrada completa de Wolfram Language
Out[3]=
