load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/shea_util.ncl" f = addfile ("uv300.nc","r") u = f->U ; read U wks = gsn_open_wks ("x11","prim1f_without_text") res = True res@gsnDraw = False ; Don't draw plot yet res@gsnFrame = False ; Don't advance frame res@xyMonoDashPattern = True ; use solid lines only res@xyLineColors = (/"NavyBlue","Brown3"/) res@xyLineThicknessF = 2.0 res@trYMinF = min(u) res@trYMaxF = max(u) lon1 = 70 plot1 = gsn_csm_xy (wks,u&lat,u(:,:,{lon1}),res) lon2 = 0 plot2 = gsn_csm_xy (wks,u&lat,u(:,:,{lon2}),res) txres = True ; resource for text resources txres@txFontHeightF = 0.02 ; make strings smaller txres@txJust = "CenterLeft" ;---Draw two text strings at bottom of page drawNDCGrid(wks) ; draws a handy NDC grid gsn_text_ndc(wks,"January",0.10,0.2,txres) gsn_text_ndc(wks,"July", 0.60,0.2,txres) pres = True gsn_panel(wks,(/plot1,plot2/),(/1,2/),pres)