# Eastern North Atlantic, showing Mediterranean water.
library(oce)
s <- subset(section, 1<=stationId&stationId<=60)
ss <- sectionGrid(s, p=seq(00, 5000, 100))
ss <- sectionSort(ss, by="stationId")
plot(ss, which=c(2,99), map.xlim=c(-75,0))
Run the code above in your browser using DataLab