'reinit'
'set display color white'
'c'
'sdfopen data_ta.nc'
'set t 1 72'
'set grads off'
'd temp_aire'

'q file'
linea=sublin(result,1)
titulo=substr(linea,10,38)
'draw title 'titulo
'printim plot_con_GrADS.gif'