'reinit'
'open /cpc/home/wd52vk/samer/satellite/irwin-SA-daily-anoms-boxes-y1980-2009.ctl'
'set vpage 0 8.5 0 11.0'
'set parea 1.0 7.5 3.5 10.0'
'set grads off'
'set mpdset hires'
'set map 1 1 3'
'set annot 1 5'
'set looping off' 
'set csmooth on'
'set string 1 tc 7'
'set strsiz 0.15 0.15'
'draw string 4.25 10.5 January Brightness Temp. Anoms. Composite'
'set strsiz 0.15 0.15'
'draw string 4.25 10.2 15 Similar Patterns (43.7W, 22.7S)'
'set lat -54 14'
'set lon -89 -21'
'set time 12z3jan1982'
'define ir1=irwina'
'set time 12z2jan2000'
'define ir2=irwina'
'set time 12z3jan1997'
'define ir3=irwina'
'set time 12z16jan1991'
'define ir4=irwina'
'set time 12z17jan1992'
'define ir5=irwina'
'set time 12z9jan2004'
'define ir6=irwina'
'set time 12z20jan1985'
'define ir7=irwina'
'set time 12z21jan2009'
'define ir8=irwina'
'set time 12z3jan2000'
'define ir9=irwina'
'set time 12z8jan1985'
'define ir10=irwina'
'set time 12z23jan1982'
'define ir11=irwina'
'set time 12z2jan2006'
'define ir12=irwina'
'set time 12z17jan1985'
'define ir13=irwina'
'set time 12z1jan2000'
'define ir14=irwina'
'set time 12z5jan2006'
'define ir15=irwina'
'define ircomp=(ir1+ir2+ir3+ir4+ir5+ir6+ir7+ir8+ir9+ir10+ir11+ir12+ir13+ir14+ir15)/15.'
'set z 1'
'run /cpc/home/wd52vk/grads/util/rgbset.gs'
*'set clevs 260 263 266 269 272 275 278 281 284 287 290'
*'set ccols 59 49 39 37 35 33 31 71 73 75 77 79' 
'set clevs -30 -27 -24 -21 -18 -15 -12 -9 -6 -3 0 3 6 9 12 15 18'
'set ccols  55 59 49 48 47 46 45 44 43 42 41 21 22 23 24 25 27 29' 
'set gxout shaded'
'set ylint 10'
'set xlint 20'
'set ylab on'
'd ircomp'
'run /cpc/home/wd52vk/grads/util/cbarhovn.gs'
'printim irwin-comp-jan-15cases-x27y19.gif white'