function main(args)

'reinit'
mes=subwrd(args,1)
df=subwrd(args,2)
var=subwrd(args,3)
out=subwrd(args,4)
ano=subwrd(args,5)

'open  ../DAILY/'var'/SAMeT_CPTEC_'var'.ctl'

*while (ano<=ano)
'reset'
 if (mes=feb) 
   if ( (math_mod(ano,4)=0) & (math_mod(ano,400)!=0) | (math_mod(ano,400)=0) )  
     df=29
   else
     df=28
   endif
 endif
 
 'set dfile 1'
 'set lat -20'
 'set lon -60'
 'set time 00z01'mes%ano' 00z'df%mes%ano
 'set stat on'
 'd 'var
 tmp=sublin(result,7)
 nd=subwrd(tmp,8)
 if(nd != df)
  say "FALTANDO DADOS DE TEMPERATURA"
  'quit'
 endif 
 'set lon -81.95  -34.65'
 'set lat -56.15   12.85' 
 'set time 00Z01'mes%ano
 'set z 1'
 'define T'var'=ave('var'.1,time=00z01'mes''ano',time=00z'df''mes''ano')'
 'set gxout stat'
 'd T'var
 n_undef=sublin(result,7)
 n_valid=subwrd(n_undef,4)
 say n_valid
 if (n_valid >=679866)
  say ano"  "mes"  "df
 'set time 12Z01'mes%ano
 'set z 1'
 'set sdfwrite -nc4  -3dt 'out
 'sdfwrite T'var
 endif
* ano=ano+1
*endwhile

'quit'
return