integer ndaysave
ndaysave=35
ndaysaveRL=ndaysave
do irec = 1, ndaysrec-ndaysave+1, 7
do jrec=1,ndaysave
ndaysave=7