cheapcl1(i,j,bi,bj) = 0.5
CALL READ_REC_XY_RL( cheap_clFile,cheapcl1,intime1,
_EXCH_XY_RL( cheapcl1 , myThid )
& + aWght*cheapcl1(i,j,bi,bj)
& cheapcl0, cheapcl1,
_RL cheapcl1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)