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

nt=485
n=309
while (n <= nt)
  say 'GetData 'caso' 'n' 'Triplet' 'no
  'GetData 'caso' 'n' 'Triplet' 'no
  n=n+1
endwhile