Alth2=sqrt(viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv)*L3
Alth2=0. _d 0
Alth2=(viscC2leith*grdVrt+(viscC2leithD*grdDiv))*L3
Alin=viscAhD+vg2*L2+Alth2
Alin=viscAhZ+vg2*L2+Alth2
_RL Alin,AlinMin,AlinMax,Alth2,Alth4,grdVrt,grdDiv