| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
186 |
CG2D |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d.F |
202 |
CG2D |
localBuf(I,J,bi,bj) = cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
205 |
CG2D |
& + cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
212 |
CG2D |
CALL EXCH_S3D_RL( cg2d_r, 1, myThid ) |
|
./model/src/cg2d.F |
258 |
CG2D |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
259 |
CG2D |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
260 |
CG2D |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
261 |
CG2D |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
262 |
CG2D |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
268 |
CG2D |
& cg2d_q(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
271 |
CG2D |
& +cg2d_q(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
362 |
CG2D |
cg2d_r(I,J,bi,bj)=cg2d_r(I,J,bi,bj)-alpha*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
364 |
CG2D |
localBuf(I,J,bi,bj) = cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
367 |
CG2D |
& + cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
394 |
CG2D |
CALL EXCH_S3D_RL( cg2d_r, 1, myThid ) |
|
./model/src/cg2d_nsa.F |
231 |
CG2D_NSA |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d_nsa.F |
247 |
CG2D_NSA |
& cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
256 |
CG2D_NSA |
CALL EXCH_XY_RL ( cg2d_r, myThid ) |
|
./model/src/cg2d_nsa.F |
319 |
CG2D_NSA |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
320 |
CG2D_NSA |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
321 |
CG2D_NSA |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
322 |
CG2D_NSA |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
323 |
CG2D_NSA |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
328 |
CG2D_NSA |
& +cg2d_z(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
423 |
CG2D_NSA |
cg2d_r(I,J,bi,bj)=cg2d_r(I,J,bi,bj)-alpha*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
424 |
CG2D_NSA |
err_sq = err_sq+cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
440 |
CG2D_NSA |
CALL EXCH_XY_RL ( cg2d_r, myThid ) |
|
./model/src/cg2d_sr.F |
167 |
CG2D_SR |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d_sr.F |
175 |
CG2D_SR |
& + cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
182 |
CG2D_SR |
CALL EXCH_S3D_RL( cg2d_r, 1, myThid ) |
|
./model/src/cg2d_sr.F |
214 |
CG2D_SR |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
215 |
CG2D_SR |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
216 |
CG2D_SR |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
217 |
CG2D_SR |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
218 |
CG2D_SR |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
221 |
CG2D_SR |
& +cg2d_y(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
268 |
CG2D_SR |
cg2d_r(I,J,bi,bj)=cg2d_r(I,J,bi,bj)-sigma*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
274 |
CG2D_SR |
CALL EXCH_S3D_RL( cg2d_r,1, myThid ) |
|
./model/src/cg2d_sr.F |
290 |
CG2D_SR |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
291 |
CG2D_SR |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
292 |
CG2D_SR |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
293 |
CG2D_SR |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
294 |
CG2D_SR |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
326 |
CG2D_SR |
& +cg2d_y(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
330 |
CG2D_SR |
& + cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
385 |
CG2D_SR |
cg2d_r(I,J,bi,bj) = cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
392 |
CG2D_SR |
CALL EXCH_S3D_RL( cg2d_r, 1, myThid ) |
|
./model/src/ini_cg2d.F |
72 |
INI_CG2D |
cg2d_r(i,j,bi,bj) = 0. _d 0 |
|
./model/inc/CG2D.h |
52 |
NO PROCEDURE |
& cg2d_q, cg2d_r, cg2d_s |
|
./model/inc/CG2D.h |
55 |
NO PROCEDURE |
_RL cg2d_r(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/CG2D.h |
58 |
NO PROCEDURE |
_RL cg2d_r(1-1:sNx+1,1-1:sNy+1,nSx,nSy) |