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 |
378 |
CG3D |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
./model/src/cg3d_ex0.F |
189 |
CG3D_EX0 |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
./model/src/cg3d_ex0.F |
362 |
CG3D_EX0 |
& *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
./model/src/ini_cg2d.F |
211 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |
./model/src/ini_cg3d.F |
211 |
INI_CG3D |
locGamma = drC(1)*recip_Bo(i,j,bi,bj) |
./model/src/ini_cg3d.F |
218 |
INI_CG3D |
& - freeSurfFac*recip_Bo(i,j,bi,bj) |
./model/src/ini_cg3d.F |
230 |
INI_CG3D |
& - freeSurfFac*recip_Bo(i,j,bi,bj) |
./model/src/ini_linear_phisurf.F |
102 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = rhoConst |
./model/src/ini_linear_phisurf.F |
134 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = rhoLoc |
./model/src/ini_linear_phisurf.F |
137 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. _d 0 |
./model/src/ini_linear_phisurf.F |
158 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 1. _d 0 / Bo_surf(i,j,bi,bj) |
./model/src/ini_linear_phisurf.F |
161 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. |
./model/src/ini_linear_phisurf.F |
174 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 1. _d 0 / Bo_surf(i,j,bi,bj) |
./model/src/ini_linear_phisurf.F |
177 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. |
./model/src/ini_linear_phisurf.F |
61 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 0. _d 0 |
./model/src/ini_linear_phisurf.F |
88 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = 1. _d 0 / gBaro |
./model/src/post_cg3d.F |
129 |
POST_CG3D |
& + recip_Bo(i,j,bi,bj)*dPhiNH(i,j,bi,bj) |
./model/src/post_cg3d.F |
65 |
POST_CG3D |
locGamma = drC(1)*recip_Bo(i,j,bi,bj) |
./model/src/pre_cg3d.F |
122 |
PRE_CG3D |
locGamma = drC(1)*recip_Bo(i,j,bi,bj) |
./model/src/solve_for_pressure.F |
199 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
./model/src/solve_for_pressure.F |
204 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
./model/src/solve_for_pressure.F |
371 |
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 |
141 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |
./model/src/update_cg2d.F |
152 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(i,j,bi,bj) |