Symbol Description Uses
U4scl 8


File Line number Procedure Code
./pkg/mom_common/mom_calc_visc.F 118 MOM_CALC_VISC 
      _RL Uscl,U4scl
./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 379 MOM_CALC_VISC 
           U4scl=0.
./pkg/mom_common/mom_calc_visc.F 460 MOM_CALC_VISC 
         viscA4_DMin(i,j)=MAX(viscA4GridMin*L4rdt,U4scl)
./pkg/mom_common/mom_calc_visc.F 510 MOM_CALC_VISC 
             U4scl= SQRT(keZpt)*L3*viscA4Re_max
./pkg/mom_common/mom_calc_visc.F 513 MOM_CALC_VISC 
             U4scl=0.
./pkg/mom_common/mom_calc_visc.F 517 MOM_CALC_VISC 
           U4scl=0.
./pkg/mom_common/mom_calc_visc.F 592 MOM_CALC_VISC 
         viscA4_ZMin(i,j)=MAX(viscA4GridMin*L4rdt,U4scl)