tt=1
 while tt<48
'reinit'
'set mpdset hires'
'set display color black'
'c'
*'open corrida2.ctl'
'open Ba2dom21.ctl'
'set t ' tt

'set xlint 0.5'
'set ylint 0.5' 
'set lat -36 -32'
'set lon -71 -66'
'set z 10'   
'set grads off'


'run define_colors.gs'
'set gxout shaded'
*'set clevs 0 5 10 20 30 35 36 39 42 45 48 51 54 57 60 65 70 80'
*'set rbcols 0 79 78 77 76 75 74 73 1 21 22 23 24 25 26 27 28 29 59'
'd W'
'run cbarn.gs' 


'q time'
res=subwrd(result,5)
'draw title 2dom3_'res
*'print'
*'disable print'
*'printim D:\mp_y_mend\2dom3\'res'_2dom3.jpg'
'q pos'
'c'
 tt=tt+1
 endwhile