| File |
Line number |
Procedure |
Code |
|
./model/inc/SOLVE_FOR_PRESSURE3D.h |
23 |
NO PROCEDURE |
& cg3d_b |
|
./model/inc/SOLVE_FOR_PRESSURE3D.h |
26 |
NO PROCEDURE |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
|
./model/src/calc_div_ghat.F |
11 |
CALC_DIV_GHAT |
U cg2d_b, cg3d_b, |
|
./model/src/calc_div_ghat.F |
129 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = ( pf(i+1,j)-pf(i,j) ) |
|
./model/src/calc_div_ghat.F |
172 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
191 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
44 |
CALC_DIV_GHAT |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_div_ghat.F |
46 |
CALC_DIV_GHAT |
_RL cg3d_b(1) |
|
./model/src/cg3d.F |
140 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d.F |
142 |
CG3D |
rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax) |
|
./model/src/cg3d.F |
156 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
17 |
CG3D |
I cg3d_b, |
|
./model/src/cg3d.F |
213 |
CG3D |
cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
228 |
CG3D |
sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
68 |
CG3D |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/ini_cg3d.F |
90 |
INI_CG3D |
cg3d_b(i,j,k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
115 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
139 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
13 |
PRE_CG3D |
U cg3d_b, |
|
./model/src/pre_cg3d.F |
155 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
208 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
227 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
246 |
PRE_CG3D |
& cg3d_b(i,OB_Jn(i,bi,bj),k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
249 |
PRE_CG3D |
& cg3d_b(i,OB_Js(i,bi,bj),k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
254 |
PRE_CG3D |
& cg3d_b(OB_Ie(j,bi,bj),j,k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
257 |
PRE_CG3D |
& cg3d_b(OB_Iw(j,bi,bj),j,k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
51 |
PRE_CG3D |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/pre_cg3d.F |
89 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/solve_for_pressure.F |
177 |
SOLVE_FOR_PRESSURE |
U cg2d_b, cg3d_b, |
|
./model/src/solve_for_pressure.F |
197 |
SOLVE_FOR_PRESSURE |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/solve_for_pressure.F |
370 |
SOLVE_FOR_PRESSURE |
U cg3d_b, |
|
./model/src/solve_for_pressure.F |
375 |
SOLVE_FOR_PRESSURE |
CALL DEBUG_STATS_RL(Nr,cg3d_b,'cg3d_b (SOLVE_FOR_PRESSURE)', |
|
./model/src/solve_for_pressure.F |
381 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XYZ_RL('cg3d_b.',sufx, cg3d_b, myIter,myThid ) |
|
./model/src/solve_for_pressure.F |
389 |
SOLVE_FOR_PRESSURE |
U cg3d_b, |
|
./model/src/solve_for_pressure.F |
70 |
SOLVE_FOR_PRESSURE |
_RL cg3d_b(1) |
|
./model/src/solve_for_pressure.F |
84 |
SOLVE_FOR_PRESSURE |
cg3d_b(1) = 0. |