| File |
Line number |
Procedure |
Code |
|
./model/src/rotate_spherical_polar_grid.F |
152 |
ROTATE_SPHERICAL_POLAR_GRID |
XYZgeo(iA) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
156 |
ROTATE_SPHERICAL_POLAR_GRID |
XYZgeo(iA) = XYZgeo(iA) + Ainv(iA,jA)*XYZrot(jA) |
|
./model/src/rotate_spherical_polar_grid.F |
160 |
ROTATE_SPHERICAL_POLAR_GRID |
hypotxy = SQRT( ABS(XYZgeo(1))*ABS(XYZgeo(1)) |
|
./model/src/rotate_spherical_polar_grid.F |
161 |
ROTATE_SPHERICAL_POLAR_GRID |
& + ABS(XYZgeo(2))*ABS(XYZgeo(2)) ) |
|
./model/src/rotate_spherical_polar_grid.F |
162 |
ROTATE_SPHERICAL_POLAR_GRID |
IF(XYZgeo(1) .EQ. 0. _d 0 .AND. XYZgeo(2) .EQ. 0. _d 0)THEN |
|
./model/src/rotate_spherical_polar_grid.F |
166 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = ATAN2(XYZgeo(2),XYZgeo(1))/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
170 |
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 |
174 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = ATAN2(XYZgeo(3),hypotxy)/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
67 |
ROTATE_SPHERICAL_POLAR_GRID |
_RL XYZgeo(3), XYZrot(3) |