| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg2d.F |
227 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(I,J,bi,bj)* |
|
./model/src/ini_cg2d.F |
233 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(I,J-1,bi,bj)* |
|
./model/src/ini_cg2d.F |
239 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(I-1,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 |
60 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
86 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / gBaro |
|
./model/src/ini_linear_phisurf.F |
98 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoConst |
|
./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/cg2d.F |
187 |
CG2D |
& -freeSurfFac*_rA(i,j,bi,bj)*recip_Bo(i,j,bi,bj)* |
|
./model/src/cg2d.F |
314 |
CG2D |
& -freeSurfFac*_rA(i,j,bi,bj)*recip_Bo(i,j,bi,bj)* |
|
./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/update_cg2d.F |
124 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(I,J,bi,bj)* |