psmile_get_initial_date.F90

Go to the documentation of this file.

!-----------------------------------------------------------------------
! Copyright 2006-2010, NEC Europe Ltd., London, UK.
! All rights reserved. Use is subject to OASIS4 license terms.
!-----------------------------------------------------------------------
!BOP
!
! !ROUTINE: PSMILe_get_initial_date
!
! !INTERFACE:

      subroutine psmile_get_initial_date ( initial_date, ierror )
!
! !USES:
!
      use PRISM_constants, only : PRISM_Time_struct, PRISM_Initial_date
!
      use PSMILe, only : ch_id, len_cvs_string

      implicit none
!
! !OUTPUT PARAMETERS:
!
      Type(PRISM_Time_struct), Intent(Out) :: initial_date

      Integer, Intent(Out)                 :: ierror
!
!
! !DESCRIPTION:
!
! Subroutine "PSMILe_get_initial_date" returns the initial date.
!
! !REVISION HISTORY:
!
!   Date      Programmer   Description
! ----------  ----------   -----------
! 03.10.20    R. Redler    created
!
!EOP
!----------------------------------------------------------------------
!
!  $Id: psmile_get_initial_date.F90 2325 2010-04-21 15:00:07Z valcke $
!  $Author: valcke $
!
   Character(len=len_cvs_string), save :: mycvs = 
       '$Id: psmile_get_initial_date.F90 2325 2010-04-21 15:00:07Z valcke $'
!
!----------------------------------------------------------------------

#ifdef VERBOSE
      print *, trim(ch_id), ': PSMILe_get_initial_date'

      call psmile_flushstd
#endif /* VERBOSE */

      initial_date = PRISM_Initial_date

      ierror = 0

#ifdef VERBOSE
      print *, trim(ch_id), ': PSMILe_get_initial_date: eof ierror', ierror

      call psmile_flushstd
#endif /* VERBOSE */

      end subroutine PSMILe_get_initial_date