'reinit' 
'open monstemp_upperlimit_8110.ctl' 
'set gxout grfill' 
'set mpdset hires' 
'set display color white' 
'c'
'set lat 20 60'
'set lon -130 -60'


timestep=1
while ( timestep <= 12 )
  'set t 'timestep' '
  

  


if (timestep=1);   lab='JAN'; endif
if (timestep=2);   lab='FEB'; endif
if (timestep=3);   lab='MAR'; endif
if (timestep=4);   lab='APR'; endif
if (timestep=5);   lab='MAY'; endif
if (timestep=6);   lab='JUN'; endif
if (timestep=7);   lab='JUL'; endif
if (timestep=8);   lab='AUG'; endif
if (timestep=9);   lab='SEP'; endif
if (timestep=10);  lab='OCT'; endif
if (timestep=11);  lab='NOV'; endif
if (timestep=12);  lab='DEC'; endif

'set string 1 tl'
'draw string 1 1 'lab' 1981 - 2010'
'draw title Monthly Temperature Upper Limit (degrees C)'
'set grads off'

'run setcol.gs'
'set clevs -15 -12 -9 -6 -3 0 3 6 9 12 15 18 21 24 27 30 33'
'set ccols 59 55 51 45 43 31 33 35 37 21 22 23 24 25 26 27 28 29'
'd r'
'run cbarn.gs'
'printim 'lab'8110MonTupper.gif'
'c'

  timestep = timestep + 1
endwhile