| 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/cg3d.F |
196 |
CG3D |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/cg3d.F |
386 |
CG3D |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/ini_cg2d.F |
220 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/ini_cg3d.F |
253 |
INI_CG3D |
& - freeSurfFac*recip_Bo(i,j,bi,bj) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
100 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoConst |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
123 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoLoc |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
126 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
144 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / Bo_surf(I,J,bi,bj) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
147 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
161 |
INI_LINEAR_PHISURF |
_EXCH_XY_RL(recip_Bo, myThid) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
59 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
86 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / gBaro |
|
./model/src/ini_linear_phisurf.F |
148 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / gBaro |
|
./model/src/ini_linear_phisurf.F |
162 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoConst |
|
./model/src/ini_linear_phisurf.F |
184 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoLoc |
|
./model/src/ini_linear_phisurf.F |
187 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
205 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 1. _d 0 / Bo_surf(I,J,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
208 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
222 |
INI_LINEAR_PHISURF |
_EXCH_XY_RL(recip_Bo, myThid) |
|
./model/src/ini_linear_phisurf.F |
70 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = 0. _d 0 |
|
./model/src/post_cg3d.F |
149 |
POST_CG3D |
& + recip_Bo(i,j,bi,bj)*dPhiNH(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
196 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
|
./model/src/solve_for_pressure.F |
201 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
|
./model/src/solve_for_pressure.F |
347 |
SOLVE_FOR_PRESSURE |
etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj)*cg2d_x(i,j,bi,bj) |
|
./model/src/update_cg2d.F |
129 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(I,J,bi,bj)*deepFac2F(ks) |
|
./model/src/update_cg2d.F |
140 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(I,J,bi,bj) |