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

begin
  arr = random_uniform(-4.,4.,56)
	
  wks = gsn_open_wks("ps","tm")
  gsn_define_colormap(wks,"gsdtol")

  res = True
	
; The following vp resources set the boundaries of the xy plot
; in ndc grid space (0.->1.)
  res@vpWidthF = 0.8		; set width of plot 
  res@vpHeightF = 0.3		; set height of plot
  res@vpXF = 0.1		; set left hand side start point of plot
				; as vpWidthF = .8, plot will occupy .1->.9 in NDC coords.
						
  res@trXMinF = 1949		; set minimum X-axis value
  res@trXMaxF = 2006		; set maximum X-axis value
	
  res@gsnDraw = False		; don't draw the plots, gsn_panel will draw them
  res@gsnFrame = False		; don't advance the frame, gsn_panel will
  res@txFontHeightF = 0.015	; set font height of gsn*String

  plot = new(2,graphic)		; preallocate graphics array for two panel plots

  res@tmXBMode = "Manual"	
  res@tmXBTickStartF = 1950
  res@tmXBTickEndF = 2005
  res@tmXBTickSpacingF = 5
  res@gsnLeftString = "tmXBMode = Manual"
  plot(0) = gsn_csm_xy(wks,ispan(1950,2005,1),arr,res)
	
  res@tmXBMode = "Explicit"	
  res@tmXBValues = (/1950,1960,1970,1980,1990,2000,2005/)
  res@tmXBLabels = (/"1950","1960","1970","1980","1990","2000","2005"/)
  res@tmXBMinorValues  = ispan(1949,2006,1)
  res@gsnLeftString = "tmXBMode = Explicit"
  plot(1) = gsn_csm_xy(wks,ispan(1950,2005,1),arr,res)	
	
  panres = True						; panel resource list
  panres@gsnPanelYWhiteSpacePercent = 5.0		; set spacing vertically between 2 panels
	
  gsn_panel(wks,plot,(/2,1/),panres)	
end