Symbol Description Uses
viscA4_W Horizontal biharmonic viscosity for vertical momentum 19



File Line number Procedure Code
./model/src/calc_gw.F 372 CALC_GW
     &       + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL
./model/src/calc_gw.F 392 CALC_GW
     &       + (viscA4_W(i,j,k,bi,bj)+viscA4_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 696 CALC_GW
        CALL DIAGNOSTICS_FILL(viscA4_W,'VISCA4W ',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 64 NO PROCEDURE
      _RL  viscA4_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
./pkg/mom_common/mom_calc_visc.F 548 MOM_CALC_VISC
            viscA4_W(i,j,k+1,bi,bj) = halfRL*viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F 560 MOM_CALC_VISC
            viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F 569 MOM_CALC_VISC
            viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_W(i,j,k,bi,bj)
./pkg/mom_common/mom_init_fixed.F 71 MOM_INIT_FIXED
            viscA4_W(i,j,k,bi,bj) = viscA4W
./pkg/mom_common/mom_w_sidedrag.F 107 MOM_W_SIDEDRAG
     &           -viscA4_W(i,j,k,bi,bj)*del2w(i,j)
./pkg/mom_common/mom_w_sidedrag.F 121 MOM_W_SIDEDRAG
     &           -viscA4_W(i,j,k,bi,bj)*del2w(i,j)
./pkg/mom_common/mom_w_sidedrag.F 14 MOM_W_SIDEDRAG
     I        viscAh_W, viscA4_W,
./pkg/mom_common/mom_w_sidedrag.F 48 MOM_W_SIDEDRAG
      _RL  viscA4_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
./pkg/mom_common/mom_w_sidedrag.F 85 MOM_W_SIDEDRAG
     &           -viscA4_W(i,j,k,bi,bj)*del2w(i,j)
./pkg/mom_common/mom_w_sidedrag.F 95 MOM_W_SIDEDRAG
     &           -viscA4_W(i,j,k,bi,bj)*del2w(i,j)