| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diag_cg2d.F |
103 |
DIAG_CG2D |
_RL s2d(0:sNx+1,0:sNy+1,nSx,nSy) |
|
./pkg/diagnostics/diag_cg2d.F |
173 |
DIAG_CG2D |
s2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
261 |
DIAG_CG2D |
s2d(i,j,bi,bj) = q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
262 |
DIAG_CG2D |
& + cgBeta*s2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
269 |
DIAG_CG2D |
CALL EXCH_S3D_RL( s2d, 1, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
279 |
DIAG_CG2D |
& aW2d(i ,j ,bi,bj)*s2d(i-1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
280 |
DIAG_CG2D |
& +aW2d(i+1,j ,bi,bj)*s2d(i+1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
281 |
DIAG_CG2D |
& +aS2d(i ,j ,bi,bj)*s2d(i ,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
282 |
DIAG_CG2D |
& +aS2d(i ,j+1,bi,bj)*s2d(i ,j+1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
283 |
DIAG_CG2D |
& +aC2d(i ,j ,bi,bj)*s2d(i ,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
285 |
DIAG_CG2D |
& + s2d(i,j,bi,bj)*q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
300 |
DIAG_CG2D |
x2d(i,j,bi,bj)=x2d(i,j,bi,bj)+alpha*s2d(i,j,bi,bj) |