function tp(args)
caso=subwrd(args,1)
if (caso != 'NCEPF' & caso != 'CFSV2') ; caso='CFSV2' ; endif

nt=20
n=12
*nt=11
*n=5
while (n <= nt)
  say 'GetData 'caso' 'n' 'SaoSebastiao' 'no
  'GetData 'caso' 'n' 'SaoSebastiao' 'no
  n=n+1
endwhile