| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
316 |
NO PROCEDURE |
& deepFacF, deepFac2F, recip_deepFacF, recip_deepFac2F, |
|
./model/inc/GRID.h |
325 |
NO PROCEDURE |
_RL deepFac2F (Nr+1) |
|
./pkg/generic_advdiff/gad_advection.F |
845 |
GAD_ADVECTION |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
68 |
GAD_BIHARM_R |
tmpFac = recip_drC(kl)*deepFac2F(kl)*rhoFacF(kl) |
|
./pkg/generic_advdiff/gad_biharm_r.F |
92 |
GAD_BIHARM_R |
tmpFac = rkSign*recip_drC(k)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_diff_r.F |
64 |
GAD_DIFF_R |
& *_rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
526 |
GAD_SOM_ADVECT |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
538 |
GAD_SOM_ADVECT |
& *deepFac2F(k)*rhoFacF(k) |
|
./model/src/calc_adv_flow.F |
131 |
CALC_ADV_FLOW |
& *deepFac2F(k)*rhoFacF(k) |
|
./model/src/calc_adv_flow.F |
97 |
CALC_ADV_FLOW |
& * deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/calc_gw.F |
536 |
CALC_GW |
& ( wVel(i,j, k ,bi,bj)*deepFac2F( k )*rhoFacF( k ) |
|
./model/src/calc_gw.F |
537 |
CALC_GW |
& +wVel(i,j,kp1,bi,bj)*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/calc_gw.F |
549 |
CALC_GW |
rTrans = wVel(i,j,k,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_rviscflux.F |
62 |
MOM_U_RVISCFLUX |
& *rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_v_rviscflux.F |
62 |
MOM_V_RVISCFLUX |
& *rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
102 |
MOM_CALC_RTRANS |
& )*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
106 |
MOM_CALC_RTRANS |
& )*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
103 |
MOM_U_ADV_WU |
& )*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
104 |
MOM_V_ADV_WV |
& )*deepFac2F(k)*rhoFacF(k) |
|
./pkg/monitor/mon_ke.F |
114 |
MON_KE |
& *deepFac2F( k )*rhoFacF( k ) |
|
./pkg/monitor/mon_ke.F |
116 |
MON_KE |
& *deepFac2F(kp1)*rhoFacF(kp1) |
|
./pkg/monitor/mon_ke.F |
144 |
MON_KE |
& + tmpVal*rA(i,j,bi,bj)*deepFac2F(1) |
|
./pkg/monitor/mon_ke.F |
299 |
MON_KE |
& *maskInC(i,j,bi,bj)*deepFac2F(ks) |
|
./pkg/monitor/mon_ke.F |
300 |
MON_KE |
& *rA(i,j,bi,bj)*deepFac2F(ks)*rhoFacF(ks) |
|
./pkg/monitor/monitor.F |
98 |
MONITOR |
thickFacF(k) = drC(k)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/cg3d.F |
195 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d.F |
377 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d_ex0.F |
188 |
CG3D_EX0 |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d_ex0.F |
361 |
CG3D_EX0 |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/impldiff.F |
144 |
IMPLDIFF |
& *deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
162 |
IMPLDIFF |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/impldiff.F |
336 |
IMPLDIFF |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
352 |
IMPLDIFF |
& -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
368 |
IMPLDIFF |
& -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/ini_cg2d.F |
211 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/ini_cg3d.F |
150 |
INI_CG3D |
& *deepFac2F(k) |
|
./model/src/ini_cg3d.F |
222 |
INI_CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTfreesurf |
|
./pkg/smooth/smooth_impldiff.F |
69 |
SMOOTH_IMPLDIFF |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/smooth/smooth_impldiff.F |
82 |
SMOOTH_IMPLDIFF |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integr_continuity.F |
243 |
INTEGR_CONTINUITY |
& *deepFac2F(ks)*rhoFacF(ks) |
|
./model/src/integrate_for_w.F |
114 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
140 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/integrate_for_w.F |
190 |
INTEGRATE_FOR_W |
& ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/pre_cg3d.F |
113 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/pre_cg3d.F |
126 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/pre_cg3d.F |
142 |
PRE_CG3D |
tmpFac = freeSurfFac*deepFac2F(1) |
|
./model/src/pre_cg3d.F |
152 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks)/deltaTmom |
|
./model/src/pre_cg3d.F |
184 |
PRE_CG3D |
wFacKp = implicDiv2DFlow*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/pre_cg3d.F |
202 |
PRE_CG3D |
wFacKm = implicDiv2DFlow*deepFac2F( k )*rhoFacF( k ) |
|
./model/src/pre_cg3d.F |
203 |
PRE_CG3D |
wFacKp = implicDiv2DFlow*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/set_grid_factors.F |
59 |
SET_GRID_FACTORS |
deepFac2F(k)= 1. _d 0 |
|
./model/src/set_grid_factors.F |
72 |
SET_GRID_FACTORS |
deepFac2F(k) = deepFacF(k)*deepFacF(k) |
|
./model/src/set_grid_factors.F |
83 |
SET_GRID_FACTORS |
deepFac2F(k) = deepFacF(k)*deepFacF(k) |
|
./model/src/set_grid_factors.F |
93 |
SET_GRID_FACTORS |
recip_deepFac2F(k)= 1. _d 0/deepFac2F(k) |
|
./model/src/solve_for_pressure.F |
189 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
194 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
210 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
220 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/update_cg2d.F |
115 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |