| File |
Line number |
Procedure |
Code |
|
./model/src/update_cg2d.F |
150 |
UPDATE_CG2D |
pW_tmp = aC2d(i,j,bi,bj)+aC2d(i-1,j,bi,bj) |
|
./model/src/update_cg2d.F |
151 |
UPDATE_CG2D |
IF ( pW_tmp .EQ. 0. ) THEN |
|
./model/src/update_cg2d.F |
155 |
UPDATE_CG2D |
& -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *pW_tmp)**2 ) |
|
./model/src/update_cg2d.F |
52 |
UPDATE_CG2D |
_RL pW_tmp, pS_tmp |
|
./pkg/diagnostics/diag_cg2d.F |
139 |
DIAG_CG2D |
pW_tmp = aC2d(i,j,bi,bj)+aC2d(i-1,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
140 |
DIAG_CG2D |
IF ( pW_tmp .EQ. 0. ) THEN |
|
./pkg/diagnostics/diag_cg2d.F |
144 |
DIAG_CG2D |
& /( (diagCG_pcOffDFac*pW_tmp)**2 ) |
|
./pkg/diagnostics/diag_cg2d.F |
85 |
DIAG_CG2D |
_RL pW_tmp, pS_tmp |