file_ext extended from 6-digit to 8-digit

begin_new.f90

@@ -15,7 +15,7 @@ subroutine begin_new
 
   ! defining the iteration number
   ITIME = 0
-  file_ext = '000000'
+  file_ext = '00000000'
 
 
 

get_file_ext.f90

@@ -5,7 +5,7 @@
     use m_io,         only : file_ext
     implicit none
 
-    write(file_ext,"(i6.6)") itime
+    write(file_ext,"(i8.8)") itime
     return
   end subroutine get_file_ext
 

io_write_4.f90

@@ -75,7 +75,7 @@ subroutine io_write_4
   if (int_scalars) then
      do n = 1,n_scalars
         call xFFT3d(-1,3+n)
-        write(fname,"('sc',i2.2,'.',a6)") n,file_ext
+        write(fname,"('sc',i2.2,'.',a8)") n,file_ext
         tmp4(1:nx,1:ny,1:nz) = wrk(1:nx,1:ny,1:nz,3+n)
         call write_tmp4
 
@@ -86,7 +86,7 @@ subroutine io_write_4
   if (les) then
      ! turbulent viscosity
      if (allocated(turb_visc)) then
-        write(fname,"('nu_t.',a6)") file_ext
+        write(fname,"('nu_t.',a8)") file_ext
         tmp4 = turb_visc
         call write_tmp4
      end if
@@ -94,7 +94,7 @@ subroutine io_write_4
      if (n_les > 0) then
         do n = 1, n_les
            call xFFT3d(-1,3+n_scalars+n)
-           write(fname,"('les',i1,'.',a6)") n,file_ext
+           write(fname,"('les',i1,'.',a8)") n,file_ext
            tmp4(1:nx,1:ny,1:nz) = wrk(1:nx,1:ny,1:nz,3+n_scalars+n)
            call write_tmp4
         end do

m_io.f90

@@ -9,7 +9,7 @@ module m_io
   use m_openmpi
   implicit none
 
-  character*6  :: file_ext, ex_file_ext
+  character*8  :: file_ext, ex_file_ext
   character*80 :: fname
   ! output file handle
   integer :: in=10, out=11