| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg2d.F |
77 |
INI_CG2D |
cg2d_s(I,J,bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
177 |
CG2D |
cg2d_s(I,J,bi,bj) = 0. |
|
./model/src/cg2d.F |
208 |
CG2D |
CALL EXCH_XY_O1_R8_JAM( cg2d_s ) |
|
./model/src/cg2d.F |
210 |
CG2D |
CALL EXCH_XY_RL( cg2d_s, myThid ) |
|
./model/src/cg2d.F |
281 |
CG2D |
cg2d_s(I,J,bi,bj) = cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
282 |
CG2D |
& + cgBeta*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d.F |
292 |
CG2D |
CALL EXCH_XY_O1_R8_JAM( cg2d_s ) |
|
./model/src/cg2d.F |
294 |
CG2D |
CALL EXCH_XY_RL( cg2d_s, myThid ) |
|
./model/src/cg2d.F |
306 |
CG2D |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
307 |
CG2D |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
308 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
309 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
310 |
CG2D |
& -aW2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
311 |
CG2D |
& -aW2d(I+1,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
312 |
CG2D |
& -aS2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
313 |
CG2D |
& -aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
315 |
CG2D |
& cg2d_s(I ,J ,bi,bj)/deltaTMom/deltaTfreesurf*cg2dNorm |
|
./model/src/cg2d.F |
316 |
CG2D |
alphaTile = alphaTile+cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
339 |
CG2D |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+alpha*cg2d_s(I,J,bi,bj) |
|
./model/inc/CG2D_INTERNAL.h |
43 |
NO PROCEDURE |
& cg2d_q, cg2d_r, cg2d_s |
|
./model/inc/CG2D_INTERNAL.h |
46 |
NO PROCEDURE |
_RL cg2d_s(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 |
59 |
NO PROCEDURE |
_RL cg2d_s(1-1:sNx+1,1-1:sNy+1,nSx,nSy) |
|
./model/inc/CG2D.h |
62 |
NO PROCEDURE |
_RL cg2d_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |