dcdatetimesetsecofday.f90

Go to the documentation of this file.

! -*- mode: f90; coding: utf-8 -*-
!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
!>
!> @author    Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. see [COPYRIGHT](@ref COPYRIGHT) in detail
!> @en
!> @brief Set the number of seconds in a day
!> @details
!> Procedures described in this file are provided from "dc_date" module.
!> @enden
!>
!> @ja
!> @brief 1日の秒数の設定
!> @details
!> このファイルで提供される手続き群は dc_date モジュールにて提供されます。
!> @endja
!>
 
!> @en
!> @brief Set the default number of seconds in a day
!> @details
!> Set the default number of seconds in a day.
!>
!> If this procedure is not called, the default number of seconds in a day is
!> set to dc_date_types#DAY_SECONDS_EARTH.
!>
!> @param[in] sec Number of seconds in a day to set as default
!> @enden
!>
!> @ja
!> @brief 1日の秒数のデフォルトを設定
!> @details
!> 1 日の秒数のデフォルトを設定します.
!>
!> なお, この手続きを呼ばない場合, デフォルトの 1 日の秒数は
!> dc_date_types#DAY_SECONDS_EARTH に設定されています.
!>
!> @param[in] sec デフォルトに設定する1日の秒数
!> @endja
subroutine dcdatetimesetsecofday(sec)
 
  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