File |
Line number |
Procedure |
Code |
./pkg/mom_common/mom_u_sidedrag.F |
58 |
MOM_U_SIDEDRAG |
_RL Ahtmp, A4tmp |
./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_u_sidedrag.F |
97 |
MOM_U_SIDEDRAG |
& -A4tmp*del2u(i,j) |
./pkg/mom_common/mom_v_sidedrag.F |
58 |
MOM_V_SIDEDRAG |
_RL Ahtmp,A4tmp |
./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/mom_common/mom_v_sidedrag.F |
94 |
MOM_V_SIDEDRAG |
& -A4tmp*del2v(i,j)*cosFacV(j,bi,bj) |