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) pres = True gsn_panel(wks,(/plot1,plot2/),(/1,2/),pres)