# NOT RUN {
#See what is available for January 1 of this year
abbrev <- "gfs4"
model.date <- paste0(format(Sys.time(), "%Y"), "0101")
# }
# NOT RUN {
gfs.available.models <- CheckNOMADSArchive(abbrev, model.date)
# }
Run the code above in your browser using DataLab