Symbol Description Uses
viscA4Re_max 7



File Line number Procedure Code
./pkg/mom_common/mom_calc_visc.F 116 MOM_CALC_VISC
      _RL viscAhRe_max, viscA4Re_max
./pkg/mom_common/mom_calc_visc.F 180 MOM_CALC_VISC
        viscA4Re_max=0.125 _d 0*SQRT(2. _d 0)/viscA4ReMax
./pkg/mom_common/mom_calc_visc.F 182 MOM_CALC_VISC
        viscA4Re_max=0. _d 0
./pkg/mom_common/mom_calc_visc.F 342 MOM_CALC_VISC
         IF ( viscA4Re_max.GT.0. .AND. KE(i,j).GT.0. ) THEN
./pkg/mom_common/mom_calc_visc.F 343 MOM_CALC_VISC
           U4scl=SQRT(KE(i,j))*L3*viscA4Re_max
./pkg/mom_common/mom_calc_visc.F 445 MOM_CALC_VISC
         IF ( viscAhRe_max.GT.0. .OR. viscA4Re_max.GT.0. ) THEN
./pkg/mom_common/mom_calc_visc.F 450 MOM_CALC_VISC
             U4scl= SQRT(keZpt)*L3*viscA4Re_max