'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 23 Patterns (SNE Brazil Wet)'
'set lat -54 14'
'set lon -89 -21'
'set time 12z2jan1980'
'define ir1=irwina'
'set time 12z3jan1980'
'define ir2=irwina'
'set time 12z13jan1980'
'define ir3=irwina'
'set time 12z14jan1980'
'define ir4=irwina'
'set time 12z21jan1983'
'define ir5=irwina'
'set time 12z22jan1983'
'define ir6=irwina'
'set time 12z23jan1983'
'define ir7=irwina'
'set time 12z9jan1985'
'define ir8=irwina'
'set time 12z10jan1985'
'define ir9=irwina'
'set time 12z18jan1985'
'define ir10=irwina'
'set time 12z19jan1985'
'define ir11=irwina'
'set time 12z28jan1985'
'define ir12=irwina'
'set time 12z22jan1993'
'define ir13=irwina'
'set time 12z3jan2002'
'define ir14=irwina'
'set time 12z17jan2002'
'define ir15=irwina'
'set time 12z18jan2002'
'define ir16=irwina'
'set time 12z13jan2004'
'define ir17=irwina'
'set time 12z14jan2004'
'define ir18=irwina'
'set time 12z15jan2004'
'define ir19=irwina'
'set time 12z16jan2004'
'define ir20=irwina'
'set time 12z17jan2004'
'define ir21=irwina'
'set time 12z31jan2008'
'define ir22=irwina'
'set time 12z6jan2009'
'define ir23=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)/23.'
'set fwrite irwin-comp-26cases-snebr-wet'
'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-23cases-16jan2004.gif white'