Symbol Description Uses
U4scl 8


File Line number Procedure Code
./pkg/mom_common/mom_calc_visc.F 120 MOM_CALC_VISC 
      _RL Uscl,U4scl
./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 345 MOM_CALC_VISC 
           U4scl=0.
./pkg/mom_common/mom_calc_visc.F 430 MOM_CALC_VISC 
         viscA4_DMin(i,j)=MAX(viscA4GridMin*L4rdt,U4scl)
./pkg/mom_common/mom_calc_visc.F 450 MOM_CALC_VISC 
             U4scl= SQRT(keZpt)*L3*viscA4Re_max
./pkg/mom_common/mom_calc_visc.F 453 MOM_CALC_VISC 
             U4scl=0.
./pkg/mom_common/mom_calc_visc.F 457 MOM_CALC_VISC 
           U4scl=0.
./pkg/mom_common/mom_calc_visc.F 532 MOM_CALC_VISC 
         viscA4_ZMin(i,j)=MAX(viscA4GridMin*L4rdt,U4scl)