# Eastern North Atlantic, showing Mediterranean water.
library(oce)
data(coastline.world)
data(a03)
s <- section.grid(subset(a03, indices=90:3), p=seq(00, 2500, 100))
ss <- section.sort(s, by="station.id")
plot(ss,coastline=coastline.world,map.xlim=c(-75,0))
Run the code above in your browser using DataLab