wavesh0 (i,j,bi,bj) = 0.
CALL READ_REC_XY_RL( WaveHFile,wavesh0,intime0,
_EXCH_XY_RL( wavesh0 , myThid )
wavesh(i,j,bi,bj) = bWght*wavesh0(i,j,bi,bj)
& wavesh0, wavesh1,
_RL wavesh0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)