| File |
Line number |
Procedure |
Code |
|
./model/src/rotate_spherical_polar_grid.F |
115 |
ROTATE_SPHERICAL_POLAR_GRID |
DO iA=1,3 |
|
./model/src/rotate_spherical_polar_grid.F |
116 |
ROTATE_SPHERICAL_POLAR_GRID |
Ainv(iA,jA) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
117 |
ROTATE_SPHERICAL_POLAR_GRID |
CB (iA,jA) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
121 |
ROTATE_SPHERICAL_POLAR_GRID |
DO iA=1,3 |
|
./model/src/rotate_spherical_polar_grid.F |
123 |
ROTATE_SPHERICAL_POLAR_GRID |
CB (iA,jA) = CB (iA,jA) + Cinv(iA,kA)*Binv(kA,jA) |
|
./model/src/rotate_spherical_polar_grid.F |
128 |
ROTATE_SPHERICAL_POLAR_GRID |
DO iA=1,3 |
|
./model/src/rotate_spherical_polar_grid.F |
130 |
ROTATE_SPHERICAL_POLAR_GRID |
Ainv(iA,jA) = Ainv(iA,jA) + Dinv(iA,kA)*CB(kA,jA) |
|
./model/src/rotate_spherical_polar_grid.F |
151 |
ROTATE_SPHERICAL_POLAR_GRID |
DO iA=1,3 |
|
./model/src/rotate_spherical_polar_grid.F |
152 |
ROTATE_SPHERICAL_POLAR_GRID |
XYZgeo(iA) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
154 |
ROTATE_SPHERICAL_POLAR_GRID |
DO iA=1,3 |
|
./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 |
61 |
ROTATE_SPHERICAL_POLAR_GRID |
INTEGER I, J, iA, jA, kA |