krec = irec + (ndaysave/2)
integer ndaysave
ndaysave=35
ndaysaveRL=ndaysave
do irec = 1, ndaysrec-ndaysave+1
do jrec=1,ndaysave
if ( (2*jrec.EQ.ndaysave).OR.(2*jrec+1.EQ.ndaysave) )
ndaysave=7
do irec = 1, ndaysrec-ndaysave+1, 7