| 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 |
17 |
NO PROCEDURE |
_RL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/calc_div_ghat.F |
11 |
CALC_DIV_GHAT |
U cg2d_b, cg3d_b, |
|
./model/src/calc_div_ghat.F |
120 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) + |
|
./model/src/calc_div_ghat.F |
163 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) + |
|
./model/src/calc_div_ghat.F |
183 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/calc_div_ghat.F |
42 |
CALC_DIV_GHAT |
_RL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/cg2d.F |
131 |
CG2D |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*cg2dNorm |
|
./model/src/cg2d.F |
132 |
CG2D |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d.F |
152 |
CG2D |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
17 |
CG2D |
I cg2d_b, |
|
./model/src/cg2d.F |
186 |
CG2D |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d.F |
206 |
CG2D |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(I,J,bi,bj) |
|
./model/src/cg2d.F |
215 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(cg2d_b, sumRHS, OLx, OLy, myThid) |
|
./model/src/cg2d.F |
67 |
CG2D |
_RL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/cg2d_nsa.F |
159 |
CG2D_NSA |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*cg2dNorm |
|
./model/src/cg2d_nsa.F |
160 |
CG2D_NSA |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d_nsa.F |
16 |
CG2D_NSA |
I cg2d_b, |
|
./model/src/cg2d_nsa.F |
196 |
CG2D_NSA |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
231 |
CG2D_NSA |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d_nsa.F |
249 |
CG2D_NSA |
& cg2d_b(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
74 |
CG2D_NSA |
_RL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/cg2d_sr.F |
122 |
CG2D_SR |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*cg2dNorm |
|
./model/src/cg2d_sr.F |
123 |
CG2D_SR |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d_sr.F |
138 |
CG2D_SR |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
167 |
CG2D_SR |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d_sr.F |
176 |
CG2D_SR |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
17 |
CG2D_SR |
I cg2d_b, |
|
./model/src/cg2d_sr.F |
71 |
CG2D_SR |
_RL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/OpenAD/code_oad/externalDummies.F |
72 |
CG2D |
I cg2d_b, |
|
./verification/OpenAD/code_oad/externalDummies.F |
83 |
CG2D |
Real*8 cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./verification/OpenAD/code_oad/externalDummies.F |
90 |
CG2D |
cg2d_x(1,1,1,1)=2*cg2d_b(1,1,1,1) |
|
./model/src/solve_for_pressure.F |
129 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
138 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = |
|
./model/src/solve_for_pressure.F |
177 |
SOLVE_FOR_PRESSURE |
U cg2d_b, cg3d_b, |
|
./model/src/solve_for_pressure.F |
192 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
213 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
223 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
236 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,OB_Jn(i,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
241 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,OB_Js(i,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
249 |
SOLVE_FOR_PRESSURE |
cg2d_b(OB_Ie(j,bi,bj),j,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
254 |
SOLVE_FOR_PRESSURE |
cg2d_b(OB_Iw(j,bi,bj),j,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
267 |
SOLVE_FOR_PRESSURE |
CALL DEBUG_STATS_RL(1,cg2d_b,'cg2d_b (SOLVE_FOR_PRESSURE)', |
|
./model/src/solve_for_pressure.F |
273 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XY_RL( 'cg2d_b.', sufx, cg2d_b, myIter, myThid ) |
|
./model/src/solve_for_pressure.F |
286 |
SOLVE_FOR_PRESSURE |
U cg2d_b, |
|
./model/src/solve_for_pressure.F |
297 |
SOLVE_FOR_PRESSURE |
U cg2d_b, |
|
./model/src/solve_for_pressure.F |
309 |
SOLVE_FOR_PRESSURE |
U cg2d_b, |