| 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/solve_for_pressure.F |
124 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
133 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = |
|
./model/src/solve_for_pressure.F |
179 |
SOLVE_FOR_PRESSURE |
U cg2d_b, |
|
./model/src/solve_for_pressure.F |
194 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
208 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
225 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
233 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
245 |
SOLVE_FOR_PRESSURE |
cg2d_b(I,OB_Jn(I,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
250 |
SOLVE_FOR_PRESSURE |
cg2d_b(I,OB_Js(I,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
257 |
SOLVE_FOR_PRESSURE |
cg2d_b(OB_Ie(J,bi,bj),J,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
262 |
SOLVE_FOR_PRESSURE |
cg2d_b(OB_Iw(J,bi,bj),J,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
274 |
SOLVE_FOR_PRESSURE |
CALL DEBUG_STATS_RL(1,cg2d_b,'cg2d_b (SOLVE_FOR_PRESSURE)', |
|
./model/src/solve_for_pressure.F |
289 |
SOLVE_FOR_PRESSURE |
U cg2d_b, |
|
./model/src/solve_for_pressure.F |
297 |
SOLVE_FOR_PRESSURE |
U cg2d_b, |
|
./model/src/calc_div_ghat.F |
105 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) + |
|
./model/src/calc_div_ghat.F |
12 |
CALC_DIV_GHAT |
U cg2d_b, |
|
./model/src/calc_div_ghat.F |
148 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) + |
|
./model/src/calc_div_ghat.F |
48 |
CALC_DIV_GHAT |
_RL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/cg2d.F |
10 |
CG2D |
I cg2d_b, |
|
./model/src/cg2d.F |
120 |
CG2D |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*cg2dNorm |
|
./model/src/cg2d.F |
121 |
CG2D |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d.F |
142 |
CG2D |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
152 |
CG2D |
_EXCH_XY_R8( cg2d_b, myThid ) |
|
./model/src/cg2d.F |
170 |
CG2D |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d.F |
185 |
CG2D |
& cg2d_b(I,J,bi,bj) |
|
./model/src/cg2d.F |
60 |
CG2D |
_RL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/cg2d_nsa.F |
160 |
CG2D_NSA |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*cg2dNorm |
|
./model/src/cg2d_nsa.F |
161 |
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 |
197 |
CG2D_NSA |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
207 |
CG2D_NSA |
_EXCH_XY_R8( cg2d_b, myThid ) |
|
./model/src/cg2d_nsa.F |
228 |
CG2D_NSA |
cg2d_r(I,J,bi,bj) = cg2d_b(I,J,bi,bj) - |
|
./model/src/cg2d_nsa.F |
244 |
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) |