& aocuav, ch4ann, ch4mn, xco2ann, nfile
INTEGER nfile
nfile=1
nfile=nfile+1
IF (nfile.gt.1)THEN
nfile=iyr
nfile=1000+iyr
WRITE (cfile,'i4'),nfile