CALL LEF_ZERO( trair0 ,myThid )
CALL READ_REC_XY_RS( TRFile,trair0,intime0,
_EXCH_XY_RS(trair0 , myThid )
TR(i,j,bi,bj) = bWght*trair0(i,j,bi,bj)
& trair0,
_RS trair0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)