;************************************************
; ce_4.ncl
;************************************************
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl" 
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl" 
;************************************************
begin
;************************************************
; read in data
;************************************************
  a = addfile("uv300.nc","r")
  u = a->U(1,:,:)                                ; read July zonal winds
  v = a->V(1,:,:)                                ; read July zonal winds
;************************************************
; plot resources
;************************************************
  wks = gsn_open_wks("ps" ,"ce")                ; open a ps file

  vcres                         = True           ; plot mods desired

  vcres@vcRefAnnoOrthogonalPosF = -1.0           ; move ref vector up
  vcres@vcRefMagnitudeF         = 10.0           ; define vector ref mag
  vcres@vcRefLengthF            = 0.045          ; define length of vec ref
  vcres@vcGlyphStyle            = "CurlyVector"  ; turn on curly vectors
  vcres@vcMinDistanceF          = 0.017          ; thin the vectors

  vector = gsn_csm_vector_map_ce(wks,u,v,vcres)

end