Symbol Description Uses
KappaRV Total vertical viscosity for meridional flow. 49



File Line number Procedure Code
./model/src/dynamics.F 430 DYNAMICS
     I         0, KappaRV,recip_HFacS,
./model/src/dynamics.F 459 DYNAMICS
     I         0, KappaRV,recip_HFacS,
./pkg/kpp/kpp_calc_visc.F 28 KPP_CALC_VISC
      _RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/kpp/kpp_calc_visc.F 48 KPP_CALC_VISC
        KappaRV(i,j,k) = max ( KappaRV(i,j,k),
./pkg/kpp/kpp_calc_visc.F 49 KPP_CALC_VISC
     &         KappaRV(i,j,k) - viscAr + _maskS(i,j,k,bi,bj) *
./pkg/kpp/kpp_calc_visc.F 6 KPP_CALC_VISC
     U        KappaRU,KappaRV,
./pkg/ggl90/ggl90_calc_visc.F 30 GGL90_CALC_VISC
      _RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/ggl90/ggl90_calc_visc.F 50 GGL90_CALC_VISC
        KappaRV(i,j,k) = max ( KappaRV(i,j,k),
./pkg/ggl90/ggl90_calc_visc.F 51 GGL90_CALC_VISC
     &     KappaRV(i,j,k) - viscAr + _maskS(i,j,k,bi,bj) *
./pkg/ggl90/ggl90_calc_visc.F 7 GGL90_CALC_VISC
     U        KappaRU,KappaRV,
./pkg/mom_fluxform/mom_fluxform.F 36 MOM_FLUXFORM
     I        dPhihydX,dPhiHydY,KappaRU,KappaRV,
./pkg/mom_fluxform/mom_fluxform.F 527 MOM_FLUXFORM
     & CALL MOM_V_RVISCFLUX(bi,bj,k,vVel,KappaRV,vrf,myThid)
./pkg/mom_fluxform/mom_fluxform.F 588 MOM_FLUXFORM
       CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid)
./pkg/mom_fluxform/mom_fluxform.F 74 MOM_FLUXFORM
      _RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/mom_vecinv/mom_vecinv.F 319 MOM_VECINV
       CALL MOM_V_RVISCFLUX(bi,bj,k,vVel,KappaRV,vrf,myThid)
./pkg/mom_vecinv/mom_vecinv.F 353 MOM_VECINV
       CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid)
./pkg/mom_vecinv/mom_vecinv.F 55 MOM_VECINV
      _RL KappaRV(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 32 PP81_CALC_VISC
      _RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/pp81/pp81_calc_visc.F 52 PP81_CALC_VISC
        KappaRV(i,j,k) = max ( KappaRV(i,j,k),
./pkg/pp81/pp81_calc_visc.F 53 PP81_CALC_VISC
     &         KappaRV(i,j,k) - viscAr + _maskS(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 39 CALC_VISCOSITY
      _RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./model/src/calc_viscosity.F 56 CALC_VISCOSITY
        KappaRV(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,