Symbol Description Uses
A4tmp 14



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)