| 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 |
122 |
MON_KE |
tmpVal = 0.5 _d 0*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/diags_phi_rlow.F |
149 |
DIAGS_PHI_RLOW |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/seaice/dynsolver.F |
163 |
DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
176 |
SEAICE_DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./model/src/ini_cg3d.F |
246 |
INI_CG3D |
& *Bo_surf(i,j,bi,bj)*recip_drC(1) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
119 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
121 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 1. _d 0/rhoLoc |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
125 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
143 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(ksurfC(I,J,bi,bj)) |
|
./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 |
146 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
160 |
INI_LINEAR_PHISURF |
_EXCH_XY_RL(Bo_surf, myThid) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
169 |
INI_LINEAR_PHISURF |
CALL WRITE_FLD_XY_RL( 'Bo_surf',' ',Bo_surf,0,myThid) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
58 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
85 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = gBaro |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
99 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = recip_rhoConst |
|
./model/src/ini_linear_phisurf.F |
147 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = gBaro |
|
./model/src/ini_linear_phisurf.F |
161 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = recip_rhoConst |
|
./model/src/ini_linear_phisurf.F |
180 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
182 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 1. _d 0/rhoLoc |
|
./model/src/ini_linear_phisurf.F |
186 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
204 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = dPIdp*tRef(ksurfC(I,J,bi,bj)) |
|
./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 |
207 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
221 |
INI_LINEAR_PHISURF |
_EXCH_XY_RL(Bo_surf, myThid) |
|
./model/src/ini_linear_phisurf.F |
228 |
INI_LINEAR_PHISURF |
CALL WRITE_FLD_XY_RL( 'Bo_surf',' ',Bo_surf,0,myThid) |
|
./model/src/ini_linear_phisurf.F |
69 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 0. _d 0 |
|
./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 |
103 |
PRE_CG3D |
& *Bo_surf(i,j,bi,bj)*recip_drC(1) |
|
./model/src/solve_for_pressure.F |
128 |
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 |
168 |
SOLVE_FOR_PRESSURE |
& - tmpFac*Bo_surf(i,j,bi,bj) |
|
./pkg/cd_code/cd_code_scheme.F |
101 |
CD_CODE_SCHEME |
pf(i,j) = Bo_surf(i,j,bi,bj) |
|
./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) ) |