!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!   write_default_namelists.f90   !!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

! $Id$

!***********************************************************************
  program Write_default_namelists
!
!  Write startup and run parameters to files to allow a Perl script to
!  validate start.in and run.in.
!
!  21-jul-05/wolf: coded
!
    use Param_IO
!
    implicit none
!
    call write_all_init_pars(FILE='default_start_pars.nml')
    call write_all_run_pars(FILE='default_run_pars.nml'  )

  endprogram Write_default_namelists

!!! End of file write_defaul_namelists.f90