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

if (caso = 'MONAN')
  nt=12
  n=1
  while (n <= nt)
    say 'GetData 'caso' 'n' 'RainRS' 'no
    'GetData 'caso' 'n' 'RainRS' 'no
    n=n+1
  endwhile
  nt=27
  n=16
  while (n <= nt)
    say 'GetData 'caso' 'n' 'RainRS' 'no
    'GetData 'caso' 'n' 'RainRS' 'no
    n=n+1
  endwhile
else
  nt=15
  n=1
  while (n <= nt)
    say 'GetData 'caso' 'n' 'RainRS' 'no
    'GetData 'caso' 'n' 'RainRS' 'no
    n=n+1
  endwhile
endif