function AnomaliaVento10m( args )
    Dir    = subwrd( args, 1 )
    arq1   = subwrd( args, 2 )
    arq2   = subwrd( args, 3 )
    arq3   = subwrd( args, 4 )
    arq4   = subwrd( args, 5 )   
    tempo  = subwrd( args, 6 )
    mes    = subwrd( args, 7 )  
    Fileout= subwrd( args, 8 )
   'sdfopen 'Dir'/'arq1
   'sdfopen 'Dir'/'arq2
   'sdfopen 'Dir'/'arq3
   'sdfopen 'Dir'/'arq4 
   'set display color white'
   'c'
   'set t 'tempo
   'run PlotaStrem_V10m.gs 'tempo
    'set string 1 c 10 0'
    'set strsiz 0.2'
   'draw string 5.5 8.3 Vento 10m (m/s^2) - 'mes
   'printim '%Fileout'.png'

'quit'
return