function AnomaliaPrec( args )
    arq1   = subwrd( args, 1 )
    arq2   = subwrd( args, 2 )
    tempo  = subwrd( args, 3 )
    mes    = subwrd( args, 4 )  
    Fileout= subwrd( args, 5 )
   'sdfopen 'arq1
   'sdfopen 'arq2
   'set t 'tempo
   'run PlotaDiff_SST.gs'
   'draw title Anomalia SST (oC) - 'mes
   'run cbarn'
   'printim '%Fileout'.png'

'quit'
return