_RL Uscl,U4scl
Uscl=SQRT(KE(i,j)*L2)*viscAhRe_max
Uscl=0.
viscAh_DMin(i,j)=MAX(viscAhGridMin*L2rdt,Uscl)
Uscl = SQRT(keZpt*L2)*viscAhRe_max
Uscl =0.
viscAh_ZMin(i,j)=MAX(viscAhGridMin*L2rdt,Uscl)