You need to call your proc like this:
::Glob AllForces
that is, you pass the name of the variable, not its value.
Then, in the proc, the upvar
command will take the variable whose name is the value of the local variable input
and make it available locally as AllForces