CALL LEF_ZERO( trair1 ,myThid )
CALL READ_REC_XY_RS( TRFile,trair1,intime1,
_EXCH_XY_RS(trair1 , myThid )
& +aWght*trair1(i,j,bi,bj) !+273.15
& trair1,
_RS trair1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)