| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
175 |
CG2D |
cg2d_s(I,J,bi,bj) = 0. |
|
./model/src/cg2d.F |
296 |
CG2D |
cg2d_s(I,J,bi,bj) = cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
297 |
CG2D |
& + cgBeta*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d.F |
305 |
CG2D |
CALL EXCH_S3D_RL( cg2d_s, 1, myThid ) |
|
./model/src/cg2d.F |
319 |
CG2D |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
320 |
CG2D |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
321 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
322 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
323 |
CG2D |
& +aC2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
332 |
CG2D |
localBuf(I,J,bi,bj) = cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
335 |
CG2D |
& + cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
361 |
CG2D |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+alpha*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
226 |
CG2D_NSA |
cg2d_s(I,J,bi,bj) = 0. |
|
./model/src/cg2d_nsa.F |
357 |
CG2D_NSA |
cg2d_s(I,J,bi,bj) = cg2d_z(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
358 |
CG2D_NSA |
& + cgBeta*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
367 |
CG2D_NSA |
CALL EXCH_XY_RL ( cg2d_s, myThid ) |
|
./model/src/cg2d_nsa.F |
383 |
CG2D_NSA |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
384 |
CG2D_NSA |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
385 |
CG2D_NSA |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
386 |
CG2D_NSA |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
387 |
CG2D_NSA |
& +aC2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
395 |
CG2D_NSA |
alpha_aux = alpha_aux+cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
422 |
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 |
157 |
CG2D_SR |
cg2d_s(I,J,bi,bj) = 0. |
|
./model/src/cg2d_sr.F |
219 |
CG2D_SR |
cg2d_s(I,J,bi,bj) = cg2d_y(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
227 |
CG2D_SR |
CALL EXCH_S3D_RL( cg2d_s, 1, myThid ) |
|
./model/src/cg2d_sr.F |
244 |
CG2D_SR |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
245 |
CG2D_SR |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
246 |
CG2D_SR |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
247 |
CG2D_SR |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
248 |
CG2D_SR |
& +aC2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
250 |
CG2D_SR |
& + cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
267 |
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 |
379 |
CG2D_SR |
cg2d_s(I,J,bi,bj) = cg2d_y(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
380 |
CG2D_SR |
& + cgBeta*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
382 |
CG2D_SR |
& + sigma*cg2d_s(I,J,bi,bj) |
|
./model/src/ini_cg2d.F |
73 |
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) |