COMMON /DRIVER_VAR_DATATEM/nfile
INTEGER nfile
nfile=1
IF (nfile.gt.1)THEN
nfile=iyr
nfile=1000+iyr
WRITE (cfile,'i4'),nfile
nfile=nfile+1