| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diag_cg2d.F |
101 |
DIAG_CG2D |
_RL r2d(0:sNx+1,0:sNy+1,nSx,nSy) |
|
./pkg/diagnostics/diag_cg2d.F |
172 |
DIAG_CG2D |
r2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
181 |
DIAG_CG2D |
r2d(i,j,bi,bj) = b2d(i,j,bi,bj) - |
|
./pkg/diagnostics/diag_cg2d.F |
189 |
DIAG_CG2D |
& + r2d(i,j,bi,bj)*r2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
196 |
DIAG_CG2D |
CALL EXCH_XY_RL ( r2d, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
198 |
DIAG_CG2D |
CALL EXCH_S3D_RL( r2d, 1, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
224 |
DIAG_CG2D |
CALL WRITE_FLD_XY_RL( 'r2d.',sufx, r2d, 1, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
241 |
DIAG_CG2D |
& pC(i ,j ,bi,bj)*r2d(i ,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
242 |
DIAG_CG2D |
& +pW(i ,j ,bi,bj)*r2d(i-1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
243 |
DIAG_CG2D |
& +pW(i+1,j ,bi,bj)*r2d(i+1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
244 |
DIAG_CG2D |
& +pS(i ,j ,bi,bj)*r2d(i ,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
245 |
DIAG_CG2D |
& +pS(i ,j+1,bi,bj)*r2d(i ,j+1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
247 |
DIAG_CG2D |
& +q2d(i,j,bi,bj)*r2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
301 |
DIAG_CG2D |
r2d(i,j,bi,bj)=r2d(i,j,bi,bj)-alpha*q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
303 |
DIAG_CG2D |
& + r2d(i,j,bi,bj)*r2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
336 |
DIAG_CG2D |
CALL EXCH_XY_RL( r2d, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
339 |
DIAG_CG2D |
CALL WRITE_FLD_XY_RL( 'r2d.',sufx, r2d, 1, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
343 |
DIAG_CG2D |
CALL EXCH_S3D_RL( r2d, 1, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
99 |
DIAG_CG2D |
_RL r2d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |