| 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 |
26 |
NO PROCEDURE |
_RL Bo_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./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) ) |
|
./pkg/monitor/mon_ke.F |
137 |
MON_KE |
tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
66 |
DIAGS_PHI_HYD |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
187 |
DIAGS_PHI_RLOW |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/seaice/dynsolver.F |
167 |
DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
191 |
SEAICE_DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
214 |
INI_CG3D |
& *Bo_surf(i,j,bi,bj)*recip_drC(1) |
|
./model/src/ini_linear_phisurf.F |
101 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = recip_rhoConst |
|
./model/src/ini_linear_phisurf.F |
130 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
132 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 1. _d 0/rhoLoc |
|
./model/src/ini_linear_phisurf.F |
136 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
157 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = dPIdp*thetaConst |
|
./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 |
160 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
173 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = dPIdp*tRef(kSurfC(i,j,bi,bj)) |
|
./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 |
176 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
195 |
INI_LINEAR_PHISURF |
CALL WRITE_FLD_XY_RL( 'Bo_surf',' ',Bo_surf,0,myThid) |
|
./model/src/ini_linear_phisurf.F |
60 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
87 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = gBaro |
|
./model/src/post_cg3d.F |
108 |
POST_CG3D |
& *Bo_surf(i,j,bi,bj)*recip_drC(1) |
|
./model/src/post_cg3d.F |
111 |
POST_CG3D |
& + Bo_surf(i,j,bi,bj)* |
|
./model/src/pre_cg3d.F |
98 |
PRE_CG3D |
& *Bo_surf(i,j,bi,bj)*recip_drC(1) |
|
./model/src/solve_for_pressure.F |
125 |
SOLVE_FOR_PRESSURE |
cg2d_x(i,j,bi,bj) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
164 |
SOLVE_FOR_PRESSURE |
& - tmpFac*Bo_surf(i,j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
103 |
CD_CODE_SCHEME |
& ab15*( etaN(i,j,bi,bj)*Bo_surf(i,j,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
104 |
CD_CODE_SCHEME |
& +ab05*(etaNm1(i,j,bi,bj)*Bo_surf(i,j,bi,bj) ) |
|
./pkg/cd_code/cd_code_scheme.F |
106 |
CD_CODE_SCHEME |
pf(i,j) = Bo_surf(i,j,bi,bj) |