| File |
Line number |
Procedure |
Code |
|
./pkg/openad/externalDummies.F |
211 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
O X, |
|
./pkg/openad/externalDummies.F |
218 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
_RL X(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/openad/externalDummies.F |
232 |
STREAMICE_SMOOTH_ADJOINT_FIELD |
X(i,j,bi,bj) = X(i,j,bi,bj) * 1.0 |
|
./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) |
|
./pkg/streamice/eta_gl_prime_streamice.F |
18 |
NO PROCEDURE |
_RL X, M1, M2, Y0, W |
|
./pkg/streamice/eta_gl_prime_streamice.F |
22 |
NO PROCEDURE |
IF (X.le.-0.5*W) THEN |
|
./pkg/streamice/eta_gl_prime_streamice.F |
24 |
NO PROCEDURE |
ELSEIF(X.gt.0.5*W) THEN |
|
./pkg/streamice/eta_gl_prime_streamice.F |
28 |
NO PROCEDURE |
TMP1 = SIN (PI*X/W) |
|
./pkg/streamice/eta_gl_prime_streamice.F |
6 |
NO PROCEDURE |
_RL FUNCTION ETA_GL_PRIME_STREAMICE (X, M1, M2, Y0, W) |
|
./pkg/streamice/eta_gl_streamice.F |
18 |
NO PROCEDURE |
_RL X, M1, M2, Y0, W |
|
./pkg/streamice/eta_gl_streamice.F |
21 |
NO PROCEDURE |
IF (X.le.-0.5*W) THEN |
|
./pkg/streamice/eta_gl_streamice.F |
22 |
NO PROCEDURE |
ETA_GL_STREAMICE = Y0 + M1 * X |
|
./pkg/streamice/eta_gl_streamice.F |
23 |
NO PROCEDURE |
ELSEIF(X.gt.0.5*W) THEN |
|
./pkg/streamice/eta_gl_streamice.F |
24 |
NO PROCEDURE |
ETA_GL_STREAMICE = Y0 + M2 * X |
|
./pkg/streamice/eta_gl_streamice.F |
27 |
NO PROCEDURE |
TMP1 = W/PI * COS(PI*X/W) |
|
./pkg/streamice/eta_gl_streamice.F |
29 |
NO PROCEDURE |
& M1/2 * (X-0.5*W+TMP1) + |
|
./pkg/streamice/eta_gl_streamice.F |
30 |
NO PROCEDURE |
& M2/2 * (X+0.5*W-TMP1) |
|
./pkg/streamice/eta_gl_streamice.F |
6 |
NO PROCEDURE |
_RL FUNCTION ETA_GL_STREAMICE (X, M1, M2, Y0, W) |
|
./pkg/streamice/eta_gl_streamice_prime.F |
18 |
NO PROCEDURE |
_RL X, M1, M2, Y0, W |
|
./pkg/streamice/eta_gl_streamice_prime.F |
22 |
NO PROCEDURE |
IF (X.le.-0.5*W) THEN |
|
./pkg/streamice/eta_gl_streamice_prime.F |
24 |
NO PROCEDURE |
ELSEIF(X.gt.0.5*W) THEN |
|
./pkg/streamice/eta_gl_streamice_prime.F |
28 |
NO PROCEDURE |
TMP1 = SIN (PI*X/W) |
|
./pkg/streamice/eta_gl_streamice_prime.F |
6 |
NO PROCEDURE |
_RL FUNCTION ETA_GL_STREAMICE_PRIME (X, M1, M2, Y0, W) |
|
./pkg/streamice/phi_gl_streamice.F |
11 |
NO PROCEDURE |
_RL X, W |
|
./pkg/streamice/phi_gl_streamice.F |
14 |
NO PROCEDURE |
IF (X.le.0.0) THEN |
|
./pkg/streamice/phi_gl_streamice.F |
16 |
NO PROCEDURE |
ELSEIF(X.gt.0.5*W) THEN |
|
./pkg/streamice/phi_gl_streamice.F |
20 |
NO PROCEDURE |
TMP1 = COS (2*PI*X/W) |
|
./pkg/streamice/phi_gl_streamice.F |
6 |
NO PROCEDURE |
_RL FUNCTION PHI_GL_STREAMICE (X, W) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
37 |
STREAMICE_INVERT_SURF_FORTHICK |
type(active) :: X,Y0 |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
93 |
STREAMICE_INVERT_SURF_FORTHICK |
Xv = htmp-HF |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
97 |
STREAMICE_INVERT_SURF_FORTHICK |
& X, |
|
./model/src/rotate_spherical_polar_grid.F |
11 |
ROTATE_SPHERICAL_POLAR_GRID |
U X, Y, |
|
./model/src/rotate_spherical_polar_grid.F |
146 |
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 |
148 |
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 |
164 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = 0. _d 0 |
|
./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 |
167 |
ROTATE_SPHERICAL_POLAR_GRID |
IF ( X(I,J,bi,bj) .LT. 0. _d 0 ) |
|
./model/src/rotate_spherical_polar_grid.F |
168 |
ROTATE_SPHERICAL_POLAR_GRID |
& X(I,J,bi,bj) = X(I,J,bi,bj) + 360. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
51 |
ROTATE_SPHERICAL_POLAR_GRID |
_RS X(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |