write(nfile(7:8), '(i2.2)') lat
write(nfile(12:14), '(i3.3)') lon