NSOLVE[{a == (u + 1+(Norm[(m-g) * r - Dot[r,d]*d*m]))/(2*g-m)}, {m}].