| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg2d.F |
71 |
INI_CG2D |
cg2d_q(I,J,bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
250 |
CG2D |
cg2d_q(I,J,bi,bj) = |
|
./model/src/cg2d.F |
260 |
CG2D |
& +cg2d_q(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
281 |
CG2D |
cg2d_s(I,J,bi,bj) = cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
305 |
CG2D |
cg2d_q(I,J,bi,bj) = |
|
./model/src/cg2d.F |
316 |
CG2D |
alphaTile = alphaTile+cg2d_s(I,J,bi,bj)*cg2d_q(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/inc/CG2D_INTERNAL.h |
43 |
NO PROCEDURE |
& cg2d_q, cg2d_r, cg2d_s |
|
./model/inc/CG2D_INTERNAL.h |
44 |
NO PROCEDURE |
_RL cg2d_q(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/CG2D.h |
55 |
NO PROCEDURE |
& cg2d_q, cg2d_r, cg2d_s |
|
./model/inc/CG2D.h |
56 |
NO PROCEDURE |
_RL cg2d_q(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/update_cg2d.F |
121 |
UPDATE_CG2D |
cg2d_q(I,J,bi,bj) = -( |
|
./model/src/update_cg2d.F |
136 |
UPDATE_CG2D |
_EXCH_XY_R8(cg2d_q, myThid) |
|
./model/src/update_cg2d.F |
143 |
UPDATE_CG2D |
IF ( cg2d_q(I,J,bi,bj) .EQ. 0. ) THEN |
|
./model/src/update_cg2d.F |
146 |
UPDATE_CG2D |
pC(I,J,bi,bj) = 1. _d 0 / cg2d_q(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
148 |
UPDATE_CG2D |
pW_tmp = cg2d_q(I,J,bi,bj)+cg2d_q(I-1,J,bi,bj) |
|
./model/src/update_cg2d.F |
155 |
UPDATE_CG2D |
pS_tmp = cg2d_q(I,J,bi,bj)+cg2d_q(I,J-1,bi,bj) |