!> \file open_file.F90
!! Permet l ecriture dans un fichier.
!<

!> SUBROUTINE: write_trace()
!! \author ... 
!! \date  ...
!! @note Cette routine permet l ecriture dans un fichier.
!! @note Used modules:
!! @note    - use module3D_phy
!! \param message
!<    
subroutine write_trace(message)

  use module3D_phy

  implicit none

  character(*) :: message
  character(len=80) :: file_trace

  file_trace='trace-reboot'

  if (itracebug.eq.1) then
     open(num_trace,file=file_trace)
     write (num_trace,*)'time=',time
     write (num_trace,*)TRIM(message)
     close(num_trace)
  endif

  return
end subroutine write_trace

!> SUBROUTINE: write_trace_940()
!! \author ... 
!! \date ...
!! @note Cette routine permet l ecriture dans un fichier.
!! @note Used modules:
!! @note    - use module3D_phy
!! \param message
!<
subroutine write_trace_940(message)

  use module3D_phy

  implicit none

  character(*) :: message
  character(len=80) :: file_trace

  file_trace='trace-reboot'
  if (itracebug.eq.1) then
     open(num_trace,file=file_trace)
     write (num_trace,*)'time=',time
     write (num_trace,940)TRIM(message),time
     close(num_trace)
  endif

940 format('%%%% ',a,'   time=',f8.0,' %%%%')

  return
end subroutine write_trace_940