dcdatetimesetsecofday.f90

Go to the documentation of this file.

! -*- mode: f90; coding: utf-8 -*-
!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
 
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