Symbol Description Uses
viscA4Re_max 7



File Line number Procedure Code
./pkg/mom_common/mom_calc_visc.F 115 MOM_CALC_VISC
      _RL viscAhRe_max, viscA4Re_max
./pkg/mom_common/mom_calc_visc.F 214 MOM_CALC_VISC
        viscA4Re_max=0.125 _d 0*SQRT(2. _d 0)/viscA4ReMax
./pkg/mom_common/mom_calc_visc.F 216 MOM_CALC_VISC
        viscA4Re_max=0. _d 0
./pkg/mom_common/mom_calc_visc.F 376 MOM_CALC_VISC
         IF ( viscA4Re_max.GT.0. .AND. KE(i,j).GT.0. ) THEN
./pkg/mom_common/mom_calc_visc.F 377 MOM_CALC_VISC
           U4scl=SQRT(KE(i,j))*L3*viscA4Re_max
./pkg/mom_common/mom_calc_visc.F 505 MOM_CALC_VISC
         IF ( viscAhRe_max.GT.0. .OR. viscA4Re_max.GT.0. ) THEN
./pkg/mom_common/mom_calc_visc.F 510 MOM_CALC_VISC
             U4scl= SQRT(keZpt)*L3*viscA4Re_max