'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 26 Patterns (SEBR Dry)'
'set lat -54 14'
'set lon -89 -21'
'set time 12z14jan1984'
'define ir1=irwina'
'set time 12z15jan1984'
'define ir2=irwina'
'set time 12z16jan1984'
'define ir3=irwina'
'set time 12z17jan1984'
'define ir4=irwina'
'set time 12z31jan1984'
'define ir5=irwina'
'set time 12z6jan1987'
'define ir6=irwina'
'set time 12z15jan1987'
'define ir7=irwina'
'set time 12z17jan1988'
'define ir8=irwina'
'set time 12z20jan1988'
'define ir9=irwina'
'set time 12z22jan1988'
'define ir10=irwina'
'set time 12z26jan1988'
'define ir11=irwina'
'set time 12z30jan1988'
'define ir12=irwina'
'set time 12z20jan1989'
'define ir13=irwina'
'set time 12z24jan1990'
'define ir14=irwina'
'set time 12z1jan1993'
'define ir15=irwina'
'set time 12z15jan1993'
'define ir16=irwina'
'set time 12z29jan1993'
'define ir17=irwina'
'set time 12z27jan1996'
'define ir18=irwina'
'set time 12z1jan1998'
'define ir19=irwina'
'set time 12z6jan1998'
'define ir20=irwina'
'set time 12z28jan1998'
'define ir21=irwina'
'set time 12z14jan2000'
'define ir22=irwina'
'set time 12z16jan2001'
'define ir23=irwina'
'set time 12z19jan2001'
'define ir24=irwina'
'set time 12z17jan2006'
'define ir25=irwina'
'set time 12z21jan2006'
'define ir26=irwina'
'define ircomp=(ir1+ir2+ir3+ir4+ir5+ir6+ir7+ir8+ir9+ir10+ir11+ir12+ir13+ir14+ir15+ir16+ir17+ir18+ir19+ir20+ir21+ir22+ir23+ir24+ir25+ir26)/26.'
'set fwrite irwin-comp-26cases-sebr-dry'
'set gxout fwrite'
'd ircomp'
'disable fwrite'
'run /cpc/home/wd52vk/grads/util/rgbset.gs'
'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-26cases-sebr-dry-27jan1996.gif white'