Wolfram Research

Sea Level and Temperatures Over the Last 40 Million Years

Dataset of eustatic sea level and temperatures over the last 40 million years

Originator: De Boer, B., R.S.W. Van de Wal, L.J. Lourens and R. Bintanja

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["Sea Level and Temperatures Over the Last 40 Million \
Years"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["Sea Level and Temperatures Over the Last 40 Million \
Years"]
Out[2]=

Plot the sea level change over the last 40 million years:

In[3]:=
ListPlot[Transpose[
  QuantityMagnitude[
   Normal[Values[
     ResourceData[
       "Sea Level and Temperatures Over the Last 40 Million \
Years"][{"TimeBeforePresent", "SeaLevel"}]]]]], Frame -> True, 
 PlotRange -> All, 
 FrameLabel -> {{None, 
    "Sea Level Change (m)"}, {"Millions of Years Ago", None}}, 
 FrameTicks -> {{Table[{i, i}, {i, -140, 80, 20}], 
    Table[{i, i}, {i, -140, 80, 
      20}]}, {Table[{i, -i/1000000}, {i, -40000000, 0, 5000000}], 
    Table[{i, -i/1000000}, {i, -40000000, 0, 5000000}]}}]
Out[3]=

Create maps showing how sea level changes affect geographic regions:

In[4]:=
seaint = Interpolation[
    Transpose[
     QuantityMagnitude[
      Normal[Values[
        ResourceData[
          "Sea Level and Temperatures Over the Last 40 Million \
Years"][{"TimeBeforePresent", "SeaLevel"}]]]]], 
    InterpolationOrder -> 1];;
In[5]:=
data = GeoElevationData[
   GeoDisk[Entity[
     "City", {"London", "GreaterLondon", "UnitedKingdom"}], 
    Quantity[800, "Miles"]], UnitSystem -> "Metric"];
In[6]:=
With[{ybp = -22000},
 ReliefPlot[Reverse[data], 
  PlotRange -> {Full, Full, {seaint[ybp], All}}, 
  ColorFunction -> "FallColors", ClippingStyle -> RGBColor[0, .2, .5],
   PerformanceGoal -> "Quality", 
  PlotLabel -> Row[{-Round[ybp], " years ago"}], 
  Epilog -> {Text[Style["Doggerland", 12, White], {275, 175}]}]]
Out[6]=

Wolfram Research, "Sea Level and Temperatures Over the Last 40 Million Years" from the Wolfram Data Repository (2019) https://doi.org/10.24097/wolfram.90759.data

Data Resource History

Source Metadata

Data Downloads

Publisher Information