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 t 'tempo
   'run PlotaDiff_Vento10m.gs 'tempo
   'draw title 10m Wind Anomaly (m/s) - 'mes
*   'run cbarn'
   'printim '%Fileout'.png'
  
'quit'
return