!==============================================================================!
  subroutine Save_Ini(grid)
!------------------------------------------------------------------------------!
!   
!------------------------------------------------------------------------------!
!----------------------------------[Modules]-----------------------------------!
  use all_mod
  use pro_mod
  use les_mod
  use par_mod
  use rans_mod
  use Tokenizer_Mod
  use Grid_Mod
  use Parameters_Mod
!------------------------------------------------------------------------------!
  implicit none
  type(Grid_Type) :: grid
!-----------------------------------[Locals]-----------------------------------!
  integer           :: c, nn
  character(len=80) :: name_out, answer
  character(len=4)  :: ext
!==============================================================================!

  ! store the name
  if(this_proc  < 2)                                                     &
  write(*,*) '# Now saving initial files [skip cancels]:'  
  call Tokenizer_Mod_Read_Line(CMN_FILE)
  
  read(line % tokens(1), '(A80)')  name_out
  answer=name_out
  call To_Upper_Case(answer)
  
  if(answer == 'SKIP') return
  
  ! save the name
  answer = name
  name = name_out
  nn = 0
  ext = '.xyz'
  call Name_File(this_proc, name_out, ext, len_trim(ext))
  open(9,file=name_out)
  do c= 1, grid % n_cells
    nn = nn + 1
  end do    ! through centers 
  write(9,'(I10)') nn
  do c= 1, grid % n_cells
    write(9,'(3E25.8)') grid % xc(c),grid % yc(c),grid % zc(c)
  end do    ! through centers 
  close(9)

  ext = '.U__'
  call Name_File(this_proc, name_out, ext, len_trim(ext))
  open(9,file=name_out)
  do c= 1, grid % n_cells
    write(9,'(7E18.8)') U % n(c), U % o(c), U % a(c), U % a_o(c),  &
                        U % d_o(c), U % c(c), U % c_o(c)
  end do    ! through centers 
  close(9)

  ext = '.V__'
  call Name_File(this_proc, name_out, ext, len_trim(ext))
  open(9,file=name_out)
  do c= 1, grid % n_cells
    write(9,'(7E18.8)') V % n(c), V % o(c), V % a(c), V % a_o(c),  &
                        V % d_o(c), V % c(c), V % c_o(c)
  end do    ! through centers 
  close(9)

  ext = '.W__'
  call Name_File(this_proc, name_out, ext, len_trim(ext))
  open(9,file=name_out)
  do c= 1, grid % n_cells
    write(9,'(7E18.8)') W % n(c), W % o(c), W % a(c), W % a_o(c),  &
                        W % d_o(c), W % c(c), W % c_o(c)
  end do    ! through centers 
  close(9)

  ext = '.P__'
  call Name_File(this_proc, name_out, ext, len_trim(ext))
  open(9,file=name_out)
  do c= 1, grid % n_cells
    write(9,'(5E18.8)') P % n(c), PP % n(c), p % x(c), p % y(c), p % z(c)
  end do    ! through centers 
  close(9)
 
  if(HOT == YES) then 
    ext = '.T__'
    call Name_File(this_proc, name_out, ext, len_trim(ext))
    open(9,file=name_out)
    do c= 1, grid % n_cells
      write(9,'(7E18.8)') T % n(c), T % o(c), T % a(c), T % a_o(c),  &
                          T % d_o(c), T % c(c), T % c_o(c)
    end do    ! through centers 
    close(9)
  end if 
 
  if(SIMULA == ZETA.or.SIMULA==K_EPS_VV) then
    ext = '.Kin'
    call Name_File(this_proc, name_out, ext, len_trim(ext))
    open(9,file=name_out)
    do c= 1, grid % n_cells
      write(9,'(7E18.8)') Kin % n(c), Kin % o(c), Kin % a(c), Kin % a_o(c),  &
                          Kin % d_o(c), Kin % c(c), Kin % c_o(c)
    end do    ! through centers 
    close(9)

    ext = '.Eps'
    call Name_File(this_proc, name_out, ext, len_trim(ext))
    open(9,file=name_out)
    do c= 1, grid % n_cells
      write(9,'(7E18.8)') Eps % n(c), Eps % o(c), Eps % a(c), Eps % a_o(c),  &
                          Eps % d_o(c), Eps % c(c), Eps % c_o(c)
    end do    ! through centers 
    close(9)

    ext = '.v_2'
    call Name_File(this_proc, name_out, ext, len_trim(ext))
    open(9,file=name_out)
    do c= 1, grid % n_cells
      write(9,'(7E18.8)') v_2 % n(c), v_2 % o(c), v_2 % a(c), v_2 % a_o(c),  &
                          v_2 % d_o(c), v_2 % c(c), v_2 % c_o(c)
    end do    ! through centers 
    close(9)

    ext = '.f22'
    call Name_File(this_proc, name_out, ext, len_trim(ext))
    open(9,file=name_out)
    do c= 1, grid % n_cells
      write(9,'(7E18.8)') f22 % n(c), f22 % o(c),  &
                          f22 % d_o(c), f22 % c(c), f22 % c_o(c)
    end do    ! through centers 
    close(9)
  end if

  if(SIMULA == K_EPS) then
    ext = '.Kin'
    call Name_File(this_proc, name_out, ext, len_trim(ext))
    open(9,file=name_out)
    do c= 1, grid % n_cells
      write(9,'(7E18.8)') Kin % n(c), Kin % o(c), Kin % a(c), Kin % a_o(c),  &
                          Kin % d_o(c), Kin % c(c), Kin % c_o(c)
    end do    ! through centers 
    close(9)

    ext = '.Eps'
    call Name_File(this_proc, name_out, ext, len_trim(ext))
    open(9,file=name_out)
    do c= 1, grid % n_cells
      write(9,'(7E18.8)') Eps % n(c), Eps % o(c), Eps % a(c), Eps % a_o(c),  &
                          Eps % d_o(c), Eps % c(c), Eps % c_o(c)
    end do    ! through centers 
    close(9)
  end if

  name = answer 

  end subroutine
