'open BASS_V0.Y_MON_1DEG.lnx.B201001.ctl' 'set vpage 0.0 8.5 0.0 11.0 ' 'set gxout shaded' 'set grads off' 'set grid off' 'set lon 30 390 ' 'set lat -90 90' 'set z 1' kyr = 2010 kmn = 01 kchk=1 while (kchk=1) nn = (kyr-2010)*12+kmn 'set grads off' 'set grid off' 'set rgb 30 150 150 150' 'set rgb 31 250 250 250' 'set rgb 32 0 225 255' 'set rgb 33 0 165 185' 'set rgb 34 0 185 0' 'set rgb 35 0 255 45' 'set rgb 36 255 255 0' 'set rgb 37 225 205 0' 'set rgb 38 160 120 0' 'set rgb 39 160 40 0' 'set rgb 40 185 0 0' 'set rgb 41 255 0 155' 'set rgb 42 185 0 255' 'set rgb 43 125 0 205' 'set rgb 44 75 0 160' 'set ccols 31 32 33 34 35 36 37 38 39 40 41 42 43 44' 'set clevs 20 25 30 31 32 33 34 35 36 37 38 40 45' 'set ccols 9 14 4 11 5 13 30 3 10 7 12 8 2 6 ' 'set xlopts 1 1 0.15' 'set ylopts 1 1 0.15' 'set xlint 60' 'set ylint 20' 'set t 'nn 'set parea 0.7 7.7 6.0 10.0 ' 'set ccols 9 14 4 11 5 13 30 7 12 8 2 6 40' 'set clevs -5 -2 -1 -0.5 -0.2 -0.1 0.1 0.2 0.5 1 2 5 ' 'd sbass' 'run /cpc/home/wd52px/UTILITIES/GrADS/utl/cbarhov1.gs' 'set parea 0.7 7.7 1.0 5.0 ' 'set ccols 31 32 33 34 35 36 37 38 39 40 41 42 43 44' 'set clevs 0.06 0.08 0.10 0.12 0.14 0.16 0.18 0.20 0.25 0.30 0.35 0.40 0.50 ' 'd ebass' 'run /cpc/home/wd52px/UTILITIES/GrADS/utl/cbarhov1.gs' 'set string 1 bl 5' 'set strsiz 0.25' 'draw string 0.9 10.1 BASS' 'draw string 0.9 5.1 Error' 'set strsiz 0.25' 'set string 6 br 6' 'draw string 6.9 10.1 'kyr 'draw string 7.6 10.1 'kmn say 'Do you want to continue ? (y/n)' pull con con = subwrd (con,1) if (con != n) kmn=kmn+1 if (kmn=13) kyr=kyr+1 kmn=1 endif 'clear' else kchk=0 endif endwhile