File |
Line number |
Procedure |
Code |
./model/src/calc_div_ghat.F |
113 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = pf(i+1,j)-pf(i,j) |
./model/src/calc_div_ghat.F |
156 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) + |
./model/src/ini_cg3d.F |
318 |
INI_CG3D |
cg3d_b(I,J,K,bi,bj) = 0. _d 0 |
./model/src/ini_cg3d.F |
325 |
INI_CG3D |
_EXCH_XYZ_R8(cg3d_b, myThid) |
./model/src/solve_for_pressure.F |
131 |
SOLVE_FOR_PRESSURE |
cg3d_b(i,j,1,bi,bj) = cg3d_b(i,j,1,bi,bj) |
./model/src/solve_for_pressure.F |
288 |
SOLVE_FOR_PRESSURE |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
./model/src/solve_for_pressure.F |
301 |
SOLVE_FOR_PRESSURE |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
./model/src/solve_for_pressure.F |
316 |
SOLVE_FOR_PRESSURE |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
./model/src/solve_for_pressure.F |
333 |
SOLVE_FOR_PRESSURE |
cg3d_b(I,OB_Jn(I,bi,bj),K,bi,bj)=0. |
./model/src/solve_for_pressure.F |
337 |
SOLVE_FOR_PRESSURE |
cg3d_b(I,OB_Js(I,bi,bj),K,bi,bj)=0. |
./model/src/solve_for_pressure.F |
343 |
SOLVE_FOR_PRESSURE |
cg3d_b(OB_Ie(J,bi,bj),J,K,bi,bj)=0. |
./model/src/solve_for_pressure.F |
347 |
SOLVE_FOR_PRESSURE |
cg3d_b(OB_Iw(J,bi,bj),J,K,bi,bj)=0. |
./model/src/solve_for_pressure.F |
361 |
SOLVE_FOR_PRESSURE |
U cg3d_b, |
./model/src/cg3d.F |
125 |
CG3D |
cg3d_b(I,J,K,bi,bj) = cg3d_b(I,J,K,bi,bj)*cg3dNorm |
./model/src/cg3d.F |
126 |
CG3D |
rhsMax = MAX(ABS(cg3d_b(I,J,K,bi,bj)),rhsMax) |
./model/src/cg3d.F |
13 |
CG3D |
I cg3d_b, |
./model/src/cg3d.F |
140 |
CG3D |
cg3d_b(I,J,K,bi,bj) = cg3d_b(I,J,K,bi,bj)*rhsNorm |
./model/src/cg3d.F |
149 |
CG3D |
_EXCH_XYZ_R8( cg3d_b, myThid ) |
./model/src/cg3d.F |
170 |
CG3D |
cg3d_r(I,J,K,bi,bj) = cg3d_b(I,J,K,bi,bj) -( 0. |
./model/src/cg3d.F |
188 |
CG3D |
& +cg3d_b(I,J,K,bi,bj) |
./model/src/cg3d.F |
62 |
CG3D |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./model/inc/SOLVE_FOR_PRESSURE3D.h |
17 |
NO PROCEDURE |
COMMON / SFP3D_COMMON_R8 / cg3d_x, cg3d_b |
./model/inc/SOLVE_FOR_PRESSURE3D.h |
19 |
NO PROCEDURE |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |