dcdatetimesetsecofday.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	dcdatetimesetsecofday (sec)
	1日の秒数の設定

Function/Subroutine Documentation

dcdatetimesetsecofday()

subroutine dcdatetimesetsecofday

(

real(dp), intent(in)

sec

)

1日の秒数の設定

Author

Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

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

1日の秒数のデフォルトを設定

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

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

Parameters

[in]

sec

デフォルトに設定する1日の秒数

Definition at line 43 of file dcdatetimesetsecofday.f90.

 
  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/))

References dc_trace::beginsub(), dc_date_types::day_seconds, dc_types::dp, and dc_trace::endsub().

Here is the call graph for this function: