| 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 |
855 |
GAD_ADVECTION |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
884 |
GAD_ADVECTION |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_advection.F |
940 |
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_implicit_r.F |
132 |
GAD_IMPLICIT_R |
& *deepFac2F( k )*rhoFacF( k ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
144 |
GAD_IMPLICIT_R |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
199 |
GAD_IMPLICIT_R |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
314 |
GAD_IMPLICIT_R |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
532 |
GAD_SOM_ADVECT |
& *deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
544 |
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_implicit_r.F |
100 |
MOM_U_IMPLICIT_R |
& *deepFac2F( k )*rhoFacF( k ) |
|
./pkg/mom_common/mom_u_implicit_r.F |
113 |
MOM_U_IMPLICIT_R |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./pkg/mom_common/mom_u_implicit_r.F |
153 |
MOM_U_IMPLICIT_R |
& )*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_implicit_r.F |
298 |
MOM_U_IMPLICIT_R |
vf(i,j) = -rAw(i,j,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_implicit_r.F |
100 |
MOM_V_IMPLICIT_R |
& *deepFac2F( k )*rhoFacF( k ) |
|
./pkg/mom_common/mom_v_implicit_r.F |
113 |
MOM_V_IMPLICIT_R |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./pkg/mom_common/mom_v_implicit_r.F |
153 |
MOM_V_IMPLICIT_R |
& )*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_v_implicit_r.F |
298 |
MOM_V_IMPLICIT_R |
vf(i,j) = -rAs(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) |
|
./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) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
71 |
MOM_VI_U_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
78 |
MOM_VI_U_VERTSHEAR |
& )*mask_Kp1*deepFac2F(Kp1)*rhoFacF(Kp1) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
85 |
MOM_VI_U_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
91 |
MOM_VI_U_VERTSHEAR |
& )*mask_Kp1*deepFac2F(Kp1)*rhoFacF(Kp1) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
71 |
MOM_VI_V_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
78 |
MOM_VI_V_VERTSHEAR |
& )*mask_Kp1*deepFac2F(Kp1)*rhoFacF(Kp1) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
85 |
MOM_VI_V_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
91 |
MOM_VI_V_VERTSHEAR |
& )*mask_Kp1*deepFac2F(Kp1)*rhoFacF(Kp1) |
|
./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) |
|
./pkg/monitor/mon_calc_advcfl.F |
108 |
MON_CALC_ADVCFL_TILE |
& *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/impldiff.F |
144 |
IMPLDIFF |
& *deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
162 |
IMPLDIFF |
& *deepFac2F(k+1)*rhoFacF(k+1) |
|
./model/src/impldiff.F |
338 |
IMPLDIFF |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
354 |
IMPLDIFF |
& -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/impldiff.F |
370 |
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 |
219 |
INI_CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTFreeSurf |
|
./model/src/ini_cg3d.F |
231 |
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 |
132 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/pre_cg3d.F |
146 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/pre_cg3d.F |
152 |
PRE_CG3D |
surfFac = freeSurfFac*deepFac2F(1) |
|
./model/src/pre_cg3d.F |
161 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom |
|
./model/src/pre_cg3d.F |
193 |
PRE_CG3D |
wFacKp = implicDiv2DFlow*deepFac2F(kp1)*rhoFacF(kp1) |
|
./model/src/pre_cg3d.F |
211 |
PRE_CG3D |
wFacKm = implicDiv2DFlow*deepFac2F( k )*rhoFacF( k ) |
|
./model/src/pre_cg3d.F |
212 |
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 |
196 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
201 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
217 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
227 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/update_cg2d.F |
141 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |