_RL lenA2, lenAz2
lenA2=(2*rA(i,j,bi,bj)/
Asmag=smagfac*lenA2
AlinMax=vg2Max*lenA2
AlinMin=vg2Min*lenA2