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 default content:

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

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

In[2]:=
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[2]=

Create maps showing how sea level changes affect geographic regions:

In[3]:=
seaint = Interpolation[
    Transpose[
     QuantityMagnitude[
      Normal[Values[
        ResourceData[
          "Sea Level and Temperatures Over the Last 40 Million Years"][{"TimeBeforePresent", "SeaLevel"}]]]]], InterpolationOrder -> 1];;
In[4]:=
data = GeoElevationData[
   GeoDisk[Entity[
     "City", {"London", "GreaterLondon", "UnitedKingdom"}], Quantity[800, "Miles"]], UnitSystem -> "Metric"];
In[5]:=
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[5]=

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