function AnomaliaVento10m( args )
    Dir    = subwrd( args, 1 )
    arq1   = subwrd( args, 2 )
    arq2   = subwrd( args, 3 )
    arq3   = subwrd( args, 4 )
    arq4   = subwrd( args, 5 ) 
    arq5   = subwrd( args, 6 )  
    tempo  = subwrd( args, 7 )
    mes    = subwrd( args, 8 )  
    Fileout= subwrd( args, 9 )
   'sdfopen 'Dir'/'arq1
   'sdfopen 'Dir'/'arq2
   'sdfopen 'Dir'/'arq3
   'sdfopen 'Dir'/'arq4 
   'sdfopen 'Dir'/../'arq5 
   'set t 'tempo
   'run PlotaDiff_Vento10m_SMASK.gs 'tempo
   'draw title 10m Wind Anomaly (m/s) - 'mes
*   'run cbarn'
   'printim '%Fileout'.png'

'quit'
return