SUBROUTINE restart
!
!   Additional data specific for a restart run
!
  IMPLICIT NONE
!
!   Local vars and arrays
!________________________________________________________________________________
!  WRITE(*,'(a/)') '=== Define additional data for a restart run ==='
!________________________________________________________________________________
! 
END SUBROUTINE restart