| File |
Line number |
Procedure |
Code |
|
./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/ini_cg2d.F |
69 |
INI_CG2D |
cg2d_q(I,J,bi,bj) = 0. _d 0 |
|
./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) |
|
./model/src/cg2d.F |
242 |
CG2D |
cg2d_q(I,J,bi,bj) = |
|
./model/src/cg2d.F |
252 |
CG2D |
& +cg2d_q(I,J,bi,bj)*cg2d_r(I,J,bi,bj) |
|
./model/src/cg2d.F |
273 |
CG2D |
cg2d_s(I,J,bi,bj) = cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
297 |
CG2D |
cg2d_q(I,J,bi,bj) = |
|
./model/src/cg2d.F |
308 |
CG2D |
alphaTile = alphaTile+cg2d_s(I,J,bi,bj)*cg2d_q(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_nsa.F |
383 |
CG2D_NSA |
cg2d_q(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 |
423 |
CG2D_NSA |
cg2d_r(I,J,bi,bj)=cg2d_r(I,J,bi,bj)-alpha*cg2d_q(I,J,bi,bj) |