!$Author: wjr $
!$Date: 2012-03-30 09:46:26 -0500 (Fri, 30 Mar 2012) $
!$Revision: 12162 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/inc/p1const.inc $

! This is a routine to hold the run date which is printed in output files
! as well as to stdout at the beginning of a SWEEP run

MODULE datetime_def

    IMPLICIT NONE

    character(len=21) :: datetimestr

!! Methods defined in this module

    PUBLIC :: get_datetimestr

!! Data defined in this module

    CONTAINS

    FUNCTION get_datetimestr() result (datetimestr)
        
        integer :: dt(8)
        character(len=3) :: mstr
        character(len=21) :: datetimestr

!     +++ END SPECIFICATIONS +++

    call date_and_time(values=dt) ! Determine date of Run

      !Determine month of year
          select case (dt(2))
            case (1); mstr = "Jan"
            case (2); mstr = "Feb"
            case (3); mstr = "Mar"
            case (4); mstr = "Apr"
            case (5); mstr = "May"
            case (6); mstr = "Jun"
            case (7); mstr = "Jul"
            case (8); mstr = "Aug"
            case (9); mstr = "Sep"
            case (10); mstr = "Oct"
            case (11); mstr = "Nov"
            case (12); mstr = "Dec"
            case default; mstr = "???"
          end select

          ! Generate datetime str
      write (datetimestr,FMT="(a3,' ',i2.2,', ',i4,' ',i2.2,':',i2.2,':',i2.2 )") mstr, dt(3), dt(1), dt(5), dt(6), dt(7) 
      !print *, "datetimestr: ",datetimestr

    END FUNCTION get_datetimestr

END MODULE datetime_def