Symbol Description Uses
viscAr Eddy viscosity coeff. for mixing of 35



File Line number Procedure Code
./pkg/my82/my82_calc_visc.F 43 MY82_CALC_VISC
     &         KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) *
./pkg/my82/my82_calc_visc.F 51 MY82_CALC_VISC
     &         KappaRV(i,j,k) - viscAr + _maskS(i,j,k,bi,bj) *
./pkg/my82/my82_init.F 54 MY82_INIT
           MYviscAr (i,j,k,bi,bj) = viscAr
./pkg/my82/my82_calc.F 169 MY82_CALC
         MYviscAr(I,J,K,bi,bj) = MAX(MYviscAr(I,J,K,bi,bj),viscAr)
./model/src/calc_gw.F 272 CALC_GW
     &    -viscAr*recip_drF(K) 
./model/src/config_summary.F 136 CONFIG_SUMMARY
      CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',
./model/src/ini_parms.F 166 INI_PARMS
     & viscAr, diffKrT, diffKrS, diffKrNrT, diffKrNrS, hFacMinDr,
./model/src/ini_parms.F 327 INI_PARMS
      viscAr   = UNSET_RL
./model/src/ini_parms.F 497 INI_PARMS
      IF ( viscAr .NE. UNSET_RL ) rCoordInputData = .TRUE.
./model/src/ini_parms.F 498 INI_PARMS
      IF ( viscAr .EQ. UNSET_RL )          viscAr = viscAz
./model/src/ini_parms.F 499 INI_PARMS
      IF ( viscAr .EQ. UNSET_RL )          viscAr = viscAp
./model/src/ini_parms.F 500 INI_PARMS
      IF ( viscAr .EQ. UNSET_RL )          viscAr = viscArDefault
./model/inc/PARAMS.h 584 NO PROCEDURE
     & viscC4leith, viscC4leithD, viscAr, viscAstrain, viscAtension,
./model/inc/PARAMS.h 652 NO PROCEDURE
      _RL viscAr
./pkg/kpp/kpp_calc.F 777 KPP_CALC_DUMMY
               KPPviscAz (i,j,k,bi,bj) = viscAr
./pkg/kpp/kpp_routines.F 212 KPPMIX
               diffus(i,k,1) = max ( blmc(i,k,1), viscAr  )
./pkg/kpp/kpp_routines.F 788 RI_IWMIX
               diffus(i,ki,1) = viscAr + fcon * difmcon + fRi * difm0
./pkg/kpp/kpp_routines.F 792 RI_IWMIX
               diffus(i,ki,1) = viscAr
./pkg/kpp/kpp_routines.F 797 RI_IWMIX
            diffus(i,ki,1) = viscAr
./pkg/kpp/kpp_init.F 140 KPP_INIT
                     KPPviscAz  (i,j,k,bi,bj) = viscAr
./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 49 KPP_CALC_VISC
     &         KappaRV(i,j,k) - viscAr + _maskS(i,j,k,bi,bj) *
./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 51 GGL90_CALC_VISC
     &     KappaRV(i,j,k) - viscAr + _maskS(i,j,k,bi,bj) *
./pkg/ggl90/ggl90_calc.F 367 GGL90_CALC
         KappaM = MAX(KappaM,viscAr)
./pkg/pp81/pp81_readparms.F 106 PP81_READPARMS
       RiLimit=(((PPnu0+viscAr)/PPviscMax)**(1./REAL(PPnRi))-1.)
./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 53 PP81_CALC_VISC
     &         KappaRV(i,j,k) - viscAr + _maskS(i,j,k,bi,bj) *
./pkg/pp81/pp81_calc.F 85 PP81_CALC
         PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscAr)
./pkg/pp81/pp81_init.F 42 PP81_INIT
           PPviscAr (i,j,k,bi,bj) = viscAr
./model/src/calc_viscosity.F 50 CALC_VISCOSITY
        KappaRU(i,j,k) = viscAr
./model/src/calc_viscosity.F 56 CALC_VISCOSITY
        KappaRV(i,j,k) = viscAr