| File |
Line number |
Procedure |
Code |
|
./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 |
123 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) + |
|
./model/src/calc_div_ghat.F |
166 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) + |
|
./model/src/calc_div_ghat.F |
186 |
CALC_DIV_GHAT |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/calc_div_ghat.F |
45 |
CALC_DIV_GHAT |
_RL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/cg2d.F |
121 |
CG2D |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d.F |
122 |
CG2D |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d.F |
137 |
CG2D |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
171 |
CG2D |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d.F |
17 |
CG2D |
U cg2d_b, cg2d_x, |
|
./model/src/cg2d.F |
183 |
CG2D |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d.F |
192 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(cg2d_b, sumRHS, OLx, OLy, myThid) |
|
./model/src/cg2d.F |
66 |
CG2D |
_RL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/cg2d_ex0.F |
116 |
CG2D_EX0 |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d_ex0.F |
117 |
CG2D_EX0 |
rhsMaxLoc = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMaxLoc) |
|
./model/src/cg2d_ex0.F |
125 |
CG2D_EX0 |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg2d_ex0.F |
163 |
CG2D_EX0 |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d_ex0.F |
172 |
CG2D_EX0 |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
17 |
CG2D_EX0 |
U cg2d_b, cg2d_x, |
|
./model/src/cg2d_ex0.F |
58 |
CG2D_EX0 |
_RL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/cg2d_nsa.F |
151 |
CG2D_NSA |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d_nsa.F |
152 |
CG2D_NSA |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d_nsa.F |
168 |
CG2D_NSA |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
16 |
CG2D_NSA |
U cg2d_b, cg2d_x, |
|
./model/src/cg2d_nsa.F |
197 |
CG2D_NSA |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d_nsa.F |
206 |
CG2D_NSA |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_nsa.F |
73 |
CG2D_NSA |
_RL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/cg2d_sr.F |
126 |
CG2D_SR |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm |
|
./model/src/cg2d_sr.F |
127 |
CG2D_SR |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d_sr.F |
142 |
CG2D_SR |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
176 |
CG2D_SR |
cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) - |
|
./model/src/cg2d_sr.F |
17 |
CG2D_SR |
U cg2d_b, cg2d_x, |
|
./model/src/cg2d_sr.F |
185 |
CG2D_SR |
sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj) |
|
./model/src/cg2d_sr.F |
70 |
CG2D_SR |
_RL cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/openad/externalDummies.F |
111 |
CG2D |
I cg2d_b, |
|
./pkg/openad/externalDummies.F |
124 |
CG2D |
Real*8 cg2d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/openad/externalDummies.F |
133 |
CG2D |
cg2d_x(1,1,1,1)=2*cg2d_b(1,1,1,1) |
|
./model/src/solve_for_pressure.F |
133 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
140 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = |
|
./model/src/solve_for_pressure.F |
180 |
SOLVE_FOR_PRESSURE |
U cg2d_b, cg3d_b, |
|
./model/src/solve_for_pressure.F |
195 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
216 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
226 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
247 |
SOLVE_FOR_PRESSURE |
cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
259 |
SOLVE_FOR_PRESSURE |
CALL DEBUG_STATS_RL(1,cg2d_b,'cg2d_b (SOLVE_FOR_PRESSURE)', |
|
./model/src/solve_for_pressure.F |
264 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XY_RL( 'cg2d_b', 'I10', cg2d_b, myIter, myThid ) |
|
./model/src/solve_for_pressure.F |
278 |
SOLVE_FOR_PRESSURE |
U cg2d_b, cg2d_x, |
|
./model/src/solve_for_pressure.F |
286 |
SOLVE_FOR_PRESSURE |
U cg2d_b, cg2d_x, |
|
./model/src/solve_for_pressure.F |
295 |
SOLVE_FOR_PRESSURE |
U cg2d_b, cg2d_x, |
|
./model/src/solve_for_pressure.F |
305 |
SOLVE_FOR_PRESSURE |
U cg2d_b, cg2d_x, |