| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg2d.F |
76 |
INI_CG2D |
cg2d_r(I,J,bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
178 |
CG2D |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d.F |
191 |
CG2D |
& cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
202 |
CG2D |
CALL EXCH_XY_O1_R8_JAM( cg2d_r ) |
|
./model/src/cg2d.F |
204 |
CG2D |
CALL EXCH_XY_RL( cg2d_r, myThid ) |
|
./model/src/cg2d.F |
251 |
CG2D |
& pC(I ,J ,bi,bj)*cg2d_r(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
252 |
CG2D |
& +pW(I ,J ,bi,bj)*cg2d_r(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
253 |
CG2D |
& +pW(I+1,J ,bi,bj)*cg2d_r(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
254 |
CG2D |
& +pS(I ,J ,bi,bj)*cg2d_r(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
255 |
CG2D |
& +pS(I ,J+1,bi,bj)*cg2d_r(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
260 |
CG2D |
& +cg2d_q(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
340 |
CG2D |
cg2d_r(I,J,bi,bj)=cg2d_r(I,J,bi,bj)-alpha*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
341 |
CG2D |
errTile = errTile+cg2d_r(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
355 |
CG2D |
CALL EXCH_XY_O1_R8_JAM( cg2d_r ) |
|
./model/src/cg2d.F |
357 |
CG2D |
CALL EXCH_XY_RL( cg2d_r, myThid ) |
|
./model/inc/CG2D_INTERNAL.h |
43 |
NO PROCEDURE |
& cg2d_q, cg2d_r, cg2d_s |
|
./model/inc/CG2D_INTERNAL.h |
45 |
NO PROCEDURE |
_RL cg2d_r(1-1:sNx+1,1-1:sNy+1,nSx,nSy) |
|
./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) |