| File |
Line number |
Procedure |
Code |
|
./model/src/update_cg2d.F |
176 |
UPDATE_CG2D |
pW_tmp = aC2d(i,j,bi,bj)+aC2d(i-1,j,bi,bj) |
|
./model/src/update_cg2d.F |
177 |
UPDATE_CG2D |
IF ( pW_tmp .EQ. 0. ) THEN |
|
./model/src/update_cg2d.F |
181 |
UPDATE_CG2D |
& -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *pW_tmp)**2 ) |
|
./model/src/update_cg2d.F |
55 |
UPDATE_CG2D |
_RL pW_tmp, pS_tmp |
|
./pkg/diagnostics/diag_cg2d.F |
140 |
DIAG_CG2D |
pW_tmp = aC2d(i,j,bi,bj)+aC2d(i-1,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
141 |
DIAG_CG2D |
IF ( pW_tmp .EQ. 0. ) THEN |
|
./pkg/diagnostics/diag_cg2d.F |
145 |
DIAG_CG2D |
& *4. _d 0/( pW_tmp*pW_tmp ) |
|
./pkg/diagnostics/diag_cg2d.F |
88 |
DIAG_CG2D |
_RL pW_tmp, pS_tmp |