Symbol Description Uses
uNorm 7



File Line number Procedure Code
./model/src/rotate_spherical_polar_grid.F 221 CALC_ANGLES
      _RS uC, vC, uNorm
./model/src/rotate_spherical_polar_grid.F 249 CALC_ANGLES
          uNorm = SQRT(uC*uC+vC*vC)
./model/src/rotate_spherical_polar_grid.F 250 CALC_ANGLES
          IF ( uNorm .NE. 0. _d 0 ) uNorm = 1./uNorm
./model/src/rotate_spherical_polar_grid.F 251 CALC_ANGLES
          angleCosC(I,J,bi,bj) =  uC*uNorm
./model/src/rotate_spherical_polar_grid.F 252 CALC_ANGLES
          angleSinC(I,J,bi,bj) = -vC*uNorm