| 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 |
132 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = ( pf(i+1,j)-pf(i,j) ) |
|
./model/src/calc_div_ghat.F |
175 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
194 |
CALC_DIV_GHAT |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
47 |
CALC_DIV_GHAT |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/calc_div_ghat.F |
49 |
CALC_DIV_GHAT |
_RL cg3d_b(1) |
|
./model/src/cg3d.F |
143 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d.F |
145 |
CG3D |
rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax) |
|
./model/src/cg3d.F |
159 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
17 |
CG3D |
U cg3d_b, cg3d_x, |
|
./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 |
69 |
CG3D |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/cg3d_ex0.F |
136 |
CG3D_EX0 |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm |
|
./model/src/cg3d_ex0.F |
138 |
CG3D_EX0 |
rhsMaxLoc = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMaxLoc) |
|
./model/src/cg3d_ex0.F |
147 |
CG3D_EX0 |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm(bi,bj) |
|
./model/src/cg3d_ex0.F |
17 |
CG3D_EX0 |
U cg3d_b, cg3d_x, |
|
./model/src/cg3d_ex0.F |
206 |
CG3D_EX0 |
cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
221 |
CG3D_EX0 |
sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
61 |
CG3D_EX0 |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/ini_cg3d.F |
87 |
INI_CG3D |
cg3d_b(i,j,k,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
100 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
128 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
13 |
PRE_CG3D |
U cg3d_b, |
|
./model/src/pre_cg3d.F |
144 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
159 |
PRE_CG3D |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/pre_cg3d.F |
197 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
216 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
242 |
PRE_CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj) |
|
./model/src/pre_cg3d.F |
48 |
PRE_CG3D |
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/solve_for_pressure.F |
180 |
SOLVE_FOR_PRESSURE |
U cg2d_b, cg3d_b, |
|
./model/src/solve_for_pressure.F |
200 |
SOLVE_FOR_PRESSURE |
cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj) |
|
./model/src/solve_for_pressure.F |
393 |
SOLVE_FOR_PRESSURE |
U cg3d_b, |
|
./model/src/solve_for_pressure.F |
398 |
SOLVE_FOR_PRESSURE |
CALL DEBUG_STATS_RL(Nr,cg3d_b,'cg3d_b (SOLVE_FOR_PRESSURE)', |
|
./model/src/solve_for_pressure.F |
403 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XYZ_RL('cg3d_b','I10', cg3d_b, myIter,myThid ) |
|
./model/src/solve_for_pressure.F |
412 |
SOLVE_FOR_PRESSURE |
U cg3d_b, phi_nh, |
|
./model/src/solve_for_pressure.F |
418 |
SOLVE_FOR_PRESSURE |
U cg3d_b, phi_nh, |
|
./model/src/solve_for_pressure.F |
70 |
SOLVE_FOR_PRESSURE |
_RL cg3d_b(1) |
|
./model/src/solve_for_pressure.F |
88 |
SOLVE_FOR_PRESSURE |
cg3d_b(1) = 0. |