Symbol Description Uses
KappaM (local) viscosity parameter (eq.10) 8



File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 411 GGL90_CALC
         KappaM = GGL90ck*GGL90mixingLength(i,j,k)*SQRTTKE(i,j,k)
./pkg/ggl90/ggl90_calc.F 412 GGL90_CALC
         GGL90visctmp(i,j,k) = MAX(KappaM,diffKrNrT(k))
./pkg/ggl90/ggl90_calc.F 416 GGL90_CALC
         KappaM = MAX(KappaM,viscArNr(k)) * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 417 GGL90_CALC
         KappaH = KappaM/TKEPrandtlNumber(i,j,k)
./pkg/ggl90/ggl90_calc.F 418 GGL90_CALC
         KappaE(i,j,k) = GGL90alpha * KappaM * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 427 GGL90_CALC
     &        + KappaM*verticalShear
./pkg/ggl90/ggl90_calc.F 81 GGL90_CALC
      _RL     KappaM, KappaH