| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
318 |
QSAT |
_RL T, D, W, QX, DQX |
|
./pkg/monitor/mon_advcflw.F |
12 |
MON_ADVCFLW |
I label, W, rDz, dT, |
|
./pkg/monitor/mon_advcflw.F |
26 |
MON_ADVCFLW |
_RL W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/monitor/mon_advcflw.F |
43 |
MON_ADVCFLW |
tmpVal=abs(W(I,J,K,bi,bj))*rDz(K)*dT |
|
./pkg/monitor/mon_advcflw2.F |
12 |
MON_ADVCFLW2 |
I label, W, rHFac, rDrF, dT, |
|
./pkg/monitor/mon_advcflw2.F |
27 |
MON_ADVCFLW2 |
_RL W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/monitor/mon_advcflw2.F |
45 |
MON_ADVCFLW2 |
tmpVal=abs(W(I,J,K,bi,bj))*dT |
|
./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 |
23 |
NO PROCEDURE |
ELSEIF(X.gt.0.5*W) THEN |
|
./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 |
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) |