dcdatetimesetsecofday.f90

Path: dcdatetimesetsecofday.f90
Last Update: Mon Dec 25 23:31:07 +0900 2006

1 日の秒数の設定

Authors:Yasuhiro MORIKAWA
Version:$Id: dcdatetimesetsecofday.f90,v 1.1 2006-12-25 14:31:07 morikawa Exp $
Tag Name:$Name: gt4f90io-20080603 $
Copyright:Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
License:See COPYRIGHT

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

Required files

dc_date_types.f90   dc_types.f90   dc_trace.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

[Validate]