;*************************************************
; logo_3.ncl
;************************************************
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"  
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"  
;************************************************
begin
;************************************************
; read in netCDF file
;************************************************
  a = addfile("uv300.nc","r")
;************************************************
; read in zonal winds
;************************************************
  u = a->U(1,:,:)                                ; read July zonal winds
;************************************************
; create default plot
;************************************************
  wks = gsn_open_wks("ps","logo") ; open a ps file
  
  res          = True            ; plot mods desired
  res@gsnFrame = False           ; don't advance frame yet
  res@gsnDraw  = False           ; don't draw yet
  
  res@tiMainString = "Example of using nglogo" ; title
  
  plot = gsn_csm_contour_map_ce(wks,u,res) ; create a default plot
  
; use nglogo to precisely place an NCAR logo on a page. Arguments are:
; (workstation name, xcoord, ycoord, size in ndc coord, type, color
; index, colorindex for type=5)
  
; types: 1 = NCAR logo
;        2 = UCAR logo (Star symbol)
;        3 = The text "NCAR" in Bell Gothic Black font 
;        4 = The text "UCAR in Bell Gothic Black font
;        5 = UCAR star logo plus "UCAR" text  
  
  nglogo(wks,0.2,0.85,0.05,5,6,4)
  draw(wks)
  frame(wks)
end