| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
161 |
CG2D |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d.F |
265 |
CG2D |
cg2d_s(i,j,bi,bj) = cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
266 |
CG2D |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d.F |
273 |
CG2D |
CALL EXCH_S3D_RL( cg2d_s, 1, myThid ) |
|
./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.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.F |
290 |
CG2D |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d.F |
292 |
CG2D |
localBuf(i,j,bi,bj) = cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
295 |
CG2D |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d.F |
319 |
CG2D |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
153 |
CG2D_EX0 |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d_ex0.F |
232 |
CG2D_EX0 |
cg2d_s(i,j,bi,bj) = cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
233 |
CG2D_EX0 |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
239 |
CG2D_EX0 |
U cg2d_s(0,0,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_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_ex0.F |
256 |
CG2D_EX0 |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_ex0.F |
258 |
CG2D_EX0 |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
268 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
192 |
CG2D_NSA |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d_nsa.F |
290 |
CG2D_NSA |
cg2d_s(i,j,bi,bj) = cg2d_z(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
291 |
CG2D_NSA |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
300 |
CG2D_NSA |
CALL EXCH_XY_RL ( cg2d_s, myThid ) |
|
./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_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_nsa.F |
319 |
CG2D_NSA |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_nsa.F |
321 |
CG2D_NSA |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
341 |
CG2D_NSA |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
166 |
CG2D_SR |
cg2d_s(i,j,bi,bj) = 0. |
|
./model/src/cg2d_sr.F |
232 |
CG2D_SR |
cg2d_s(i,j,bi,bj) = cg2d_y(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
240 |
CG2D_SR |
CALL EXCH_S3D_RL( cg2d_s, 1, myThid ) |
|
./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 |
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 |
260 |
CG2D_SR |
& +aC2d(i ,j ,bi,bj)*cg2d_s(i ,j ,bi,bj) |
|
./model/src/cg2d_sr.F |
262 |
CG2D_SR |
& + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
278 |
CG2D_SR |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+sigma*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
392 |
CG2D_SR |
cg2d_s(i,j,bi,bj) = cg2d_y(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
393 |
CG2D_SR |
& + cgBeta*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
395 |
CG2D_SR |
& + sigma*cg2d_s(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
69 |
INI_CG2D |
cg2d_s(i,j,bi,bj) = 0. _d 0 |
|
./model/inc/CG2D.h |
52 |
NO PROCEDURE |
& cg2d_q, cg2d_r, cg2d_s |
|
./model/inc/CG2D.h |
56 |
NO PROCEDURE |
_RL cg2d_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/CG2D.h |
59 |
NO PROCEDURE |
_RL cg2d_s(1-1:sNx+1,1-1:sNy+1,nSx,nSy) |