| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
576 |
GMREDI_CALC_TENSOR |
& * _hFacS(i,j,k,bi,bj) |
|
./model/src/ini_r_star.F |
71 |
INI_R_STAR |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
257 |
MOM_FLUXFORM |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
89 |
MOM_V_DEL2V |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
90 |
MOM_V_DEL2V |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./model/src/ini_cg2d.F |
102 |
INI_CG2D |
& *_hFacS(I,J,K,bi,bj) |
|
./model/src/ini_cg3d.F |
122 |
INI_CG3D |
& *_hFacS(I,J,K,bi,bj) |
|
./model/src/integr_continuity.F |
87 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
46 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
47 |
MOM_VI_HFACZ_DISS |
& + _hFacS(i-1,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
66 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
67 |
MOM_VI_HFACZ_DISS |
& , _hFacS(i-1,j,k,bi,bj) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
45 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
46 |
MOM_VI_MASK_VORT3 |
hFacZOpen=min(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./model/src/update_cg2d.F |
87 |
UPDATE_CG2D |
& *_hFacS(I,J,K,bi,bj) |
|
./model/src/update_r_star.F |
77 |
UPDATE_R_STAR |
& / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) ) |
|
./model/src/update_r_star.F |
84 |
UPDATE_R_STAR |
& recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj) |
|
./model/src/diags_rho.F |
79 |
DIAGS_RHO |
tmpFld(i,j) = vVel(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_gw.F |
162 |
CALC_GW |
& drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
163 |
CALC_GW |
& + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
354 |
CALC_GW |
& drF(k-1)*_hFacS(i,j,k-1,bi,bj)*vVel(i,j,k-1,bi,bj) |
|
./model/src/calc_gw.F |
355 |
CALC_GW |
& +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj) |
|
./model/src/solve_for_pressure.F |
173 |
SOLVE_FOR_PRESSURE |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/solve_for_pressure.F |
407 |
SOLVE_FOR_PRESSURE |
& +drF(K)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1) |
|
./model/src/solve_for_pressure.F |
408 |
SOLVE_FOR_PRESSURE |
& -drF(K)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/solve_for_pressure.F |
423 |
SOLVE_FOR_PRESSURE |
& +drF(K)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1) |
|
./model/src/solve_for_pressure.F |
424 |
SOLVE_FOR_PRESSURE |
& -drF(K)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/integrate_for_w.F |
57 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_r_star.F |
92 |
CALC_R_STAR |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./model/src/timestep.F |
298 |
TIMESTEP |
& *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj) |
|
./model/src/calc_common_factors.F |
81 |
CALC_COMMON_FACTORS |
yA(i,j) = _dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
219 |
GGL90_CALC |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
117 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
118 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - _hFacS(i+1,j,k,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
76 |
MOM_V_SIDEDRAG |
hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j) |
|
./pkg/mom_common/mom_v_sidedrag.F |
77 |
MOM_V_SIDEDRAG |
hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j) |
|
./pkg/mom_common/mom_calc_hfacz.F |
124 |
MOM_CALC_HFACZ |
& smoothMin_R4(_hFacS(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
126 |
MOM_CALC_HFACZ |
& MIN(_hFacS(i ,j ,k,bi,bj), |
|
./pkg/mom_common/mom_calc_hfacz.F |
128 |
MOM_CALC_HFACZ |
& _hFacS(i-1,j ,k,bi,bj)) |
|
./pkg/mom_common/mom_calc_hfacz.F |
203 |
MOM_CALC_HFACZ |
& + ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
204 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
221 |
MOM_CALC_HFACZ |
& , _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
222 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
232 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
233 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
269 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
275 |
MOM_CALC_HFACZ |
& +_hFacS( i ,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
281 |
MOM_CALC_HFACZ |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
294 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
299 |
MOM_CALC_HFACZ |
& ( _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
306 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
310 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
324 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
329 |
MOM_CALC_HFACZ |
& ( _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
336 |
MOM_CALC_HFACZ |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
340 |
MOM_CALC_HFACZ |
& +_hFacS( i ,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_hfacz.F |
353 |
MOM_CALC_HFACZ |
hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen) |
|
./pkg/mom_common/mom_calc_hfacz.F |
360 |
MOM_CALC_HFACZ |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hfacz.F |
364 |
MOM_CALC_HFACZ |
& +_hFacS(i-1,j,k,bi,bj) ) |
|
./pkg/mom_common/mom_init_fixed.F |
45 |
MOM_INIT_FIXED |
h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
104 |
MOM_CALC_KE |
& + ( vFld( i , j )*vFld( i , j )*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
105 |
MOM_CALC_KE |
& +vFld( i ,j+1)*vFld( i ,j+1)*_hFacS(i,j+1,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_ke.F |
123 |
MOM_CALC_KE |
& *_hFacS(i, j, k,bi,bj)*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
125 |
MOM_CALC_KE |
& *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj) |
|
./pkg/monitor/mon_ke.F |
71 |
MON_KE |
& *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
73 |
MON_KE |
& *dxG(i,j+1,bi,bj)*dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
125 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
126 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
188 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
203 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
218 |
MON_VORT3 |
& + _hFacS( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
233 |
MON_VORT3 |
& + _hFacS(i-1,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
200 |
COST_CURMTR |
if (_hFacS(i,j,k,bi,bj) .eq. 0.) then |
|
./pkg/ecco/cost_atlantic.F |
162 |
COST_ATLANTIC |
& * drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
206 |
COST_ATLANTIC |
& * drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
203 |
COST_TRANS_MERID |
& * drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
208 |
COST_TRANS_MERID |
& * drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
213 |
COST_TRANS_MERID |
& * drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
44 |
MOM_VI_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
45 |
MOM_VI_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
46 |
MOM_VI_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
47 |
MOM_VI_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
48 |
MOM_VI_CORIOLIS |
& / MAX( epsil,(_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
49 |
MOM_VI_CORIOLIS |
& +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) ) |
|
./model/inc/HFACS_MACROS.h |
36 |
NO PROCEDURE |
# define _hFacS(i,j,k,bi,bj) hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
129 |
MOM_VI_U_CORIOLIS_C4 |
& vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
130 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
132 |
MOM_VI_U_CORIOLIS_C4 |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
133 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
152 |
MOM_VI_U_CORIOLIS_C4 |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
153 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
154 |
MOM_VI_U_CORIOLIS_C4 |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
155 |
MOM_VI_U_CORIOLIS_C4 |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
100 |
MOM_VI_U_CORIOLIS |
& +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
45 |
MOM_VI_U_CORIOLIS |
& (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
46 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
47 |
MOM_VI_U_CORIOLIS |
& +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
48 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
61 |
MOM_VI_U_CORIOLIS |
& vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
62 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
64 |
MOM_VI_U_CORIOLIS |
& vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
65 |
MOM_VI_U_CORIOLIS |
& +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
99 |
MOM_VI_U_CORIOLIS |
& / MAX( epsil,(_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
168 |
SHAP_FILT_TRACER_S2 |
& *_hFacS(i,j,k,bi,bj) |