| File |
Line number |
Procedure |
Code |
|
./model/src/rotate_spherical_polar_grid.F |
113 |
ROTATE_SPHERICAL_POLAR_GRID |
DO ja=1,3 |
|
./model/src/rotate_spherical_polar_grid.F |
115 |
ROTATE_SPHERICAL_POLAR_GRID |
Ainv(ia,ja) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
116 |
ROTATE_SPHERICAL_POLAR_GRID |
CB (ia,ja) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
119 |
ROTATE_SPHERICAL_POLAR_GRID |
DO ja=1,3 |
|
./model/src/rotate_spherical_polar_grid.F |
122 |
ROTATE_SPHERICAL_POLAR_GRID |
CB (ia,ja) = CB (ia,ja) + Cinv(ia,ka)*Binv(ka,ja) |
|
./model/src/rotate_spherical_polar_grid.F |
126 |
ROTATE_SPHERICAL_POLAR_GRID |
DO ja=1,3 |
|
./model/src/rotate_spherical_polar_grid.F |
129 |
ROTATE_SPHERICAL_POLAR_GRID |
Ainv(ia,ja) = Ainv(ia,ja) + Dinv(ia,ka)*CB(ka,ja) |