| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_init_fixed.F |
40 |
MOM_INIT_FIXED |
IF ( deltaTmom.NE.0. ) recip_dt = 1. _d 0/deltaTmom |
|
./pkg/mom_common/mom_u_implicit_r.F |
142 |
MOM_U_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j) |
|
./pkg/mom_common/mom_u_implicit_r.F |
163 |
MOM_U_IMPLICIT_R |
rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j) |
|
./pkg/mom_common/mom_u_implicit_r.F |
88 |
MOM_U_IMPLICIT_R |
& b5d(i,j,k) = -deltaTmom |
|
./pkg/mom_common/mom_u_implicit_r.F |
99 |
MOM_U_IMPLICIT_R |
& d5d(i,j,k) = -deltaTmom |
|
./pkg/mom_common/mom_u_sidedrag.F |
74 |
MOM_U_SIDEDRAG |
Ahtmp=MIN(viscAh+viscAhGrid*rAw(i,j,bi,bj)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
76 |
MOM_U_SIDEDRAG |
A4tmp=MIN(viscA4+viscA4Grid*(rAw(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
78 |
MOM_U_SIDEDRAG |
A4tmp=MIN(A4tmp,viscA4GridMax*(rAw(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_u_sidedrag.F |
79 |
MOM_U_SIDEDRAG |
A4tmp=MAX(A4tmp,viscA4GridMin*(rAw(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_v_sidedrag.F |
74 |
MOM_V_SIDEDRAG |
Ahtmp=MIN(viscAh+viscAhGrid*rAs(i,j,bi,bj)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
76 |
MOM_V_SIDEDRAG |
A4tmp=MIN(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
79 |
MOM_V_SIDEDRAG |
A4tmp=MIN(A4tmp,viscA4GridMax*(rAs(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_v_sidedrag.F |
81 |
MOM_V_SIDEDRAG |
A4tmp=MAX(A4tmp,viscA4GridMin*(rAs(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/monitor/monitor.F |
153 |
MONITOR |
dT = MAX(dTtracerLev(1),deltaTmom) |
|
./model/src/correction_step.F |
71 |
CORRECTION_STEP |
& -deltaTmom*psFac*phiSurfX(i,j) |
|
./model/src/correction_step.F |
73 |
CORRECTION_STEP |
& -deltaTmom*nhFac*_recip_dxC(i,j,bi,bj) |
|
./model/src/correction_step.F |
87 |
CORRECTION_STEP |
& -deltaTmom*psFac*phiSurfY(i,j) |
|
./model/src/correction_step.F |
89 |
CORRECTION_STEP |
& -deltaTmom*nhFac*_recip_dyC(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
141 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
149 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
269 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
275 |
SHAP_FILT_UV_S1 |
& -0.5*tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./model/src/ini_cg2d.F |
169 |
INI_CG2D |
& * globalArea / deltaTmom |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
201 |
SHAP_FILT_UV_S2C |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s2c.F |
208 |
SHAP_FILT_UV_S2C |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
139 |
SHAP_FILT_UV_S4 |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
146 |
SHAP_FILT_UV_S4 |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
271 |
SHAP_FILT_UV_S4 |
& -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
277 |
SHAP_FILT_UV_S4 |
& -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau |
|
./model/src/pre_cg3d.F |
152 |
PRE_CG3D |
& *_rA(i,j,bi,bj)*deepFac2F(ks)/deltaTmom |
|
./model/src/pre_cg3d.F |
195 |
PRE_CG3D |
& )*_rA(i,j,bi,bj)/deltaTmom |
|
./model/src/pre_cg3d.F |
214 |
PRE_CG3D |
& )*_rA(i,j,bi,bj)/deltaTmom |
|
./model/src/timestep_wvel.F |
103 |
TIMESTEP_WVEL |
& + deltaTmom*tmpFac*gWtmp(i,j) |
|
./pkg/cd_code/cd_code_scheme.F |
147 |
CD_CODE_SCHEME |
vVelD(i,j,k,bi,bj) = vVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j) |
|
./pkg/cd_code/cd_code_scheme.F |
209 |
CD_CODE_SCHEME |
uVelD(i,j,k,bi,bj) = uVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
180 |
DIAGNOSTICS_CALC_PHIVEL |
& * globalArea / deltaTmom |