| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diag_cg2d.F |
101 |
DIAG_CG2D |
_RL s2d(0:sNx+1,0:sNy+1,nSx,nSy) |
|
./pkg/diagnostics/diag_cg2d.F |
172 |
DIAG_CG2D |
s2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
260 |
DIAG_CG2D |
s2d(i,j,bi,bj) = q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
261 |
DIAG_CG2D |
& + cgBeta*s2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
268 |
DIAG_CG2D |
CALL EXCH_S3D_RL( s2d, 1, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
278 |
DIAG_CG2D |
& aW2d(i ,j ,bi,bj)*s2d(i-1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
279 |
DIAG_CG2D |
& +aW2d(i+1,j ,bi,bj)*s2d(i+1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
280 |
DIAG_CG2D |
& +aS2d(i ,j ,bi,bj)*s2d(i ,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
281 |
DIAG_CG2D |
& +aS2d(i ,j+1,bi,bj)*s2d(i ,j+1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
282 |
DIAG_CG2D |
& +aC2d(i ,j ,bi,bj)*s2d(i ,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
284 |
DIAG_CG2D |
& + s2d(i,j,bi,bj)*q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
299 |
DIAG_CG2D |
x2d(i,j,bi,bj)=x2d(i,j,bi,bj)+alpha*s2d(i,j,bi,bj) |