qrair0 (i,j,bi,bj) = 0.
CALL READ_REC_XY_RL( QrFile,qrair0,intime0,
_EXCH_XY_RL( qrair0 , myThid )
qr(i,j,bi,bj) = bWght*qrair0(i,j,bi,bj)
& qrair0, qrair1,
_RL qrair0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)