Symbol Description Uses
viscA4_D 30



File Line number Procedure Code
./pkg/mom_common/mom_calc_visc.F 16 MOM_CALC_VISC
     O        viscAh_Z,viscAh_D,viscA4_Z,viscA4_D,
./pkg/mom_common/mom_calc_visc.F 426 MOM_CALC_VISC
         viscA4_D(i,j)=MAX(viscA4_DMin(i,j),Alin)
./pkg/mom_common/mom_calc_visc.F 428 MOM_CALC_VISC
         viscA4_D(i,j)=MIN(viscA4_DMax(i,j),viscA4_D(i,j))
./pkg/mom_common/mom_calc_visc.F 543 MOM_CALC_VISC
            viscA4_W(i,j,k+1,bi,bj) = halfRL*viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F 555 MOM_CALC_VISC
            viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F 565 MOM_CALC_VISC
     &                                      + halfRL*viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F 589 MOM_CALC_VISC
       CALL DIAGNOSTICS_FILL(viscA4_D,'VISCA4D ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 95 MOM_CALC_VISC
      _RL viscA4_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_fluxform/mom_fluxform.F 147 MOM_FLUXFORM
      _RL viscA4_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_fluxform/mom_fluxform.F 392 MOM_FLUXFORM
         viscA4_D(i,j) = viscA4D
./pkg/mom_fluxform/mom_fluxform.F 398 MOM_FLUXFORM
     O           viscAh_Z, viscAh_D, viscA4_Z, viscA4_D,
./pkg/mom_fluxform/mom_fluxform.F 519 MOM_FLUXFORM
     I                        viscAh_D,viscA4_D,myThid )
./pkg/mom_fluxform/mom_fluxform.F 749 MOM_FLUXFORM
     I                        viscAh_D,viscA4_D,myThid )
./pkg/mom_fluxform/mom_u_xviscflux.F 14 MOM_U_XVISCFLUX
     I        viscAh_D,viscA4_D,
./pkg/mom_fluxform/mom_u_xviscflux.F 41 MOM_U_XVISCFLUX
      _RL viscA4_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_fluxform/mom_u_xviscflux.F 61 MOM_U_XVISCFLUX
     &       +viscA4_D(i,j)*(del2u(i+1,j)-del2u(i,j))
./pkg/mom_fluxform/mom_v_yviscflux.F 14 MOM_V_YVISCFLUX
     I        viscAh_D,viscA4_D,
./pkg/mom_fluxform/mom_v_yviscflux.F 41 MOM_V_YVISCFLUX
      _RL viscA4_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_fluxform/mom_v_yviscflux.F 63 MOM_V_YVISCFLUX
     &       +viscA4_D(i,j)*(del2v(i,j+1)-del2v(i,j))
./pkg/mom_vecinv/mom_vecinv.F 120 MOM_VECINV
      _RL viscA4_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_vecinv/mom_vecinv.F 313 MOM_VECINV
         viscA4_D(i,j) = viscA4D
./pkg/mom_vecinv/mom_vecinv.F 320 MOM_VECINV
     O            viscAh_Z, viscAh_D, viscA4_Z, viscA4_D,
./pkg/mom_vecinv/mom_vecinv.F 342 MOM_VECINV
     I            viscAh_Z, viscAh_D, viscA4_Z, viscA4_D,
./pkg/mom_vecinv/mom_vecinv.F 350 MOM_VECINV
     I            viscAh_Z, viscAh_D, viscA4_Z, viscA4_D,
./pkg/mom_vecinv/mom_vi_hdissip.F 148 MOM_VI_HDISSIP
          Dij=Dij*viscA4_D(i,j)
./pkg/mom_vecinv/mom_vi_hdissip.F 149 MOM_VI_HDISSIP
          Dim=Dim*viscA4_D(i,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F 150 MOM_VI_HDISSIP
          Dmj=Dmj*viscA4_D(i-1,j)
./pkg/mom_vecinv/mom_vi_hdissip.F 35 MOM_VI_HDISSIP
      _RL viscA4_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/mom_vecinv/mom_vi_hdissip.F 9 MOM_VI_HDISSIP
     I        viscAh_Z, viscAh_D, viscA4_Z, viscA4_D,