| File |
Line number |
Procedure |
Code |
|
./model/inc/CG2D.h |
55 |
NO PROCEDURE |
& cg2d_q, cg2d_r, cg2d_s |
|
./model/inc/CG2D.h |
58 |
NO PROCEDURE |
_RL cg2d_r(1-1:sNx+1,1-1:sNy+1,nSx,nSy) |
|
./model/inc/CG2D.h |
61 |
NO PROCEDURE |
_RL cg2d_r(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/ini_cg2d.F |
74 |
INI_CG2D |
cg2d_r(I,J,bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
170 |
CG2D |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d.F |
183 |
CG2D |
& cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
194 |
CG2D |
CALL EXCH_XY_O1_R8_JAM( cg2d_r ) |
|
./model/src/cg2d.F |
196 |
CG2D |
CALL EXCH_XY_RL( cg2d_r, myThid ) |
|
./model/src/cg2d.F |
243 |
CG2D |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
244 |
CG2D |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
245 |
CG2D |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
246 |
CG2D |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
247 |
CG2D |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
252 |
CG2D |
& +cg2d_q(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
332 |
CG2D |
cg2d_r(I,J,bi,bj)=cg2d_r(I,J,bi,bj)-alpha*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
333 |
CG2D |
errTile = errTile+cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
347 |
CG2D |
CALL EXCH_XY_O1_R8_JAM( cg2d_r ) |
|
./model/src/cg2d.F |
349 |
CG2D |
CALL EXCH_XY_RL( cg2d_r, myThid ) |
|
./model/src/cg2d_nsa.F |
228 |
CG2D_NSA |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d_nsa.F |
242 |
CG2D_NSA |
& cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
251 |
CG2D_NSA |
CALL EXCH_XY_O1_R8_JAM( cg2d_r ) |
|
./model/src/cg2d_nsa.F |
254 |
CG2D_NSA |
_EXCH_XY_R8( cg2d_r, myThid ) |
|
./model/src/cg2d_nsa.F |
317 |
CG2D_NSA |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
318 |
CG2D_NSA |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
319 |
CG2D_NSA |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
320 |
CG2D_NSA |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
321 |
CG2D_NSA |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
326 |
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_O1_R8_JAM( cg2d_r ) |
|
./model/src/cg2d_nsa.F |
442 |
CG2D_NSA |
_EXCH_XY_R8( cg2d_r, myThid ) |