'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 (SEBR Wet)'
'set lat -54 14'
'set lon -89 -21'
'set time 12z26jan1980'
'define ir1=irwina'
'set time 12z15jan1981'
'define ir2=irwina'
'set time 12z3jan1982'
'define ir3=irwina'
'set time 12z4jan1982'
'define ir4=irwina'
'set time 12z12jan1982'
'define ir5=irwina'
'set time 12z23jan1982'
'define ir6=irwina'
'set time 12z24jan1982'
'define ir7=irwina'
'set time 12z25jan1982'
'define ir8=irwina'
'set time 12z17jan1985'
'define ir9=irwina'
'set time 12z8jan1986'
'define ir10=irwina'
'set time 12z22jan1992'
'define ir11=irwina'
'set time 12z4jan1997'
'define ir12=irwina'
'set time 12z6jan1999'
'define ir13=irwina'
'set time 12z1jan2000'
'define ir14=irwina'
'set time 12z2jan2000'
'define ir15=irwina'
'set time 12z3jan2000'
'define ir16=irwina'
'set time 12z8jan2002'
'define ir17=irwina'
'set time 12z28jan2003'
'define ir18=irwina'
'set time 12z29jan2003'
'define ir19=irwina'
'set time 12z30jan2003'
'define ir20=irwina'
'set time 12z17jan2005'
'define ir21=irwina'
'set time 12z30jan2006'
'define ir22=irwina'
'set time 12z21jan2009'
'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-23cases-sebr-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-sebr-wet-24jan1982.gif white'