nyearsINT=1+int((endrec-replicated_nrec)/replicated_nrec)
nyearsRL=float(nyearsINT)
do jrec=1,nyearsINT
integer nyearsINT
nyearsINT=int((nrecloc-irec)/preproc_i(1))+1
do iyear=1,nyearsINT