Symbol Description Uses
U4scl 8


File Line number Procedure Code
./pkg/mom_common/mom_calc_visc.F 119 MOM_CALC_VISC 
      _RL Uscl,U4scl
./pkg/mom_common/mom_calc_visc.F 338 MOM_CALC_VISC 
           U4scl=SQRT(KE(i,j))*L3*viscA4Re_max
./pkg/mom_common/mom_calc_visc.F 340 MOM_CALC_VISC 
           U4scl=0.
./pkg/mom_common/mom_calc_visc.F 425 MOM_CALC_VISC 
         viscA4_DMin(i,j)=MAX(viscA4GridMin*L4rdt,U4scl)
./pkg/mom_common/mom_calc_visc.F 445 MOM_CALC_VISC 
             U4scl= SQRT(keZpt)*L3*viscA4Re_max
./pkg/mom_common/mom_calc_visc.F 448 MOM_CALC_VISC 
             U4scl=0.
./pkg/mom_common/mom_calc_visc.F 452 MOM_CALC_VISC 
           U4scl=0.
./pkg/mom_common/mom_calc_visc.F 527 MOM_CALC_VISC 
         viscA4_ZMin(i,j)=MAX(viscA4GridMin*L4rdt,U4scl)