| File |
Line number |
Procedure |
Code |
|
./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) |
|
./model/src/ini_cg2d.F |
75 |
INI_CG2D |
cg2d_s(I,J,bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
169 |
CG2D |
cg2d_s(I,J,bi,bj) = 0. |
|
./model/src/cg2d.F |
200 |
CG2D |
CALL EXCH_XY_O1_R8_JAM( cg2d_s ) |
|
./model/src/cg2d.F |
202 |
CG2D |
CALL EXCH_XY_RL( cg2d_s, myThid ) |
|
./model/src/cg2d.F |
273 |
CG2D |
cg2d_s(I,J,bi,bj) = cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
274 |
CG2D |
& + cgBeta*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d.F |
284 |
CG2D |
CALL EXCH_XY_O1_R8_JAM( cg2d_s ) |
|
./model/src/cg2d.F |
286 |
CG2D |
CALL EXCH_XY_RL( cg2d_s, myThid ) |
|
./model/src/cg2d.F |
298 |
CG2D |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
299 |
CG2D |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
300 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
301 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
302 |
CG2D |
& -aW2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
303 |
CG2D |
& -aW2d(I+1,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
304 |
CG2D |
& -aS2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
305 |
CG2D |
& -aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
307 |
CG2D |
& cg2d_s(I ,J ,bi,bj)/deltaTMom/deltaTfreesurf*cg2dNorm |
|
./model/src/cg2d.F |
308 |
CG2D |
alphaTile = alphaTile+cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
331 |
CG2D |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+alpha*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
227 |
CG2D_NSA |
cg2d_s(I,J,bi,bj) = 0. |
|
./model/src/cg2d_nsa.F |
252 |
CG2D_NSA |
CALL EXCH_XY_O1_R8_JAM( cg2d_s ) |
|
./model/src/cg2d_nsa.F |
255 |
CG2D_NSA |
_EXCH_XY_R8( cg2d_s, myThid ) |
|
./model/src/cg2d_nsa.F |
355 |
CG2D_NSA |
cg2d_s(I,J,bi,bj) = cg2d_z(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
356 |
CG2D_NSA |
& + cgBeta*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
365 |
CG2D_NSA |
CALL EXCH_XY_O1_R8_JAM( cg2d_s ) |
|
./model/src/cg2d_nsa.F |
367 |
CG2D_NSA |
_EXCH_XY_R8( cg2d_s, myThid ) |
|
./model/src/cg2d_nsa.F |
384 |
CG2D_NSA |
& aW2d(I ,J ,bi,bj)*cg2d_s(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
385 |
CG2D_NSA |
& +aW2d(I+1,J ,bi,bj)*cg2d_s(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
386 |
CG2D_NSA |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
387 |
CG2D_NSA |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
388 |
CG2D_NSA |
& -aW2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
389 |
CG2D_NSA |
& -aW2d(I+1,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
390 |
CG2D_NSA |
& -aS2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
391 |
CG2D_NSA |
& -aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
393 |
CG2D_NSA |
& cg2d_s(I ,J ,bi,bj)/deltaTMom/deltaTfreesurf*cg2dNorm |
|
./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 |
422 |
CG2D_NSA |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+alpha*cg2d_s(I,J,bi,bj) |