| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_up.F |
171 |
FLT_UP |
call FLT_BILINEAR2D(xx,yy,pp,cg2d_x,1,bi,bj) |
|
./pkg/flt/flt_traj.F |
139 |
FLT_TRAJ |
call FLT_BILINEAR2D(xx,yy,pp, cg2d_x,1,bi,bj) |
|
./model/src/solve_for_pressure.F |
164 |
SOLVE_FOR_PRESSURE |
cg2d_x(I,OB_Jn(I,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
169 |
SOLVE_FOR_PRESSURE |
cg2d_x(I,OB_Js(I,bi,bj),bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
176 |
SOLVE_FOR_PRESSURE |
cg2d_x(OB_Ie(J,bi,bj),J,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
181 |
SOLVE_FOR_PRESSURE |
cg2d_x(OB_Iw(J,bi,bj),J,bi,bj)=0. |
|
./model/src/solve_for_pressure.F |
204 |
SOLVE_FOR_PRESSURE |
U cg2d_x, |
|
./model/src/solve_for_pressure.F |
209 |
SOLVE_FOR_PRESSURE |
_EXCH_XY_R8(cg2d_x, myThid ) |
|
./model/src/solve_for_pressure.F |
213 |
SOLVE_FOR_PRESSURE |
CALL DEBUG_STATS_RL(1,cg2d_x,'cg2d_x (SOLVE_FOR_PRESSURE)', |
|
./model/src/solve_for_pressure.F |
238 |
SOLVE_FOR_PRESSURE |
etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj)*cg2d_x(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
254 |
SOLVE_FOR_PRESSURE |
& (cg2d_x(i,j,bi,bj)-cg2d_x(i-1,j,bi,bj)) |
|
./model/src/solve_for_pressure.F |
256 |
SOLVE_FOR_PRESSURE |
& (cg2d_x(i,j,bi,bj)-cg2d_x(i,j-1,bi,bj)) |
|
./model/src/solve_for_pressure.F |
82 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,j,bi,bj) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/cg2d.F |
11 |
CG2D |
U cg2d_x, |
|
./model/src/cg2d.F |
151 |
CG2D |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
161 |
CG2D |
_EXCH_XY_R8( cg2d_x, myThid ) |
|
./model/src/cg2d.F |
179 |
CG2D |
& (aW2d(I ,J ,bi,bj)*cg2d_x(I-1,J ,bi,bj) |
|
./model/src/cg2d.F |
180 |
CG2D |
& +aW2d(I+1,J ,bi,bj)*cg2d_x(I+1,J ,bi,bj) |
|
./model/src/cg2d.F |
181 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
182 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
183 |
CG2D |
& -aW2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
184 |
CG2D |
& -aW2d(I+1,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
185 |
CG2D |
& -aS2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
186 |
CG2D |
& -aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
188 |
CG2D |
& cg2d_x(I ,J ,bi,bj)/deltaTMom/deltaTfreesurf*cg2dNorm |
|
./model/src/cg2d.F |
339 |
CG2D |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+alpha*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d.F |
369 |
CG2D |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./model/src/cg2d.F |
61 |
CG2D |
_RL cg2d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/SOLVE_FOR_PRESSURE.h |
15 |
NO PROCEDURE |
COMMON / SFP_COMMON_R8 / cg2d_x, cg2d_b |
|
./model/inc/SOLVE_FOR_PRESSURE.h |
16 |
NO PROCEDURE |
_RL cg2d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |