Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

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

  • Date Created:

Source Metadata

  • Source: http://www.staff.science.uu.nl/~boer0160/Model_output/BdeBoer_etal_1Dmodel_output.txt
  • Citation: Cenozoic global ice-volume and temperature simulations with 1-D ice-sheet models forced by benthic d18O records", Annals of Glaciology, 51 (55), 23-33, 2010

Data Downloads

Publisher Information

  • Prepared for the Wolfram Data Repository By: Jeff Bryant
  • Publisher of Record: Wolfram Research