'reinit'
'open /cpc/home/wd52vk/samer/satellite/gridsat.ctl'
'set vpage 0 8.5 0 11.0'
'set parea 1.0 4.0 7.5 10.0'
'set dfile 1'
'set grads off'
'set mpdset hires'
'set map 3 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.6 IR'
'set strsiz 0.1 0.1'
'draw string 2.5 10.15 12Z 17 Jan 2005'
'set lat -30 0'
'set lon -80 -40'
'set time 12Z17jan2005'
'set z 1'
'run /cpc/home/wd52vk/grads/util/bw2.gs'
'set clevs 180 190 200 210 220 230 240 250 260 270 280 290 300'
'set ccols 55 53 51 49 47 45 43 41 39 37 35 33 31 30'
'set gxout shaded'
'set ylint 10'
'set xlint 20'
'set ylab on'
'd irwin'
'set vpage 0 8.5 0 11.0'
'set parea 4.5 7.5 7.5 10.0'
'set dfile 1'
'set grads off'
'set mpdset hires'
'set map 3 1 3'
'set annot 1 5'
'set looping off' 
'set csmooth on'
'set string 1 tc 7'
'set strsiz 0.1 0.1'
'draw string 6.0 10.15 15Z 17 Jan 2005'
'set time 15Z17jan2005'
'set z 1'
'set clevs 180 190 200 210 220 230 240 250 260 270 280 290 300'
'set ccols 55 53 51 49 47 45 43 41 39 37 35 33 31 30'
'set gxout shaded'
'set ylint 10'
'set xlint 20'
'set ylab on'
'd irwin'
'set vpage 0 8.5 0 11.0'
'set parea 1.0 4.0 4.5 7.0'
'set dfile 1'
'set grads off'
'set mpdset hires'
'set map 3 1 3'
'set annot 1 5'
'set looping off' 
'set csmooth on'
'set string 1 tc 7'
'set strsiz 0.1 0.1'
'draw string 2.5 7.15 18Z 17 Jan 2005'
'set time 18Z17jan2005'
'set z 1'
'set clevs 180 190 200 210 220 230 240 250 260 270 280 290 300'
'set ccols 55 53 51 49 47 45 43 41 39 37 35 33 31 30'
'set gxout shaded'
'set ylint 10'
'set xlint 20'
'set ylab on'
'd irwin'
'set vpage 0 8.5 0 11.0'
'set parea 4.5 7.5 4.5 7.0'
'set dfile 1'
'set grads off'
'set mpdset hires'
'set map 3 1 3'
'set annot 1 5'
'set looping off' 
'set csmooth on'
'set string 1 tc 7'
'set strsiz 0.1 0.1'
'draw string 6.0 7.15 21Z 17 Jan 2005'
'set time 21Z17jan2005'
'set z 1'
'set clevs 180 190 200 210 220 230 240 250 260 270 280 290 300'
'set ccols 55 53 51 49 47 45 43 41 39 37 35 33 31 30'
'set gxout shaded'
'set ylint 10'
'set xlint 20'
'set ylab on'
'd irwin'
'run /cpc/home/wd52vk/grads/util/cbarhovn.gs'
'set vpage 0 8.5 0 11.0'
'set parea 1.0 4.0 1.5 4.0'
'set dfile 1'
'set grads off'
'set mpdset hires'
'set map 3 1 3'
'set annot 1 5'
'set looping off' 
'set csmooth on'
'set string 1 tc 7'
'set strsiz 0.1 0.1'
'draw string 2.5 4.15 00Z 18 Jan 2005'
'set time 00Z18jan2005'
'set z 1'
'set clevs 180 190 200 210 220 230 240 250 260 270 280 290 300'
'set ccols 55 53 51 49 47 45 43 41 39 37 35 33 31 30'
'set gxout shaded'
'set ylint 10'
'set xlint 20'
'set ylab on'
'd irwin'
'set vpage 0 8.5 0 11.0'
'set parea 4.5 7.5 1.5 4.0'
'set dfile 1'
'set grads off'
'set mpdset hires'
'set map 3 1 3'
'set annot 1 5'
'set looping off' 
'set csmooth on'
'set string 1 tc 7'
'set strsiz 0.1 0.1'
'draw string 6.0 4.15 03Z 18 Jan 2005'
'set time 03Z18jan2005'
'set z 1'
'set clevs 180 190 200 210 220 230 240 250 260 270 280 290 300'
'set ccols 55 53 51 49 47 45 43 41 39 37 35 33 31 30'
'set gxout shaded'
'set ylint 10'
'set xlint 20'
'set ylab on'
'd irwin'
'printim ir-17-18jan2005.gif white'