Symbol Description Uses
hypotxy 4



File Line number Procedure Code
./model/src/rotate_spherical_polar_grid.F 159 ROTATE_SPHERICAL_POLAR_GRID
          hypotxy = SQRT( ABS(XYZgeo(1))*ABS(XYZgeo(1))
./model/src/rotate_spherical_polar_grid.F 169 ROTATE_SPHERICAL_POLAR_GRID
          IF(hypotxy .EQ. 0. _d 0 .AND. XYZgeo(3) .EQ. 0. _d 0)THEN
./model/src/rotate_spherical_polar_grid.F 173 ROTATE_SPHERICAL_POLAR_GRID
           Y(I,J,bi,bj) = ATAN2(XYZgeo(3),hypotxy)/deg2rad
./model/src/rotate_spherical_polar_grid.F 68 ROTATE_SPHERICAL_POLAR_GRID
      _RL hypotxy