; *************************************************;
; stream_1.ncl
; *************************************************;
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"   
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"   
; **************************************************;
begin
; **************************************************;
; read in 2D data only
; **************************************************;
  f = addfile("uvt.nc","r")
  u = f->U(0,0,:,:)                ; read in example data [2D only here]
  v = f->V(0,0,:,:)
; *************************************************;
; create plots
; *************************************************;
  wks  = gsn_open_wks("ps","stream")                   ; open a ps file

  res                 = True                           ; plot mods desired
  res@tiMainString    = "Example of a streamline plot" ; title

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