trair0 (i,j,bi,bj) = 0.
CALL READ_REC_XY_RL( TRFile,trair0,intime0,
_EXCH_XY_RL( trair0 , myThid )
TR(i,j,bi,bj) = bWght*trair0(i,j,bi,bj)
& trair0, trair1,
_RL trair0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)