levoff = mod(modelstartdate(1)/100,100)
levmon = (irec-1) + levoff
integer levoff
levmon = (irectmp-1) + levoff