Symbol Description Uses
KappaRU Total vertical viscosity for zonal flow. 49



File Line number Procedure Code
./model/src/dynamics.F 421 DYNAMICS
     I         0, KappaRU,recip_HFacW,
./model/src/dynamics.F 451 DYNAMICS
     I         0, KappaRU,recip_HFacW,
./pkg/kpp/kpp_calc_visc.F 27 KPP_CALC_VISC
      _RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/kpp/kpp_calc_visc.F 40 KPP_CALC_VISC
        KappaRU(i,j,k) = max ( KappaRU(i,j,k),
./pkg/kpp/kpp_calc_visc.F 41 KPP_CALC_VISC
     &         KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) *
./pkg/kpp/kpp_calc_visc.F 6 KPP_CALC_VISC
     U        KappaRU,KappaRV,
./pkg/ggl90/ggl90_calc_visc.F 29 GGL90_CALC_VISC
      _RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/ggl90/ggl90_calc_visc.F 42 GGL90_CALC_VISC
        KappaRU(i,j,k) = max ( KappaRU(i,j,k),
./pkg/ggl90/ggl90_calc_visc.F 43 GGL90_CALC_VISC
     &     KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) *
./pkg/ggl90/ggl90_calc_visc.F 7 GGL90_CALC_VISC
     U        KappaRU,KappaRV,
./pkg/mom_fluxform/mom_fluxform.F 366 MOM_FLUXFORM
     & CALL MOM_U_RVISCFLUX(bi,bj,k,uVel,KappaRU,vrF,myThid)
./pkg/mom_fluxform/mom_fluxform.F 36 MOM_FLUXFORM
     I        dPhihydX,dPhiHydY,KappaRU,KappaRV,
./pkg/mom_fluxform/mom_fluxform.F 427 MOM_FLUXFORM
       CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid)
./pkg/mom_fluxform/mom_fluxform.F 73 MOM_FLUXFORM
      _RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/mom_vecinv/mom_vecinv.F 259 MOM_VECINV
       CALL MOM_U_RVISCFLUX(bi,bj,k,uVel,KappaRU,vrF,myThid)
./pkg/mom_vecinv/mom_vecinv.F 294 MOM_VECINV
       CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid)
./pkg/mom_vecinv/mom_vecinv.F 54 MOM_VECINV
      _RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/mom_vecinv/mom_vecinv.F 8 MOM_VECINV
     I        dPhiHydX,dPhiHydY,KappaRU,KappaRV,
./pkg/pp81/pp81_calc_visc.F 31 PP81_CALC_VISC
      _RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/pp81/pp81_calc_visc.F 44 PP81_CALC_VISC
        KappaRU(i,j,k) = max ( KappaRU(i,j,k),
./pkg/pp81/pp81_calc_visc.F 45 PP81_CALC_VISC
     &         KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) *
./pkg/pp81/pp81_calc_visc.F 7 PP81_CALC_VISC
     U        KappaRU,KappaRV,
./model/src/calc_viscosity.F 12 CALC_VISCOSITY
     O        KappaRU,KappaRV,
./model/src/calc_viscosity.F 38 CALC_VISCOSITY
      _RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./model/src/calc_viscosity.F 50 CALC_VISCOSITY
        KappaRU(i,j,k) = viscAr
./model/src/calc_viscosity.F 63 CALC_VISCOSITY
     O        KappaRU,KappaRV,
./model/src/calc_viscosity.F 70 CALC_VISCOSITY
     O        KappaRU,KappaRV,
./model/src/calc_viscosity.F 77 CALC_VISCOSITY
     O        KappaRU,KappaRV,
./model/src/calc_viscosity.F 84 CALC_VISCOSITY
     O        KappaRU,KappaRV,