module date_def
!     use resol_def
      use machine
      implicit none
      save
      integer idate(4)
      real(kind=kind_evod) fhour,shour,thour,z00
      REAL(KIND=KIND_EVOD) ,ALLOCATABLE :: spdmax(:)

      end module date_def