| File |
Line number |
Procedure |
Code |
|
./model/src/rotate_spherical_polar_grid.F |
63 |
ROTATE_SPHERICAL_POLAR_GRID |
_RL phiRad, thetaRad, psiRad |
|
./model/src/rotate_spherical_polar_grid.F |
73 |
ROTATE_SPHERICAL_POLAR_GRID |
phiRad = phiEuler *deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
78 |
ROTATE_SPHERICAL_POLAR_GRID |
Dinv(1,1) = COS(phiRad) |
|
./model/src/rotate_spherical_polar_grid.F |
79 |
ROTATE_SPHERICAL_POLAR_GRID |
Dinv(1,2) = -SIN(phiRad) |
|
./model/src/rotate_spherical_polar_grid.F |
82 |
ROTATE_SPHERICAL_POLAR_GRID |
Dinv(2,1) = SIN(phiRad) |
|
./model/src/rotate_spherical_polar_grid.F |
83 |
ROTATE_SPHERICAL_POLAR_GRID |
Dinv(2,2) = COS(phiRad) |