| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
172 |
CG2D |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d.F |
173 |
CG2D |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d.F |
286 |
CG2D |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d.F |
287 |
CG2D |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
164 |
CG2D_EX0 |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
165 |
CG2D_EX0 |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
252 |
CG2D_EX0 |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
253 |
CG2D_EX0 |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
198 |
CG2D_NSA |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
199 |
CG2D_NSA |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
315 |
CG2D_NSA |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
316 |
CG2D_NSA |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
177 |
CG2D_SR |
& (aW2d(i ,j ,bi,bj)*cg2d_x(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
178 |
CG2D_SR |
& +aW2d(i+1,j ,bi,bj)*cg2d_x(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
256 |
CG2D_SR |
& aW2d(i ,j ,bi,bj)*cg2d_s(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
257 |
CG2D_SR |
& +aW2d(i+1,j ,bi,bj)*cg2d_s(i+1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
330 |
CG2D_SR |
& aW2d(i ,j ,bi,bj)*cg2d_y(i-1,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
331 |
CG2D_SR |
& +aW2d(i+1,j ,bi,bj)*cg2d_y(i+1,j ,bi,bj) |
|
./model/src/ini_cg2d.F |
105 |
INI_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
119 |
INI_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
124 |
INI_CG2D |
myNorm = MAX(ABS(aW2d(i,j,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
140 |
INI_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*myNorm |
|
./model/src/ini_cg2d.F |
152 |
INI_CG2D |
CALL EXCH_UV_XY_RS( aW2d, aS2d, .FALSE., myThid ) |
|
./model/src/ini_cg2d.F |
209 |
INI_CG2D |
& aW2d(i,j,bi,bj) + aW2d(i+1,j, bi,bj) |
|
./model/src/ini_cg2d.F |
230 |
INI_CG2D |
& -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCw+aC))**2 ) |
|
./model/src/ini_cg2d.F |
57 |
INI_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
95 |
INI_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
107 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
121 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
139 |
UPDATE_CG2D |
& aW2d(i,j,bi,bj) + aW2d(i+1, j ,bi,bj) |
|
./model/src/update_cg2d.F |
150 |
UPDATE_CG2D |
& aW2d(i,j,bi,bj) + aW2d(i+1, j ,bi,bj) |
|
./model/src/update_cg2d.F |
181 |
UPDATE_CG2D |
& -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *pW_tmp)**2 ) |
|
./model/src/update_cg2d.F |
74 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
88 |
UPDATE_CG2D |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
11 |
DIAG_CG2D |
I aW2d, aS2d, b2d, |
|
./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 |
144 |
DIAG_CG2D |
pW(i,j,bi,bj) = -aW2d(i,j,bi,bj)*offDiagFactor |
|
./pkg/diagnostics/diag_cg2d.F |
182 |
DIAG_CG2D |
& (aW2d(i ,j ,bi,bj)*x2d(i-1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
183 |
DIAG_CG2D |
& +aW2d(i+1,j ,bi,bj)*x2d(i+1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
279 |
DIAG_CG2D |
& aW2d(i ,j ,bi,bj)*s2d(i-1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
280 |
DIAG_CG2D |
& +aW2d(i+1,j ,bi,bj)*s2d(i+1,j ,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
53 |
DIAG_CG2D |
_RS aW2d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
113 |
DIAGNOSTICS_CALC_PHIVEL |
aW2d(i,j,bi,bj) = dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
119 |
DIAGNOSTICS_CALC_PHIVEL |
a2dMax = MAX(a2dMax,aW2d(i,j,bi,bj)) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
213 |
DIAGNOSTICS_CALC_PHIVEL |
aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*a2dNorm |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
233 |
DIAGNOSTICS_CALC_PHIVEL |
I aW2d, aS2d, b2d, |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
75 |
DIAGNOSTICS_CALC_PHIVEL |
_RS aW2d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/CG2D.h |
36 |
NO PROCEDURE |
& aW2d, aS2d, aC2d, |
|
./model/inc/CG2D.h |
39 |
NO PROCEDURE |
_RS aW2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |