'open /cpc/home/wd52vk/samer/satellite/irwin-swne-section1-SA-y1980-2009.ctl'
iyear=1980
while iyear<=2009
'set vpage 0.0 11 0.0 8.5'
'set parea 1.0 10 2.5 7.5'
'set grads off'
'set annot 1 5'
'set map 1 1 7'
'set string 1 tc 7'
'set strsiz 0.15 0.15'
'draw string 5.5 7.8 IR Brightness Temp. (deg K)'
'set csmooth on'
'set cterp off'
'set xyrev on'
'set lat -40 -10'
'set ylint 5'
'run /cpc/home/wd52vk/grads/util/rgbset.gs'
'set clevs 230 235 240 245 250 255 260 265 270 275 280 285 290 295'
'set ccols 59 49 48 47 46 45 44 43 42 41 21 22 23 24 25'
'set gxout shaded'
'set time 1jan'iyear' 31jan'iyear
'd irwin'
'run /cpc/home/wd52vk/grads/util/cbarmerc.gs'
'printim irwin-swne-sections-SA-jan'iyear'.gif white'
'clear'
iyear=iyear+1
endwhile