| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diag_cg2d.F |
171 |
DIAG_CG2D |
r2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
180 |
DIAG_CG2D |
r2d(i,j,bi,bj) = b2d(i,j,bi,bj) - |
|
./pkg/diagnostics/diag_cg2d.F |
188 |
DIAG_CG2D |
& + r2d(i,j,bi,bj)*r2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
195 |
DIAG_CG2D |
CALL EXCH_XY_RL ( r2d, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
197 |
DIAG_CG2D |
CALL EXCH_S3D_RL( r2d, 1, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
223 |
DIAG_CG2D |
CALL WRITE_FLD_XY_RL( 'r2d.',sufx, r2d, 1, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
240 |
DIAG_CG2D |
& pC(i ,j ,bi,bj)*r2d(i ,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
241 |
DIAG_CG2D |
& +pW(i ,j ,bi,bj)*r2d(i-1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
242 |
DIAG_CG2D |
& +pW(i+1,j ,bi,bj)*r2d(i+1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
243 |
DIAG_CG2D |
& +pS(i ,j ,bi,bj)*r2d(i ,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
244 |
DIAG_CG2D |
& +pS(i ,j+1,bi,bj)*r2d(i ,j+1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
246 |
DIAG_CG2D |
& +q2d(i,j,bi,bj)*r2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
300 |
DIAG_CG2D |
r2d(i,j,bi,bj)=r2d(i,j,bi,bj)-alpha*q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
302 |
DIAG_CG2D |
& + r2d(i,j,bi,bj)*r2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
335 |
DIAG_CG2D |
CALL EXCH_XY_RL( r2d, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
338 |
DIAG_CG2D |
CALL WRITE_FLD_XY_RL( 'r2d.',sufx, r2d, 1, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
342 |
DIAG_CG2D |
CALL EXCH_S3D_RL( r2d, 1, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
97 |
DIAG_CG2D |
_RL r2d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/diagnostics/diag_cg2d.F |
99 |
DIAG_CG2D |
_RL r2d(0:sNx+1,0:sNy+1,nSx,nSy) |