| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
174 |
CG2D |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d.F |
175 |
CG2D |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d.F |
288 |
CG2D |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d.F |
289 |
CG2D |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_ex0.F |
166 |
CG2D_EX0 |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d_ex0.F |
167 |
CG2D_EX0 |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d_ex0.F |
254 |
CG2D_EX0 |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d_ex0.F |
255 |
CG2D_EX0 |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
200 |
CG2D_NSA |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
201 |
CG2D_NSA |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
317 |
CG2D_NSA |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
318 |
CG2D_NSA |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
179 |
CG2D_SR |
& +aS2d(i ,j ,bi,bj)*cg2d_x(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
180 |
CG2D_SR |
& +aS2d(i ,j+1,bi,bj)*cg2d_x(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
258 |
CG2D_SR |
& +aS2d(i ,j ,bi,bj)*cg2d_s(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
259 |
CG2D_SR |
& +aS2d(i ,j+1,bi,bj)*cg2d_s(i ,j+1,bi,bj) |
|
./model/src/cg2d_sr.F |
332 |
CG2D_SR |
& +aS2d(i ,j ,bi,bj)*cg2d_y(i ,j-1,bi,bj) |
|
./model/src/cg2d_sr.F |
333 |
CG2D_SR |
& +aS2d(i ,j+1,bi,bj)*cg2d_y(i ,j+1,bi,bj) |
|
./model/src/ini_cg2d.F |
110 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
121 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
125 |
INI_CG2D |
myNorm = MAX(ABS(aS2d(i,j,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
141 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(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 |
210 |
INI_CG2D |
& +aS2d(i,j,bi,bj) + aS2d( i,j+1,bi,bj) |
|
./model/src/ini_cg2d.F |
236 |
INI_CG2D |
& -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 ) |
|
./model/src/ini_cg2d.F |
58 |
INI_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
96 |
INI_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
111 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
126 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
140 |
UPDATE_CG2D |
& +aS2d(i,j,bi,bj) + aS2d( i ,j+1,bi,bj) |
|
./model/src/update_cg2d.F |
151 |
UPDATE_CG2D |
& +aS2d(i,j,bi,bj) + aS2d( i ,j+1,bi,bj) |
|
./model/src/update_cg2d.F |
188 |
UPDATE_CG2D |
& -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *pS_tmp)**2 ) |
|
./model/src/update_cg2d.F |
75 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
93 |
UPDATE_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
11 |
DIAG_CG2D |
I aW2d, aS2d, b2d, |
|
./pkg/diagnostics/diag_cg2d.F |
122 |
DIAG_CG2D |
& +( aS2d(i,j,bi,bj)+aS2d(i,j+1,bi,bj) ) |
|
./pkg/diagnostics/diag_cg2d.F |
151 |
DIAG_CG2D |
pS(i,j,bi,bj) = -aS2d(i,j,bi,bj)*offDiagFactor |
|
./pkg/diagnostics/diag_cg2d.F |
184 |
DIAG_CG2D |
& +aS2d(i ,j ,bi,bj)*x2d(i ,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
185 |
DIAG_CG2D |
& +aS2d(i ,j+1,bi,bj)*x2d(i ,j+1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
281 |
DIAG_CG2D |
& +aS2d(i ,j ,bi,bj)*s2d(i ,j-1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
282 |
DIAG_CG2D |
& +aS2d(i ,j+1,bi,bj)*s2d(i ,j+1,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
54 |
DIAG_CG2D |
_RS aS2d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
116 |
DIAGNOSTICS_CALC_PHIVEL |
aS2d(i,j,bi,bj) = dxG(i,j,bi,bj)*recip_dyC(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
120 |
DIAGNOSTICS_CALC_PHIVEL |
a2dMax = MAX(a2dMax,aS2d(i,j,bi,bj)) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
214 |
DIAGNOSTICS_CALC_PHIVEL |
aS2d(i,j,bi,bj) = aS2d(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 |
76 |
DIAGNOSTICS_CALC_PHIVEL |
_RS aS2d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/CG2D.h |
36 |
NO PROCEDURE |
& aW2d, aS2d, aC2d, |
|
./model/inc/CG2D.h |
40 |
NO PROCEDURE |
_RS aS2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |