& adbottomdragfld
_RL adbottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
call ADEXCH_XY_RL( mythid,adbottomdragfld)
call ADEXCH_XY_RL( adbottomdragfld, mythid )
& adbottomdragfld, myIter, myThid)