data(GFS)
gfs.array <- ModelGrid(gfs.model.data)
contour(x = gfs.array$x, y = gfs.array$y, gfs.array$z[2,1,,] - 273.15,
xlab = "Latitude", ylab = "Longitude",
main = paste("North Carolina Temperatures for",
gfs.array$fcst.date, "GMT in Celsius"))
Run the code above in your browser using DataLab