| File |
Line number |
Procedure |
Code |
|
./pkg/sbo/sbo_rho.F |
25 |
NO PROCEDURE |
_RL PLAT,D,C1,P,PR,Q,X,SR,V350P,B |
|
./pkg/sphere/sphere.F |
548 |
HELMHOLTZ |
REAL X(LMAXLMT) |
|
./pkg/sphere/sphere.F |
554 |
HELMHOLTZ |
SAVE LMAXOLD, ISECT, X, Y, Z |
|
./pkg/sphere/sphere.F |
562 |
HELMHOLTZ |
X(L) = SNGL(1.0D0/DSQRT(DBLE(FLOAT(4*L*L-1)))) |
|
./pkg/sphere/sphere.F |
583 |
HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
|
./pkg/sphere/sphere.F |
591 |
HELMHOLTZ |
AK = X(L)*Y(L+M)*Y(N) |
|
./model/src/rotate_spherical_polar_grid.F |
10 |
ROTATE_SPHERICAL_POLAR_GRID |
U X, Y, |
|
./model/src/rotate_spherical_polar_grid.F |
145 |
ROTATE_SPHERICAL_POLAR_GRID |
& COS( Y(I,J,bi,bj)*deg2rad )*COS( X(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
147 |
ROTATE_SPHERICAL_POLAR_GRID |
& COS( Y(I,J,bi,bj)*deg2rad )*SIN( X(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
163 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
165 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = ATAN2(XYZgeo(2),XYZgeo(1))/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
166 |
ROTATE_SPHERICAL_POLAR_GRID |
IF ( X(I,J,bi,bj) .LT. 0. _d 0 ) |
|
./model/src/rotate_spherical_polar_grid.F |
167 |
ROTATE_SPHERICAL_POLAR_GRID |
& X(I,J,bi,bj) = X(I,J,bi,bj) + 360. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
50 |
ROTATE_SPHERICAL_POLAR_GRID |
_RS X(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |