;
; Color exercise 3.
;

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

begin
  wks = gsn_open_wks("x11","color_ex03")

  gsn_define_colormap(wks,"BlGrYeOrReVi200")  ; Define new color map.
  new_index = NhlNewColor(wks,0.65,0.65,0.65)

  gsn_draw_colormap(wks)                  ; Draw the current color map
end