integer beginmodel, beginlocal
INTEGER beginlocal, beginmodel, obsrec
beginmodel = modelstartdate(1)/10000
obsrec = ( beginmodel - beginlocal )*nmonthyear
& ( beginmodel - beginlocal )*nmonthyear