'open /cpc/home/wd52vk/samer/satellite/cor-x27y19-irwin-boxes-jan1980-2009.ctl'
iyear=1980
while iyear<=2009
'set vpage 0.0 8.5 0.0 11.0'
'set parea 1.0 7.5 3.5 10.0'
'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 4.25 10.5 Correlation IR Brightness Temp. '
'draw string 4.25 10.2 January 'iyear
'set csmooth on'
'set cterp off'
'set lat -55 15'
'set lon -90 -20'
'set ylint 5'
'set xlint 5'
'run /cpc/home/wd52vk/grads/util/rgbset.gs'
'set clevs -60 -50 -40 -30 -20 20 30 40 50 60 70 80 90'
'set ccols  49 47 45 43 41 0 21 22 23 24 25 26 27 28'
'set gxout shaded'
'set time 16jan'iyear
'd cor'
'run /cpc/home/wd52vk/grads/util/cbarmerc.gs'
'printim cor-irwin-jan'iyear'.gif white'
'clear'
iyear=iyear+1
endwhile