| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
176 |
CG2D |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d.F |
290 |
CG2D |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
168 |
CG2D_EX0 |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
256 |
CG2D_EX0 |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
202 |
CG2D_NSA |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
319 |
CG2D_NSA |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
181 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_x(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
260 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
334 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_y(i ,j ,bi,bj) |
|
./model/src/ini_cg2d.F |
208 |
INI_CG2D |
aC2d(i,j,bi,bj) = -( |
|
./model/src/ini_cg2d.F |
218 |
INI_CG2D |
aC = aC2d( i, j, bi,bj) |
|
./model/src/ini_cg2d.F |
219 |
INI_CG2D |
aCs = aC2d( i,j-1,bi,bj) |
|
./model/src/ini_cg2d.F |
220 |
INI_CG2D |
aCw = aC2d(i-1,j, bi,bj) |
|
./model/src/ini_cg2d.F |
59 |
INI_CG2D |
aC2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
138 |
UPDATE_CG2D |
aC2d(i,j,bi,bj) = -( |
|
./model/src/update_cg2d.F |
149 |
UPDATE_CG2D |
aC2d(i,j,bi,bj) = -( |
|
./model/src/update_cg2d.F |
164 |
UPDATE_CG2D |
CALL EXCH_XY_RS(aC2d, myThid) |
|
./model/src/update_cg2d.F |
171 |
UPDATE_CG2D |
IF ( aC2d(i,j,bi,bj) .EQ. 0. ) THEN |
|
./model/src/update_cg2d.F |
174 |
UPDATE_CG2D |
pC(i,j,bi,bj) = 1. _d 0 / aC2d(i,j,bi,bj) |
|
./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 |
183 |
UPDATE_CG2D |
pS_tmp = aC2d(i,j,bi,bj)+aC2d(i,j-1,bi,bj) |
|
./model/src/update_cg2d.F |
77 |
UPDATE_CG2D |
aC2d(i,j,bi,bj) = 0. _d 0 |
|
./pkg/diagnostics/diag_cg2d.F |
116 |
DIAG_CG2D |
aC2d(i,j,bi,bj) = 0. |
|
./pkg/diagnostics/diag_cg2d.F |
121 |
DIAG_CG2D |
aC2d(i,j,bi,bj) = -( ( aW2d(i,j,bi,bj)+aW2d(i+1,j,bi,bj) ) |
|
./pkg/diagnostics/diag_cg2d.F |
128 |
DIAG_CG2D |
CALL EXCH_XY_RS(aC2d, myThid) |
|
./pkg/diagnostics/diag_cg2d.F |
135 |
DIAG_CG2D |
IF ( aC2d(i,j,bi,bj) .EQ. 0. ) THEN |
|
./pkg/diagnostics/diag_cg2d.F |
138 |
DIAG_CG2D |
pC(i,j,bi,bj) = 1. _d 0 / aC2d(i,j,bi,bj) |
|
./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 |
147 |
DIAG_CG2D |
pS_tmp = aC2d(i,j,bi,bj)+aC2d(i,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
186 |
DIAG_CG2D |
& +aC2d(i ,j ,bi,bj)*x2d(i ,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
283 |
DIAG_CG2D |
& +aC2d(i ,j ,bi,bj)*s2d(i ,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
92 |
DIAG_CG2D |
_RS aC2d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/CG2D.h |
36 |
NO PROCEDURE |
& aW2d, aS2d, aC2d, |
|
./model/inc/CG2D.h |
41 |
NO PROCEDURE |
_RS aC2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |