| File |
Line number |
Procedure |
Code |
|
./pkg/cd_code/cd_code_scheme.F |
98 |
CD_CODE_SCHEME |
& ab15*( etaN(i,j,bi,bj)*Bo_surf(i,j,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
99 |
CD_CODE_SCHEME |
& +ab05*(etaNm1(i,j,bi,bj)*Bo_surf(i,j,bi,bj) ) |
|
./model/src/diags_phi_hyd.F |
58 |
DIAGS_PHI_HYD |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
116 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
118 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 1./rhoLoc |
|
./model/src/ini_linear_phisurf.F |
122 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
140 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(ksurfC(I,J,bi,bj)) |
|
./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 |
143 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
157 |
INI_LINEAR_PHISURF |
_EXCH_XY_R8(Bo_surf, myThid) |
|
./model/src/ini_linear_phisurf.F |
165 |
INI_LINEAR_PHISURF |
CALL WRITE_FLD_XY_RL( 'Bo_surf',' ',Bo_surf,0,myThid) |
|
./model/src/ini_linear_phisurf.F |
59 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
85 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = gBaro |
|
./model/src/ini_linear_phisurf.F |
97 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = recip_rhoConst |
|
./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/calc_grad_phi_surf.F |
52 |
CALC_GRAD_PHI_SURF |
& ( Bo_surf(i,j,bi,bj)*etaFld(i,j,bi,bj) |
|
./model/src/calc_grad_phi_surf.F |
53 |
CALC_GRAD_PHI_SURF |
& - Bo_surf(i-1,j,bi,bj)*etaFld(i-1,j,bi,bj) ) |
|
./model/src/calc_grad_phi_surf.F |
61 |
CALC_GRAD_PHI_SURF |
& ( Bo_surf(i,j,bi,bj)*etaFld(i,j,bi,bj) |
|
./model/src/calc_grad_phi_surf.F |
62 |
CALC_GRAD_PHI_SURF |
& - Bo_surf(i,j-1,bi,bj)*etaFld(i,j-1,bi,bj) ) |
|
./model/inc/SURFACE.h |
25 |
NO PROCEDURE |
COMMON /SURF_FIXED/ Bo_surf, recip_Bo, topoZ, phi0surf |
|
./model/inc/SURFACE.h |
26 |
NO PROCEDURE |
_RL Bo_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/diags_phi_rlow.F |
129 |
DIAGS_PHI_RLOW |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
90 |
MON_KE |
tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj) |