| File |
Line number |
Procedure |
Code |
|
./model/inc/SURFACE.h |
25 |
NO PROCEDURE |
COMMON /SURF_FIXED/ Bo_surf, recip_Bo, topoZ, phi0surf |
|
./model/inc/SURFACE.h |
27 |
NO PROCEDURE |
_RL recip_Bo(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/ini_cg2d.F |
212 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(I,J,bi,bj)* |
|
./model/src/ini_cg2d.F |
218 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(I,J-1,bi,bj)* |
|
./model/src/ini_cg2d.F |
224 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(I-1,J,bi,bj)* |
|
./model/src/ini_cg3d.F |
237 |
INI_CG3D |
& -freeSurfFac*recip_Bo(I,J,bi,bj) |
|
./model/src/update_cg2d.F |
124 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(I,J,bi,bj)* |
|
./model/src/ini_linear_phisurf.F |
120 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoLoc |
|
./model/src/ini_linear_phisurf.F |
123 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
141 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / Bo_surf(I,J,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
144 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
158 |
INI_LINEAR_PHISURF |
_EXCH_XY_R8(recip_Bo, myThid) |
|
./model/src/ini_linear_phisurf.F |
59 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
85 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / gBaro |
|
./model/src/ini_linear_phisurf.F |
97 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoConst |
|
./model/src/solve_for_pressure.F |
334 |
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 |
508 |
SOLVE_FOR_PRESSURE |
etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
519 |
SOLVE_FOR_PRESSURE |
etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj) |
|
./model/src/cg2d.F |
179 |
CG2D |
& -freeSurfFac*_rA(i,j,bi,bj)*recip_Bo(i,j,bi,bj)* |
|
./model/src/cg2d.F |
306 |
CG2D |
& -freeSurfFac*_rA(i,j,bi,bj)*recip_Bo(i,j,bi,bj)* |
|
./model/src/cg2d_nsa.F |
237 |
CG2D_NSA |
& -freeSurfFac*_rA(i,j,bi,bj)*recip_Bo(i,j,bi,bj)* |
|
./model/src/cg2d_nsa.F |
392 |
CG2D_NSA |
& -freeSurfFac*_rA(i,j,bi,bj)*recip_Bo(i,j,bi,bj)* |