& addiffkr
_RL addiffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
call ADEXCH_XYZ_RL( myThid,addiffkr )
& 'adDiffkr', addiffkr, myThid)