_RS thAir1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
thAir1(i,j,bi,bj) = 0. _d 0
CALL READ_REC_XY_RS( airPotTempFile, thAir1, intime1,
_EXCH_XY_RS( thAir1, myThid )
& + aWght*thAir1(i,j,bi,bj)
& thAir0, thAir1,