& KappaRU(i,j,kLowF)*recDrC*viscFac
_RL recDrC
recDrC = recip_drF(k)
recDrC = recip_drC(kLowF)
& KappaRV(i,j,kLowF)*recDrC*viscFac