Explore a Detailed Model of the Earth's Oceans

Use

to compute an array of values of salinity anomaly along the 180° E meridian for depths ranging from 0 to 6000 meters, assuming a constant temperature of 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}];

Display the data. The highest deviations from the standard average value of 35.2 g/kg are found for larger latitudes:

In[2]:=

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

Out[2]=

Next use

GeoElevationData

to obtain an elevation profile of the sea floor along the same meridian:

In[3]:=

depths=GeoElevationData[GeoPosition[Table[{lat,180},{lat,-85,65,0.1}]],UnitSystem"Metric"];

Superimpose the elevation profile onto the anomaly plot:

In[4]:=

depthsPlot=ListPlotTranspose[{Range[-85,65,0.1],depths}],

;Show[anomalyPlot,depthsPlot]

Out[4]=

Related Symbols

Publisher Information