Truncates a floating point number to an integer in GrADS scripting language.

GrADS int Function

* Take a floating-point (decimal) number as a parameter and returns a truncated integer (with no decimal point)
function int(num)
  outnum = ''
  i = 1
  while(i < strlen(num))
    char = subwrd(num,i)
    if(char = '.')
      break
    else
      outnum = outnum%subwrd(num,i)
      i = i+1
    endif
  endwhile

return outnum