| File |
Line number |
Procedure |
Code |
|
./model/src/update_cg2d.F |
183 |
UPDATE_CG2D |
pS_tmp = aC2d(i,j,bi,bj)+aC2d(i,j-1,bi,bj) |
|
./model/src/update_cg2d.F |
184 |
UPDATE_CG2D |
IF ( pS_tmp .EQ. 0. ) THEN |
|
./model/src/update_cg2d.F |
188 |
UPDATE_CG2D |
& -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *pS_tmp)**2 ) |
|
./model/src/update_cg2d.F |
55 |
UPDATE_CG2D |
_RL pW_tmp, pS_tmp |
|
./pkg/diagnostics/diag_cg2d.F |
147 |
DIAG_CG2D |
pS_tmp = aC2d(i,j,bi,bj)+aC2d(i,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
148 |
DIAG_CG2D |
IF ( pS_tmp .EQ. 0. ) THEN |
|
./pkg/diagnostics/diag_cg2d.F |
152 |
DIAG_CG2D |
& *4. _d 0/( pS_tmp*pS_tmp ) |
|
./pkg/diagnostics/diag_cg2d.F |
88 |
DIAG_CG2D |
_RL pW_tmp, pS_tmp |