#An example for the Global Forecast System 0.5 degree model
#Get some information about the latest model url and date, real time server
abbrev <- "gfs_0p50"
if (FALSE) {
urls.out <- GetDODSDates(abbrev)
model.url <- tail(urls.out$url, 1)
model.runs <- GetDODSModelRuns(model.url)
model.info <- GetDODSModelRunInfo(model.url, tail(model.runs$model.run, 1))
print(model.info)
}
Run the code above in your browser using DataLab