Explorez un modèle détaillé des océans de la Terre
Découvrez comment la salinité de l'eau de mer s'écarte à des profondeurs différentes de sa valeur moyenne standard de 35,2 g/kg.
Calculez un tableau de valeurs de l'anomalie de salinité le long du méridien E de 180° pour des profondeurs allant de 0 à 6000 mètres, et en supposant une température 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}];
Les écarts les plus importants sont observés pour les latitudes les plus élevées.
In[2]:=

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

Superposez un profil d'élévation du fond marin le long du même méridien.
Afficher l'entrée complète de Wolfram Language
Out[3]=
