| File |
Line number |
Procedure |
Code |
|
./model/inc/SOLVE_FOR_PRESSURE.h |
15 |
NO PROCEDURE |
COMMON / SFP_COMMON_R8 / cg2d_x, cg2d_b |
|
./model/inc/SOLVE_FOR_PRESSURE.h |
16 |
NO PROCEDURE |
_RL cg2d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/cg2d.F |
153 |
CG2D |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
163 |
CG2D |
CALL EXCH_XY_RL( cg2d_x, myThid ) |
|
./model/src/cg2d.F |
187 |
CG2D |
& (aW2d(I ,J ,bi,bj)*cg2d_x(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
188 |
CG2D |
& +aW2d(I+1,J ,bi,bj)*cg2d_x(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
189 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
18 |
CG2D |
U cg2d_x, |
|
./model/src/cg2d.F |
190 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
191 |
CG2D |
& +aC2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
361 |
CG2D |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+alpha*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d.F |
405 |
CG2D |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./model/src/cg2d.F |
68 |
CG2D |
_RL cg2d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/cg2d_nsa.F |
17 |
CG2D_NSA |
U cg2d_x, |
|
./model/src/cg2d_nsa.F |
197 |
CG2D_NSA |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
207 |
CG2D_NSA |
CALL EXCH_XY_RL( cg2d_x, myThid ) |
|
./model/src/cg2d_nsa.F |
232 |
CG2D_NSA |
& (aW2d(I ,J ,bi,bj)*cg2d_x(I-1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
233 |
CG2D_NSA |
& +aW2d(I+1,J ,bi,bj)*cg2d_x(I+1,J ,bi,bj) |
|
./model/src/cg2d_nsa.F |
234 |
CG2D_NSA |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
235 |
CG2D_NSA |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
236 |
CG2D_NSA |
& +aC2d(I ,J ,bi,bj)*cg2d_x(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) |
|
./model/src/cg2d_nsa.F |
457 |
CG2D_NSA |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./model/src/cg2d_nsa.F |
75 |
CG2D_NSA |
_RL cg2d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/cg2d_sr.F |
139 |
CG2D_SR |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
148 |
CG2D_SR |
CALL EXCH_XY_RL( cg2d_x, myThid ) |
|
./model/src/cg2d_sr.F |
168 |
CG2D_SR |
& (aW2d(I ,J ,bi,bj)*cg2d_x(I-1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
169 |
CG2D_SR |
& +aW2d(I+1,J ,bi,bj)*cg2d_x(I+1,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
170 |
CG2D_SR |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
171 |
CG2D_SR |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
172 |
CG2D_SR |
& +aC2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d_sr.F |
18 |
CG2D_SR |
U cg2d_x, |
|
./model/src/cg2d_sr.F |
267 |
CG2D_SR |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+sigma*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
381 |
CG2D_SR |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
403 |
CG2D_SR |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./model/src/cg2d_sr.F |
72 |
CG2D_SR |
_RL cg2d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/OpenAD/code_oad/externalDummies.F |
70 |
CG2D |
U cg2d_x, |
|
./verification/OpenAD/code_oad/externalDummies.F |
81 |
CG2D |
Real*8 cg2d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/OpenAD/code_oad/externalDummies.F |
86 |
CG2D |
cg2d_x(1,1,1,1)=cg2d_b(1,1,1,1) |
|
./model/src/pre_cg3d.F |
12 |
PRE_CG3D |
I cg2d_x, |
|
./model/src/pre_cg3d.F |
171 |
PRE_CG3D |
& *(cg2d_x(i,j,bi,bj)-cg2d_x(i-1,j,bi,bj)) |
|
./model/src/pre_cg3d.F |
174 |
PRE_CG3D |
& *(cg2d_x(i,j,bi,bj)-cg2d_x(i,j-1,bi,bj)) |
|
./model/src/pre_cg3d.F |
50 |
PRE_CG3D |
_RL cg2d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/solve_for_pressure.F |
128 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,j,bi,bj) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
167 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
237 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,OB_Jn(i,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
242 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,OB_Js(i,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
249 |
SOLVE_FOR_PRESSURE |
cg2d_x(OB_Ie(j,bi,bj),j,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
254 |
SOLVE_FOR_PRESSURE |
cg2d_x(OB_Iw(j,bi,bj),j,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
285 |
SOLVE_FOR_PRESSURE |
U cg2d_x, |
|
./model/src/solve_for_pressure.F |
296 |
SOLVE_FOR_PRESSURE |
U cg2d_x, |
|
./model/src/solve_for_pressure.F |
308 |
SOLVE_FOR_PRESSURE |
U cg2d_x, |
|
./model/src/solve_for_pressure.F |
315 |
SOLVE_FOR_PRESSURE |
_EXCH_XY_RL( cg2d_x, myThid ) |
|
./model/src/solve_for_pressure.F |
320 |
SOLVE_FOR_PRESSURE |
CALL DEBUG_STATS_RL(1,cg2d_x,'cg2d_x (SOLVE_FOR_PRESSURE)', |
|
./model/src/solve_for_pressure.F |
345 |
SOLVE_FOR_PRESSURE |
etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj)*cg2d_x(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
355 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XY_RL( 'cg2d_x.',sufx, cg2d_x, myIter, myThid ) |
|
./model/src/solve_for_pressure.F |
367 |
SOLVE_FOR_PRESSURE |
I cg2d_x, |