I've noticed something odd in the near-surface salinity and temperature values
for glider sea019, mission m44. The code block below will be self-explanatory
to R users; for others, I'm just reading the data using a function in the
oceanglider
package, skipping the first point (dated in 2009) and then
plotting 2000 points that follow, to show a few yos. I put a vertical red line
at a time just before the first ascent, as judged by eye based on the pressure
timeseries (top panel below).
library(oce) library(oceglider) g <- read.glider.seaexplorer.delayed("/data/glider/sea019/m54/all_data") look <- 2:2001 t <- g[["time"]][look] p <- g[["pressure"]][look] T <- g[["temperature"]][look] S <- g[["salinity"]][look] C <- g[["conductivity"]][look] par(mfcol=c(2, 2)) oce.plot.ts(t, p, type="p") tline <- numberAsPOSIXct(1532442701) # by clicking mouse abline(v=tline, col="red") oce.plot.ts(t, T, type="p", drawTimeRange=FALSE) abline(v=tline, col="red") oce.plot.ts(t, S, type="p", drawTimeRange=FALSE) abline(v=tline, col="red") oce.plot.ts(t, C, type="p", drawTimeRange=FALSE) abline(v=tline, col="red")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.