Symbol Description Uses
U4scl 8


File Line number Procedure Code
./pkg/mom_common/mom_calc_visc.F 103 MOM_CALC_VISC 
      _RL Uscl,U4scl
./pkg/mom_common/mom_calc_visc.F 339 MOM_CALC_VISC 
           U4scl=sqrt(KE(i,j))*L3*viscA4Re_max
./pkg/mom_common/mom_calc_visc.F 341 MOM_CALC_VISC 
           U4scl=0.
./pkg/mom_common/mom_calc_visc.F 414 MOM_CALC_VISC 
         viscA4_DMin(i,j)=max(viscA4GridMin*L4rdt,U4scl)
./pkg/mom_common/mom_calc_visc.F 467 MOM_CALC_VISC 
             U4scl= sqrt(keZpt)*L3*viscA4Re_max
./pkg/mom_common/mom_calc_visc.F 470 MOM_CALC_VISC 
             U4scl=0.
./pkg/mom_common/mom_calc_visc.F 474 MOM_CALC_VISC 
           U4scl=0.
./pkg/mom_common/mom_calc_visc.F 542 MOM_CALC_VISC 
         viscA4_ZMin(i,j)=max(viscA4GridMin*L4rdt,U4scl)