| 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 |
189 |
DIAGS_PHI_RLOW |
& + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/seaice/dynsolver.F |
170 |
DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
209 |
SEAICE_DYNSOLVER |
phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./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 |
72 |
POST_CG3D |
& + locGamma*Bo_surf(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
132 |
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 |
171 |
SOLVE_FOR_PRESSURE |
& - tmpFac*Bo_surf(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
353 |
SOLVE_FOR_PRESSURE |
& + (oneRL - implicSurfPress)* Bo_surf(i,j,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
128 |
ATM_PHYS_DYN2PHYS |
& - Bo_surf(1:sNx,1:sNy,bi,bj) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
157 |
ATM_PHYS_DYN2PHYS |
& - Bo_surf(1:sNx,1:sNy,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) |