load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/shea_util.ncl" filename = "SLP.1979_2003.nc" a = addfile(filename,"r") slp = a->slp wks = gsn_open_wks("x11","slp_right_half_panel") res = True res@gsnDraw = False res@gsnFrame = False res@gsnLeftString = "" res@gsnRightString = "" res@cnFillOn = True res@cnLinesOn = False res@cnLineLabelsOn = False res@lbLabelBarOn = False res@cnLevelSelectionMode = "ExplicitLevels" res@cnLevels = ispan(976,1060,4) nplots = 4 plot = new(nplots,graphic) do i=0,nplots-1 plot(i) = gsn_csm_contour_map(wks,slp(i,:,:),res) end do pres = True pres@gsnFrame = False pres@gsnPanelLabelBar = True pres@gsnPanelLeft = 0.5 ; Right half of NDC square gsn_panel(wks,plot(1::2),(/2,1/),pres) drawNDCGrid(wks) frame(wks)