'open CPC_GOB_V0.x_DLY_0.25deg.lnx.ctl'  


'set gxout shaded' 
'set grads off'  
'set grid off'  
'set z 1' 

'set xlopts 1 1 0.14'
'set ylopts 1 1 0.14'
'set xlint 60'
'set ylint 30'


kyr = 1979                                      
kdy = 1                 
kchk=1 

while (kchk=1)  

  nn  = kdy        

  'set vpage 0.0 11.0 0.0 8.5  '   
  'set gxout shaded'  
  '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   30   32  33  34  35  36  37  38  39  40  41 42  43 44' 
  'set clevs  0.0  0.5   1   2   4   6   8  10  12  14  16 20  25'  

  'set t 'nn 

'set lon -30 330'
'set lat -90 90'
'set z 1'

'set xlopts 1 1 0.14'
'set ylopts 1 1 0.14'
'set xlint 60'
'set ylint 30'

'set rgb 91  180 180 180'

'set parea  1.0 10.0 0.0 8.0  '
'set ccols    91  4  11   5  13   3  10   7  12   8   2  6 '
'set clevs   0.1 0.2 0.5  1   2   5  10  15  20  30  40  '
'd brain '
'run /cpc/home/wd52px/UTILITIES/GrADS/utl/cbarn.gs'


'set string 1 bl 5' 
'set strsiz 0.45' 
'draw string 1.0 7.0 CPC GOB ' 

  'set string 2 br 8'
  'set strsiz 0.35'
  'draw string  8.5 7.0 'kyr    
  'draw string 10.0 7.0 'kdy     

  say 'Do you want to continue ? (y/n)' 
  pull  con 
  con = subwrd (con,1)
  if  (con != n)   
    kdy=kdy+1 
    if (kdy=367) 
      kdy = 1 
    endif 
    'clear' 
  else 
    kchk=0 
  endif 

endwhile