integer nTimePnts, Iunit, it
nTimePnts=cfc_yearend-cfc_yearbeg
DO it = 1,nTimePnts
integer nTimePnts, iUnit, it