File |
Line number |
Procedure |
Code |
./pkg/diagnostics/diag_cg2d.F |
240 |
DIAG_CG2D |
q2d(i,j,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 |
261 |
DIAG_CG2D |
s2d(i,j,bi,bj) = q2d(i,j,bi,bj) |
./pkg/diagnostics/diag_cg2d.F |
278 |
DIAG_CG2D |
q2d(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 |
301 |
DIAG_CG2D |
r2d(i,j,bi,bj)=r2d(i,j,bi,bj)-alpha*q2d(i,j,bi,bj) |
./pkg/diagnostics/diag_cg2d.F |
96 |
DIAG_CG2D |
_RL q2d(0:sNx+1,0:sNy+1,nSx,nSy) |