!== 1 æ—¥ã®ç§’æ•°ã®è¨å®š
!
! Authors::   Yasuhiro MORIKAWA
! Version::   $Id: dcdatetimesetsecofday.f90,v 1.1 2009-03-20 09:09:52 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
! License::   See COPYRIGHT[link:../../COPYRIGHT]
!
! ã“ã®ãƒ•ã‚¡ã‚¤ãƒ«ã§æä¾›ã•ã‚Œã‚‹æ‰‹ç¶šãç¾¤ã¯ dc_date ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã«ã¦æä¾›ã•ã‚Œã¾ã™ã€‚
!

subroutine DCDateTimeSetSecOfDay(sec)
  !
  ! 1 æ—¥ã®ç§’æ•°ã®ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã‚’è¨å®šã—ã¾ã™.
  !
  ! ãªãŠ, ã“ã®æ‰‹ç¶šãã‚’å‘¼ã°ãªã„å ´åˆ, ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆã® 1 æ—¥ã®ç§’æ•°ã¯
  ! dc_date_types#DAY_SECONDS_EARTH ã«è¨å®šã•ã‚Œã¦ã„ã¾ã™.
  !
  use dc_date_types, only: day_seconds_default => day_seconds
  use dc_types, only: DP
  use dc_trace, only: BeginSub, EndSub
  implicit none
  real(DP), intent(in):: sec
  character(*), parameter :: subname = 'DCDateTimeSetSecOfDay'
continue
  call BeginSub(subname, 'sec=<%f>', d=(/sec/))
  day_seconds_default = sec
  call EndSub(subname, 'dc_date_types#day_seconds=<%f>', d=(/day_seconds_default/))
end subroutine DCDateTimeSetSecOfDay