load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"

begin
  fu = addfile("$NCARG_ROOT/lib/ncarg/data/cdf/Ustorm.cdf","r")
  fv = addfile("$NCARG_ROOT/lib/ncarg/data/cdf/Vstorm.cdf","r")

  u = fu->u(0,:,:)       ; Select first timestep.
  v = fv->v(0,:,:)

  wks = gsn_open_wks("x11","vector_ex01")

  res                      = True          ; Plot options desired.

  res@gsnMaximize          = True          ; Maximize plot in frame.

  res@vcMonoLineArrowColor = False         ; Turn on color vectors.

  plot = gsn_csm_vector(wks,u,v,res)
end