# NOT RUN {
#do not run
input <- system.file("extdata",
"uwnd.mon.mean_200hPa_2014JFM.nc",
package = "raytracing")
b <- betaks(u = input)
rt <- ray_source(betam = b$betam,
u = b$u,
lat = b$lat,
K = 3,
itime = 10*4,
cx = 0,
x0 = -c(130, 135),
y0 = -30,
dt = 6,
direction = -1,
interpolation = "trin")
# Plot:
data(coastlines)
plot(coastlines,
reset = FALSE,
axes = TRUE,
graticule = TRUE,
col = "grey",
main = "Coelho et al. (2015): JFM/2014")
plot(rt[sf::st_is(rt, "LINESTRING"),]["lon_ini"],
add = TRUE,
lwd = 2,
pal = colorRampPalette(c("black", "blue")))
# }
Run the code above in your browser using DataLab