load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl" load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl" load "./draw_ndc_grid.ncl" begin ;---Generate dummy u, v arrays npts = 10 ii = ispan(10,10*npts,10) u = conform_dims((/npts,npts/),ii,0) v = conform_dims((/npts,npts/),ii,1) ;---Open workstation wtype = "png" wtype@wkHeight = 2500 wtype@wkWidth = 2500 wks = gsn_open_wks(wtype,"vector1a_with_ndc_grid") ;---Set some resources res = True res@gsnFrame = False res@gsnDraw = False vector = gsn_csm_vector(wks,u,v,res) drawNDCGrid(wks) draw(vector) frame(wks) end