forrest@0: ;*************************************************
forrest@0: ; NCL Graphics: table_2.ncl
forrest@0: ;*************************************************
forrest@0: 
forrest@0: load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
forrest@0: 
forrest@0: begin
forrest@0: ; Header
forrest@0:   ncr1  = (/1,1/)               ; 1 row, 1 column
forrest@0:   x1    = (/0.005,0.335/)       ; Start and end X
forrest@0:   y1    = (/0.900,0.995/)       ; Start and end Y
forrest@0:   text1 = "CAM METRICS"
forrest@0: 
forrest@0: ; Sub header
forrest@0:   ncr2  = (/2,2/)               ; 2 rows, 2 columns
forrest@0:   x2    = (/0.335,0.995/)       ; Start and end X
forrest@0:   y2    = (/0.900,0.995/)       ; Start and end Y
forrest@0:   text2 = (/ (/"Case A","Case B"/),(/"ANN","ANN"/)/)
forrest@0: 
forrest@0: ; Main table body
forrest@0:   ncr3  = (/16,3/)              ; 16 rows, 3 columns
forrest@0:   x3    = (/0.005,0.995/)       ; Start and end X
forrest@0:   y3    = (/0.005,0.900/)       ; Start and end Y
forrest@0: 
forrest@0:   text3 = (/ (/"SLP_ERA40",        "1.230", "1.129"/), \
forrest@0:              (/"Tsfc_ERA40",       "0.988", "0.996"/), \
forrest@0:              (/"Prc_GPCP",         "1.092", "1.016"/), \
forrest@0:              (/"Prc 30S-30N_GPCP", "1.172", "1.134"/), \
forrest@0:              (/"LW_ERS",           "1.064", "1.023"/), \
forrest@0:              (/"SW_ERS",           "0.966", "0.962"/), \
forrest@0:              (/"U300_ERA40",       "1.079", "1.048"/), \
forrest@0:              (/"Guess_BOGUS",      "0.781", "0.852"/), \
forrest@0:              (/"RH_NCEP",          "1.122", "0.911"/), \
forrest@0:              (/"LHFLX_ERA40",      "1.000", "0.835"/), \
forrest@0:              (/"TWP_ERA40",        "0.998", "0.712"/), \
forrest@0:              (/"CLDTOT_NCEP",      "1.321", "1.122"/), \
forrest@0:              (/"O3_NASA",          "0.842", "0.956"/), \
forrest@0:              (/"Q_JMA",            "0.978", "0.832"/), \
forrest@0:              (/"PBLH_JMA",         "0.998", "0.900"/), \
forrest@0:              (/"Omega_CAS",        "0.811", "1.311"/)/)
forrest@0: 
forrest@0: 
forrest@0:   wks = gsn_open_wks("ps","table")
forrest@0: 
forrest@0: ;
forrest@0: ; Main header.
forrest@0: ;
forrest@0:   res1               = True
forrest@0:   res1@txFontHeightF = 0.03
forrest@0:   res1@gsFillColor   = "CornFlowerBlue"
forrest@0: 
forrest@0:   gsn_table(wks,ncr1,x1,y1,text1,res1)
forrest@0: 
forrest@0: ;
forrest@0: ; Sub header
forrest@0: ;
forrest@0:   res2               = True
forrest@0:   res2@txFontHeightF = 0.02
forrest@0:   res2@gsFillColor   = "Gray"
forrest@0: 
forrest@0:   gsn_table(wks,ncr2,x2,y2,text2,res2)
forrest@0: 
forrest@0: ;
forrest@0: ; Main body of table.
forrest@0: ;
forrest@0:   res3 = True             ; Set up resource list
forrest@0: 
forrest@0: ;  res3@gsnDebug = True     ; Useful to print NDC row,col values used.
forrest@0: 
forrest@0:   res3@txFontHeightF = 0.02
forrest@0: 
forrest@0:   res3@gsFillColor = (/ (/"gray","transparent","palegreen"/), \
forrest@0:                        (/"gray","transparent","hotpink"/), \
forrest@0:                        (/"gray","transparent","palegreen"/), \
forrest@0:                        (/"gray","transparent","palegreen"/), \
forrest@0:                        (/"gray","transparent","palegreen"/), \
forrest@0:                        (/"gray","transparent","palegreen"/), \
forrest@0:                        (/"gray","transparent","palegreen"/), \
forrest@0:                        (/"gray","transparent","hotpink"/), \
forrest@0:                        (/"gray","transparent","palegreen"/), \
forrest@0:                        (/"gray","transparent","palegreen"/), \
forrest@0:                        (/"gray","transparent","palegreen"/), \
forrest@0:                        (/"gray","transparent","palegreen"/), \
forrest@0:                        (/"gray","transparent","hotpink"/), \
forrest@0:                        (/"gray","transparent","palegreen"/), \
forrest@0:                        (/"gray","transparent","palegreen"/), \
forrest@0:                        (/"gray","transparent","hotpink"/)/)
forrest@0: 
forrest@0:   gsn_table(wks,ncr3,x3,y3,text3,res3)
forrest@0: 
forrest@0:   frame(wks)      ; Advance the frame.
forrest@0: 
forrest@0: end