Symbol Description Uses
viscAh_W Horizontal harmonic viscosity for vertical momentum 19



File Line number Procedure Code
./model/src/calc_gw.F 368 CALC_GW
     &       - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL
./model/src/calc_gw.F 386 CALC_GW
     &       - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL
./model/src/calc_gw.F 464 CALC_GW
     I               viscAh_W, viscA4_W,
./model/src/calc_gw.F 695 CALC_GW
        CALL DIAGNOSTICS_FILL(viscAh_W,'VISCAHW ',0,Nr,1,bi,bj,myThid)
./pkg/mom_common/MOM_VISC.h 62 NO PROCEDURE
     &                  viscAh_W, viscA4_W
./pkg/mom_common/MOM_VISC.h 63 NO PROCEDURE
      _RL  viscAh_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
./pkg/mom_common/mom_calc_visc.F 547 MOM_CALC_VISC
            viscAh_W(i,j,k+1,bi,bj) = halfRL*viscAh_D(i,j)
./pkg/mom_common/mom_calc_visc.F 559 MOM_CALC_VISC
            viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_D(i,j)
./pkg/mom_common/mom_calc_visc.F 567 MOM_CALC_VISC
            viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_W(i,j,k,bi,bj)
./pkg/mom_common/mom_init_fixed.F 70 MOM_INIT_FIXED
            viscAh_W(i,j,k,bi,bj) = viscAhW
./pkg/mom_common/mom_w_sidedrag.F 103 MOM_W_SIDEDRAG
     &         *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 117 MOM_W_SIDEDRAG
     &         *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 14 MOM_W_SIDEDRAG
     I        viscAh_W, viscA4_W,
./pkg/mom_common/mom_w_sidedrag.F 47 MOM_W_SIDEDRAG
      _RL  viscAh_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
./pkg/mom_common/mom_w_sidedrag.F 83 MOM_W_SIDEDRAG
     &         *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 93 MOM_W_SIDEDRAG
     &         *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj)