library(oce)
data(adp)
U <- adp[["v"]][,,1]
t <- adp[["time"]]
distance <- adp[["distance"]]
z <- distance - max(distance)
depth <- abs(z)
par(mfrow=c(3,1), mar=c(3, 3, 1, 1), mgp=c(2, 0.7, 0))
contour(t,distance,U,levels=0, ylab="Distance")
oceContour(t,z,U,levels=0, ylab="z")
oceContour(t,depth,U,levels=0,revy=TRUE, ylab="depth")
Run the code above in your browser using DataLab