File: dcdatetimesetsecofday.f90

1 日の秒数の設定

Authors:	Yasuhiro MORIKAWA
Version:	$Id: dcdatetimesetsecofday.f90,v 1.1 2009-03-20 09:09:52 morikawa Exp $
Tag Name:	$Name: gtool5-20101006 $
Copyright:	Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
License:	See COPYRIGHT

このファイルで提供される手続き群は dc_date モジュールにて提供されます。

Required files

dc_utils/dc_date_types.f90 dc_utils/dc_trace.F90 dc_utils/dc_types.f90

Methods

DCDateTimeSetSecOfDay

Included Modules

dc_date_types dc_types dc_trace

Public Instance methods

DCDateTimeSetSecOfDay( sec )

*Subroutine* :
`sec` :	`real(DP), intent(in)`

1 日の秒数のデフォルトを設定します.

なお, この手続きを呼ばない場合, デフォルトの 1 日の秒数は dc_date_types#DAY_SECONDS_EARTH に設定されています.

[Source]

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