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