dcdatetimecreate.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	dcdatetimecreate1 (time, year, mon, day, hour, min, sec, zone, zone_hour, zone_min, caltype, caltype_str, day_seconds, sclyear, sclmon, sclday, sclsec, err)
	Create DC_DATETIME and DC_DIFFTIME type variables.
subroutine	get_current_time (jyear, jmon, jday, jsec, jzone)
subroutine	dcdifftimecreate1 (diff, year, mon, day, hour, min, sec, day_seconds, nondim, sclyear, sclmon, sclday, sclsec)
subroutine	dcdifftimecreate2d (diff, value, unit, unit_symbol, err)
subroutine	dcdifftimecreate2r (diff, value, unit, unit_symbol, err)
subroutine	dcdifftimecreate2i (diff, value, unit, unit_symbol, err)
subroutine	dcdatetimecreatei (time, sec)
subroutine	dcdatetimecreater (time, sec)
subroutine	dcdatetimecreated (time, sec)
subroutine	dcdifftimecreatei (diff, sec)
subroutine	dcdifftimecreater (diff, sec)
subroutine	dcdifftimecreated (diff, sec)
subroutine	dcdatetimecreate1_bc (time, year, mon, day, hour, min, sec, zone, caltype, day_seconds, err)
subroutine	dcdifftimecreate1_bc (diff, year, mon, day, hour, min, sec, day_seconds)
subroutine	dcdifftimecreate2_bc (diff, value, unit, err)

Function/Subroutine Documentation

dcdatetimecreate1()

subroutine dcdatetimecreate1	(	type(dc_datetime), intent(out)	time,
		integer, intent(in), optional	year,
		integer, intent(in), optional	mon,
		integer, intent(in), optional	day,
		integer, intent(in), optional	hour,
		integer, intent(in), optional	min,
		real(dp), intent(in), optional	sec,
		character(*), intent(in), optional	zone,
		integer, intent(in), optional	zone_hour,
		integer, intent(in), optional	zone_min,
		integer, intent(in), optional	caltype,
		character(*), intent(in), optional	caltype_str,
		real(dp), intent(in), optional	day_seconds,
		type(dc_scaled_sec), intent(in), optional	sclyear,
		type(dc_scaled_sec), intent(in), optional	sclmon,
		type(dc_scaled_sec), intent(in), optional	sclday,
		type(dc_scaled_sec), intent(in), optional	sclsec,
		logical, intent(out), optional	err )

Create DC_DATETIME and DC_DIFFTIME type variables.

Author

Yasuhiro MORIKAWA, Eizi TOYODA

Copyright

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

Procedures described in this file are provided from "dc_date" module.

Create DC_DATETIME type variable

Create dc_date_types#DC_DATETIME type variable. If all arguments year, mon, day, hour, min, sec are not given, the current time is used.

Set calendar type with caltype argument. Use one of dc_date_types#CAL_CYCLIC, dc_date_types#CAL_NOLEAP, dc_date_types#CAL_JULIAN, dc_date_types#CAL_GREGORIAN. If caltype is not specified, calendar is set to dc_date_types#CAL_GREGORIAN. Calendar can also be specified by string with caltype_str. Corresponding strings (case insensitive) are:

caltype	caltype_str
dc_date_types#CAL_CYCLIC	cyclic
dc_date_types#CAL_NOLEAP	noleap
dc_date_types#CAL_JULIAN	julian
dc_date_types#CAL_GREGORIAN	gregorian

Set timezone from UTC with zone argument. Specify timezone as 6 characters like '+09:00' or '-13:00'. If zone is not specified, timezone obtained from date_and_time intrinsic subroutine is used. Timezone can also be specified with zone_hour or zone_min as integer.

Set seconds per day with day_seconds argument. If not specified, dc_date_types::day_seconds value is used. dc_date_types::day_seconds can be changed with SetSecOfDay.

If invalid value is given to caltype or zone, an error occurs. If err argument is given, .true. is returned to err and the program continues.

Parameters

[out]	time	Created DC_DATETIME variable
[in]	year	Year
[in]	mon	Month
[in]	day	Day
[in]	hour	Hour
[in]	min	Minute
[in]	sec	Second
[in]	zone	Timezone from UTC
[in]	zone_hour	Timezone (hour)
[in]	zone_min	Timezone (minute)
[in]	caltype	Calendar type
[in]	caltype_str	Calendar type (string)
[in]	day_seconds	Seconds per day
[in]	sclyear	Year (DC_SCALED_SEC type)
[in]	sclmon	Month (DC_SCALED_SEC type)
[in]	sclday	Day (DC_SCALED_SEC type)
[in]	sclsec	Second (DC_SCALED_SEC type)
[out]	err	Exception handling flag

Definition at line 134 of file dcdatetimecreate.f90.

 
  use dc_date_generic, only: dcdifftimecreate, &
    & validcaltype, validzone, tochar
  use dc_date_internal, only: dcdate_set_day_seconds_scl
  use dc_date_types, only: dc_datetime, dc_difftime, &
    & caltype_default => caltype, &
    & flag_set_day_seconds_scl, day_seconds_scl, &
    & cyclic_mdays, cal_noleap, cal_julian, cal_cyclic, cal_gregorian, &
    & min_seconds, hour_seconds, four_years, year_months
  use dc_error, only: storeerror, dc_ebadcaltype, dc_ebadtimezone, dc_noerr
  use dc_message, only: messagenotify
  use dc_trace, only: beginsub, endsub
  use dc_present, only: present_select
  use dc_string, only: lchar, cprintf
  use dc_scaledsec, only: dc_scaled_sec, &
    & assignment(=), dcscaledsecputline, &
    & operator(==), operator(>), operator(<), operator(>=), operator(<=), &
    & operator(+), operator(-), operator(*), operator(/), mod, modulo, &
    & abs, int, sign, floor, dcscaledsecputline
  use dc_types,      only: dp, string
  implicit none
  type(DC_DATETIME), intent(out) :: time
  integer, intent(in), optional:: year
  integer, intent(in), optional:: mon
  integer, intent(in), optional:: day
  integer, intent(in), optional:: hour
  integer, intent(in), optional:: min
  real(DP),intent(in), optional:: sec
  character(*), intent(in), optional :: zone
  integer, intent(in), optional :: zone_hour
  integer, intent(in), optional :: zone_min
  integer, intent(in), optional:: caltype
  character(*), intent(in), optional:: caltype_str
  real(DP),intent(in), optional:: day_seconds
  type(DC_SCALED_SEC), intent(in), optional:: sclyear
  type(DC_SCALED_SEC), intent(in), optional:: sclmon
  type(DC_SCALED_SEC), intent(in), optional:: sclday
  type(DC_SCALED_SEC), intent(in), optional:: sclsec
  logical, intent(out), optional:: err
 
  real(DP):: gcsec
  integer :: gcday, gcmon, gcyear
  real(DP):: essec, esds
  integer :: esday
  type(DC_SCALED_SEC):: iday, imon, month, iyear, century, isec
  character(6) :: izone
  integer, parameter:: year_default = 0, mon_default = 1
  integer, parameter:: day_default = 1
  integer, parameter:: sec_default = 0
  logical :: current_time_used
  type(DC_DIFFTIME):: zonediff
  character(STRING):: zone_str_long
  integer :: stat, cause_i
  character(STRING) :: cause_c
  character(*), parameter :: subname = 'DCDateTimeCreate1'
continue
  current_time_used = .not. present(year) &
    & .and. .not. present(mon) &
    & .and. .not. present(day) &
    & .and. .not. present(hour) &
    & .and. .not. present(min) &
    & .and. .not. present(sec) &
    & .and. .not. present(sclyear) &
    & .and. .not. present(sclmon) &
    & .and. .not. present(sclday) &
    & .and. .not. present(sclsec)
  call beginsub(subname, 'current_time_used=<%y>', l=(/current_time_used/))
  stat = dc_noerr
  cause_i = dc_noerr
  cause_c = ''
 
  if ( present(day_seconds) ) then
    time % day_seconds = day_seconds
  else
    if ( .not. flag_set_day_seconds_scl ) call dcdate_set_day_seconds_scl
    time % day_seconds = day_seconds_scl
  end if
 
  call get_current_time(gcyear, gcmon, gcday, gcsec, izone) ! (out)
  iyear = gcyear
  imon = gcmon
  iday = gcday
  isec = gcsec
 
  if (.not. current_time_used) then
    if ( present(zone_hour) .or. present(zone_min) ) then
      call dcdifftimecreate( zonediff, &     ! (out)
        & hour = zone_hour, min = zone_min ) ! (in)
      zone_str_long = tochar(zonediff)
      if ( zone_str_long(1:1) == '-' ) then
        izone(1:1) = '-'
      else
        izone(1:1) = '+'
      end if
      izone(2:6) = zone_str_long(13:17)
    end if
    if (present(zone)) then
      izone = zone
    end if
    if ( .not. validzone(izone)) then
      stat = dc_ebadtimezone
      cause_c = izone
      if (present(err)) then
        call messagenotify('W', subname, &
          & 'zone=<%c> is invalid.', &
          & c1=trim(izone))
      else
        goto 999
      end if
    end if
 
    if ( present(sclsec) ) then
      isec = sclsec
    elseif( present(sec) ) then
      isec = sec
    else
      isec = sec_default
    end if
    if (present(min)) then
      isec = isec + min * min_seconds
    end if
    if (present(hour)) then
      isec = isec + hour * hour_seconds
    end if
 
    if ( present(sclday) ) then
      iday = sclday
    elseif( present(day) ) then
      iday = day
    else
      iday = day_default
    end if
 
    if ( present(sclday) ) then
      iday = sclday
    elseif( present(day) ) then
      iday = day
    else
      iday = day_default
    end if
    iday = iday + floor(isec / time % day_seconds)
 
    if ( present(sclmon) ) then
      imon = sclmon
    elseif( present(mon) ) then
      imon = mon
    else
      imon = mon_default
    end if
 
    if ( present(sclyear) ) then
      iyear = sclyear
    elseif( present(year) ) then
      iyear = year
    else
      iyear = year_default
    end if
  end if
 
  time % zone = izone
  time % sec = modulo(isec, time % day_seconds)
  time % caltype = caltype_default
  if (present(caltype_str)) then
    select case( lchar(trim(caltype_str)) )
    case('cyclic')
      time % caltype = cal_cyclic
    case('noleap')
      time % caltype = cal_noleap
    case('julian')
      time % caltype = cal_julian
    case('gregorian')
      time % caltype = cal_gregorian
    case('')
      time % caltype = cal_gregorian
    case default
      stat = dc_ebadcaltype
      cause_i = 0
      call messagenotify('W', subname, &
        & 'caltype=<%c> is invalid calender type.', &
        & c1 = trim(caltype_str) )
      if ( .not. present(err) ) then
        goto 999
      end if
    end select
  end if
 
  if (present(caltype)) then
    if (validcaltype(caltype)) then
      time % caltype = caltype
    else
      stat = dc_ebadcaltype
      cause_i = caltype
      if (present(err)) then
        call messagenotify('W', subname, &
          & 'caltype=<%d> is invalid calender type.', &
          & i=(/caltype/))
      else
        goto 999
      end if
    end if
  end if
  if (time % caltype == cal_cyclic) then
    time % day = int( iday + imon * cyclic_mdays )
    goto 999
  endif
  month = modulo(imon - 3, year_months) + 3
  iyear = iyear + int( (imon - month) / year_months )
  iday = iday + int( (month * 306 - 914) / 10 )
  if (time % caltype == cal_noleap) then
    time % day = iday + iyear * 365 + 90
  else
    iday = iday + int( (iyear * four_years - modulo(iyear * four_years, 4)) / 4 )
    if (time % caltype == cal_julian) then
      time % day = iday + 91
    elseif (iday < 640116) then
      time % day = iday + 91
    else
      century = (iyear - modulo(iyear, 100)) / 100 + 1
      time % day = iday - int( (century * 3 - modulo(century * 3, 4)) / 4 ) + 93
    endif
  endif
 
 
999 continue
  call storeerror(stat, subname, err, cause_c, cause_i)
  esday = time % day ; essec = time % sec ; esds = time % day_seconds
  call endsub(subname, 'time (caltype=%d, day=%d, sec=%f, zone=%c, day_seconds=%f)', &
    & i=(/time % caltype, esday/), d=(/essec, esds/), &
    & c1=trim(time % zone))
 
  contains
    !> @en
    !> @brief Get current time using date_and_time intrinsic subroutine
    !> @details
    !> Returns current time and timezone from UTC using date_and_time intrinsic subroutine.
    !> @param[out] jyear Year
    !> @param[out] jmon Month
    !> @param[out] jday Day
    !> @param[out] jsec Second
    !> @param[out] jzone Timezone
    !> @enden
    !>
    !> @ja
    !> @brief date_and_time 組み込みサブルーチンを用いて現在時刻を取得
    !> @details
    !> date_and_time 組み込みサブルーチンを用いて, 現在
    !> 時刻と UTC からの時差を返します.
    !> @param[out] jyear 年
    !> @param[out] jmon 月
    !> @param[out] jday 日
    !> @param[out] jsec 秒
    !> @param[out] jzone タイムゾーン
    !> @endja
    subroutine get_current_time(jyear, jmon, jday, jsec, jzone)
      use dc_types, only: dp
      use dc_string, only: stod
      implicit none
      integer, intent(out) :: jyear, jmon, jday
      real(DP), intent(out) :: jsec
      character(*), intent(out) :: jzone
 
      integer :: date_time_values(1:8)
      character(5)  :: zone_raw
    continue
 
      call date_and_time(zone=zone_raw, values=date_time_values)
 
      jzone = zone_raw(1:3) // ":" // zone_raw(4:5)
 
      jyear = date_time_values(1)
      jmon  = date_time_values(2)
      jday  = date_time_values(3)
      jsec  = real(date_time_values(5), dp) * hour_seconds &
        &     + real(date_time_values(6), dp) * min_seconds &
        &     + real(date_time_values(7), dp)
 
    end subroutine get_current_time
 

References dc_trace::beginsub(), dc_date_types::cal_cyclic, dc_date_types::cal_gregorian, dc_date_types::cal_julian, dc_date_types::cal_noleap, dc_date_types::caltype, dc_date_types::cyclic_mdays, dc_date_types::day_seconds_scl, dc_error::dc_ebadcaltype, dc_error::dc_ebadtimezone, dc_error::dc_noerr, dc_date_internal::dcdate_set_day_seconds_scl(), dc_scaledsec::dcscaledsecputline(), dc_types::dp, dc_trace::endsub(), dc_date_types::flag_set_day_seconds_scl, dc_date_types::four_years, get_current_time(), dc_date_types::hour_seconds, dc_date_types::min_seconds, dc_error::storeerror(), dc_types::string, and dc_date_types::year_months.

Here is the call graph for this function:

dcdatetimecreate1_bc()

subroutine dcdatetimecreate1_bc	(	type(dc_datetime), intent(out)	time,
		integer, intent(in), optional	year,
		integer, intent(in), optional	mon,
		integer, intent(in), optional	day,
		integer, intent(in), optional	hour,
		integer, intent(in), optional	min,
		real(dp), intent(in), optional	sec,
		character(*), intent(in), optional	zone,
		integer, intent(in), optional	caltype,
		real(dp), intent(in), optional	day_seconds,
		logical, intent(out), optional	err )

Create DC_DATETIME (backward compatibility)

Definition at line 1006 of file dcdatetimecreate.f90.

  use dc_types, only: dp
  use dc_date_types, only: dc_datetime
  use dc_date_generic, only: dcdatetimecreate
  type(DC_DATETIME), intent(out):: time
  integer, intent(in), optional:: year, mon, day, hour, min
  real(DP),intent(in), optional:: sec, day_seconds
  character(*), intent(in), optional :: zone
  integer, intent(in), optional:: caltype
  logical, intent(out), optional:: err
continue
  call dcdatetimecreate( time, &
    & year, mon, day, hour, min, sec, &
    & zone, caltype, day_seconds = day_seconds, err = err )

References dc_types::dp.

dcdatetimecreated()

subroutine dcdatetimecreated	(	type(dc_datetime), intent(out)	time,
		real(dp), intent(in)	sec )

Create DC_DATETIME type variable with double precision seconds

Parameters

[out]	time	Created DC_DATETIME variable
[in]	sec	Seconds (double precision)

Definition at line 896 of file dcdatetimecreate.f90.

  use dc_types, only: dp
  use dc_date_types, only: dc_datetime
  use dc_date_generic, only: dcdatetimecreate
  use dc_scaledsec, only: dc_scaled_sec, assignment(=)
  implicit none
  type(DC_DATETIME), intent(out):: time
  real(DP), intent(in):: sec
continue
  call dcdatetimecreate(time, sec = sec)

References dc_types::dp.

dcdatetimecreatei()

subroutine dcdatetimecreatei	(	type(dc_datetime), intent(out)	time,
		integer, intent(in)	sec )

Create DC_DATETIME type variable with integer seconds

Create dc_date_types#DC_DATETIME type variable. Specify seconds with sec argument. Use Create for year/month/day/hour/minute specification.

Parameters

[out]	time	Created DC_DATETIME variable
[in]	sec	Seconds (integer)

Definition at line 840 of file dcdatetimecreate.f90.

  use dc_types, only: dp
  use dc_date_types, only: dc_datetime
  use dc_date_generic, only: dcdatetimecreate
  use dc_scaledsec, only: dc_scaled_sec, assignment(=)
  implicit none
  type(DC_DATETIME), intent(out):: time
  integer, intent(in):: sec
continue
  call dcdatetimecreate(time, sec = real(sec, dp) )

References dc_types::dp.

dcdatetimecreater()

subroutine dcdatetimecreater	(	type(dc_datetime), intent(out)	time,
		real, intent(in)	sec )

Create DC_DATETIME type variable with single precision seconds

Create dc_date_types#DC_DATETIME type variable. Specify seconds with sec argument. Use Create for year/month/day/hour/minute specification.

Parameters

[out]	time	Created DC_DATETIME variable
[in]	sec	Seconds (single precision)

Definition at line 873 of file dcdatetimecreate.f90.

  use dc_types, only: dp
  use dc_date_types, only: dc_datetime
  use dc_date_generic, only: dcdatetimecreate
  use dc_scaledsec, only: dc_scaled_sec, assignment(=)
  implicit none
  type(DC_DATETIME), intent(out):: time
  real, intent(in):: sec
continue
  call dcdatetimecreate(time, sec = real(sec, dp) )

References dc_types::dp.

dcdifftimecreate1()

subroutine dcdifftimecreate1	(	type(dc_difftime), intent(out)	diff,
		integer, intent(in), optional	year,
		integer, intent(in), optional	mon,
		integer, intent(in), optional	day,
		integer, intent(in), optional	hour,
		integer, intent(in), optional	min,
		real(dp), intent(in), optional	sec,
		real(dp), intent(in), optional	day_seconds,
		real(dp), intent(in), optional	nondim,
		type(dc_scaled_sec), intent(in), optional	sclyear,
		type(dc_scaled_sec), intent(in), optional	sclmon,
		type(dc_scaled_sec), intent(in), optional	sclday,
		type(dc_scaled_sec), intent(in), optional	sclsec )

Create DC_DIFFTIME type variable

Create dc_date_types#DC_DIFFTIME type variable. If arguments year, mon, day, hour, min, sec, nondim are not given, 0 is used.

Set seconds per day with day_seconds argument. If not specified, dc_date_types::day_seconds value is used. dc_date_types::day_seconds can be changed with SetSecOfDay.

Parameters

[out]	diff	Created DC_DIFFTIME variable
[in]	year	Year
[in]	mon	Month
[in]	day	Day
[in]	hour	Hour
[in]	min	Minute
[in]	sec	Second
[in]	day_seconds	Seconds per day
[in]	nondim	Nondimensional time
[in]	sclyear	Year (DC_SCALED_SEC type)
[in]	sclmon	Month (DC_SCALED_SEC type)
[in]	sclday	Day (DC_SCALED_SEC type)
[in]	sclsec	Second (DC_SCALED_SEC type)

Definition at line 470 of file dcdatetimecreate.f90.

  use dc_date_internal, only: dcdate_normalize
  use dc_date_generic, only: validcaltype
  use dc_date_types, only: dc_difftime, &
    & day_seconds_default => day_seconds, &
    & min_seconds, hour_seconds, year_months
  use dc_message, only: messagenotify
  use dc_trace, only: beginsub, endsub, debug
  use dc_present, only: present_select
  use dc_scaledsec, only: dc_scaled_sec, &
    & assignment(=), dcscaledsecputline, &
    & operator(==), operator(>), operator(<), operator(>=), operator(<=), &
    & operator(+), operator(-), operator(*), operator(/), mod, modulo, &
    & abs, int, sign, floor
  use dc_string, only: cprintf
  use dc_types,      only: dp, string
  implicit none
  type(DC_DIFFTIME), intent(out) :: diff
  integer,  intent(in), optional:: year
  integer,  intent(in), optional:: mon
  integer,  intent(in), optional:: day
  integer,  intent(in), optional:: hour
  integer,  intent(in), optional:: min
  real(DP), intent(in), optional:: sec
  real(DP), intent(in), optional:: day_seconds
  real(DP), intent(in), optional:: nondim
  type(DC_SCALED_SEC), intent(in), optional:: sclyear
  type(DC_SCALED_SEC), intent(in), optional:: sclmon
  type(DC_SCALED_SEC), intent(in), optional:: sclday
  type(DC_SCALED_SEC), intent(in), optional:: sclsec
 
  type(DC_SCALED_SEC):: iyear, imon, iday, ihour, imin, isec
  integer, parameter:: year_default = 0, mon_default = 0
  integer, parameter:: day_default = 0, hour_default = 0, min_default = 0
  integer, parameter:: sec_default = 0
  real(DP):: essec, esds
  integer :: esmon, esday
  character(STRING):: endsub_msb
  logical:: dbg_mode
  character(*), parameter :: subname = 'DCDiffTimeCreate1'
continue
  call beginsub(subname)
 
  if ( present(nondim) ) then
    diff % nondim_flag = .true.
    diff % mon = 0
    diff % day = 0
    diff % sec = nondim
    goto 999
  else
    diff % nondim_flag = .false.
  end if
 
  if ( present(sclyear) ) then
    iyear = sclyear
  elseif( present(year) ) then
    iyear = year
  else
    iyear = year_default
  end if
 
  if ( present(sclmon) ) then
    imon = sclmon
  elseif( present(mon) ) then
    imon = mon
  else
    imon = mon_default
  end if
 
  if ( present(sclday) ) then
    iday = sclday
  elseif( present(day) ) then
    iday = day
  else
    iday = day_default
  end if
 
  ihour = present_select(.false., hour_default, hour)
  imin  = present_select(.false., min_default, min)
 
  if ( present(sclsec) ) then
    isec = sclsec
  elseif( present(sec) ) then
    isec = sec
  else
    isec = sec_default
  end if
 
  diff % mon = iyear * year_months + imon
  diff % day = iday
  diff % sec =   ihour * hour_seconds &
    &          + imin  * min_seconds &
    &          + isec
 
  if( present(day_seconds) ) then
    diff % day_seconds = day_seconds
  else
    diff % day_seconds = day_seconds_default
  end if
 
  call dcdate_normalize(diff % day, diff % sec, diff % day_seconds, diff % nondim_flag)
 
999 continue
  call debug( dbg_mode )
  if ( dbg_mode ) then
    esmon = diff % mon ; esday = diff % day
    essec = diff % sec ; esds = diff % day_seconds
    endsub_msb = &
      & cprintf( 'mon=%d, day=%d, sec=%f, day_seconds=%f, nondim_flag=%b', &
      &          i = (/ esmon, esday /), d = (/ essec, esds /), &
      &          l = (/ diff % nondim_flag /) )
  else
    endsub_msb = ''
  end if
  call endsub(subname, 'diff (%c)', c1 = trim(endsub_msb) )

References dc_trace::beginsub(), dc_date_types::day_seconds, dc_date_internal::dcdate_normalize(), dc_scaledsec::dcscaledsecputline(), dc_types::dp, dc_trace::endsub(), dc_date_types::hour_seconds, dc_date_types::min_seconds, dc_types::string, and dc_date_types::year_months.

Here is the call graph for this function:

dcdifftimecreate1_bc()

subroutine dcdifftimecreate1_bc	(	type(dc_difftime), intent(out)	diff,
		integer, intent(in), optional	year,
		integer, intent(in), optional	mon,
		integer, intent(in), optional	day,
		integer, intent(in), optional	hour,
		integer, intent(in), optional	min,
		real(dp), intent(in), optional	sec,
		real(dp), intent(in), optional	day_seconds )

Create DC_DIFFTIME (backward compatibility)

Definition at line 1030 of file dcdatetimecreate.f90.

  use dc_types, only: dp
  use dc_date_types, only: dc_difftime
  use dc_date_generic, only: dcdifftimecreate
  type(DC_DIFFTIME), intent(out) :: diff
  integer, intent(in), optional:: year, mon, day, hour, min
  real(DP),intent(in), optional:: sec, day_seconds
continue
  call dcdifftimecreate( diff, &
    & year, mon, day, hour, min, sec, day_seconds )

References dc_types::dp.

dcdifftimecreate2_bc()

subroutine dcdifftimecreate2_bc	(	type(dc_difftime), intent(out)	diff,
		real(dp), intent(in)	value,
		character(*), intent(in)	unit,
		logical, intent(out), optional	err )

Create DC_DIFFTIME with value and unit (backward compatibility)

Definition at line 1049 of file dcdatetimecreate.f90.

  use dc_types, only: dp
  use dc_date_types, only: dc_difftime
  use dc_date_generic, only: dcdifftimecreate
  type(DC_DIFFTIME), intent(out) :: diff
  real(DP), intent(in) :: value
  character(*), intent(in) :: unit
  logical, intent(out), optional :: err
continue
  call dcdifftimecreate( diff, value, unit, err = err )

References dc_types::dp.

dcdifftimecreate2d()

subroutine dcdifftimecreate2d	(	type(dc_difftime), intent(out)	diff,
		real(dp), intent(in)	value,
		character(*), intent(in)	unit,
		integer, intent(in), optional	unit_symbol,
		logical, intent(out), optional	err )

Create DC_DIFFTIME type variable with value and unit

Create dc_date_types#DC_DIFFTIME type variable. Specify value with value argument and unit with unit string or unit symbol with unit_symbol.

Valid strings for unit (case insensitive):

Unit	String
Year	dc_date_types#UNIT_YEAR
Month	dc_date_types#UNIT_MONTH
Day	dc_date_types#UNIT_DAY
Hour	dc_date_types#UNIT_HOUR
Minute	dc_date_types#UNIT_MIN
Second	dc_date_types#UNIT_SEC
Nondimensional	dc_date_types#UNIT_NONDIM

If invalid string is given to unit, an error occurs.

Valid symbols for unit_symbol:

Unit	Symbol
Year	dc_date_types#UNIT_SYMBOL_YEAR
Month	dc_date_types#UNIT_SYMBOL_MONTH
Day	dc_date_types#UNIT_SYMBOL_DAY
Hour	dc_date_types#UNIT_SYMBOL_HOUR
Minute	dc_date_types#UNIT_SYMBOL_MIN
Second	dc_date_types#UNIT_SYMBOL_SEC
Nondimensional	dc_date_types#UNIT_SYMBOL_NONDIM

If invalid symbol is given to unit_symbol, an error occurs. If err argument is given, .true. is returned to err and the program continues.

Parameters

[out]	diff	Created DC_DIFFTIME variable
[in]	value	Value
[in]	unit	Unit string
[in]	unit_symbol	Unit symbol
[out]	err	Exception handling flag

Definition at line 679 of file dcdatetimecreate.f90.

  use dc_types, only: dp, string
  use dc_trace, only: beginsub, endsub
  use dc_error, only: storeerror, dc_ebadunit, dc_noerr
  use dc_string, only: strieq
  use dc_date_generic, only: dcdifftimecreate, parsetimeunits
  use dc_date_types, only: dc_difftime, &
    & unit_symbol_year, unit_symbol_month, unit_symbol_day, &
    & unit_symbol_hour, unit_symbol_min, unit_symbol_sec, unit_symbol_nondim, &
    & unit_symbol_err, &
    & min_seconds, hour_seconds, day_seconds, cyclic_mdays, year_months
  use dc_scaledsec, only: dc_scaled_sec, &
    & assignment(=), dcscaledsecputline, &
    & operator(==), operator(>), operator(<), operator(>=), operator(<=), &
    & operator(+), operator(-), operator(*), operator(/), mod, modulo, &
    & abs, int, sign, floor
  implicit none
  type(DC_DIFFTIME), intent(out) :: diff
  real(DP), intent(in) :: value
  character(*), intent(in) :: unit
  integer, intent(in), optional :: unit_symbol
  logical, intent(out), optional :: err
 
  real(DP):: essec
  integer :: esmon, esday
  integer :: stat, val_int
  type(DC_SCALED_SEC):: val_scl, val_dec
  character(STRING) :: cause_c
  integer:: symbol
 
  character(*), parameter :: subname = 'DCDiffTimeCreate2'
continue
  call beginsub(subname, 'value=%f', d=(/value/))
  stat = dc_noerr
  cause_c = ''
  symbol = unit_symbol_err
  if ( present(unit_symbol) ) then
    symbol = unit_symbol
  else
    symbol = parsetimeunits(unit)
  end if
 
  if ( symbol == unit_symbol_sec ) then
    call dcdifftimecreate(diff, sec=value)
    goto 999
  elseif ( symbol == unit_symbol_nondim ) then
    call dcdifftimecreate(diff, nondim=value)
    goto 999
  end if
 
  val_int = int(value)
  val_scl = int(value)
  val_dec = value - int(value)
 
  if ( symbol == unit_symbol_min ) then
    call dcdifftimecreate(diff, min = val_int, sclsec = val_dec * min_seconds)
  elseif ( symbol == unit_symbol_hour ) then
    call dcdifftimecreate(diff, hour = val_int, sclsec = val_dec * hour_seconds)
  elseif ( symbol == unit_symbol_day ) then
    call dcdifftimecreate(diff, sclday = val_scl, sclsec = val_dec * day_seconds)
  elseif ( symbol == unit_symbol_month ) then
    call dcdifftimecreate(diff, sclmon = val_scl, &
      & sclsec = int(val_dec * cyclic_mdays) * day_seconds)
  elseif ( symbol == unit_symbol_year ) then
    call dcdifftimecreate(diff, sclyear = val_scl, &
      & sclsec = int(val_dec * cyclic_mdays * year_months) * day_seconds)
  else
    stat = dc_ebadunit
    cause_c = unit
  end if
 
999 continue
  call storeerror(stat, subname, err, cause_c)
  esmon = diff % mon ; esday = diff % day ; essec = diff % sec
  call endsub(subname, 'diff (mon=%d, day=%d, sec=%f)', &
    & i=(/esmon, esday/), d=(/essec/))

References dc_trace::beginsub(), dc_date_types::cyclic_mdays, dc_date_types::day_seconds, dc_error::dc_ebadunit, dc_error::dc_noerr, dc_scaledsec::dcscaledsecputline(), dc_types::dp, dc_trace::endsub(), dc_date_types::hour_seconds, dc_date_types::min_seconds, dc_error::storeerror(), dc_types::string, dc_date_types::unit_symbol_day, dc_date_types::unit_symbol_err, dc_date_types::unit_symbol_hour, dc_date_types::unit_symbol_min, dc_date_types::unit_symbol_month, dc_date_types::unit_symbol_nondim, dc_date_types::unit_symbol_sec, dc_date_types::unit_symbol_year, and dc_date_types::year_months.

Here is the call graph for this function:

dcdifftimecreate2i()

subroutine dcdifftimecreate2i	(	type(dc_difftime), intent(out)	diff,
		integer, intent(in)	value,
		character(*), intent(in)	unit,
		integer, intent(in), optional	unit_symbol,
		logical, intent(out), optional	err )

Create DC_DIFFTIME type variable with integer value and unit

Parameters

[out]	diff	Created DC_DIFFTIME variable
[in]	value	Value (integer)
[in]	unit	Unit string
[in]	unit_symbol	Unit symbol
[out]	err	Exception handling flag

Definition at line 805 of file dcdatetimecreate.f90.

  use dc_types, only: dp
  use dc_date_generic, only: dcdifftimecreate
  use dc_date_types, only: dc_difftime
  implicit none
  type(DC_DIFFTIME), intent(out) :: diff
  integer, intent(in) :: value
  character(*), intent(in) :: unit
  integer, intent(in), optional :: unit_symbol
  logical, intent(out), optional :: err
continue
  call dcdifftimecreate(diff, real( value, dp ), unit, unit_symbol, err)

References dc_types::dp.

dcdifftimecreate2r()

subroutine dcdifftimecreate2r	(	type(dc_difftime), intent(out)	diff,
		real, intent(in)	value,
		character(*), intent(in)	unit,
		integer, intent(in), optional	unit_symbol,
		logical, intent(out), optional	err )

Create DC_DIFFTIME type variable with single precision value and unit

Parameters

[out]	diff	Created DC_DIFFTIME variable
[in]	value	Value (single precision)
[in]	unit	Unit string
[in]	unit_symbol	Unit symbol
[out]	err	Exception handling flag

Definition at line 774 of file dcdatetimecreate.f90.

  use dc_types, only: dp
  use dc_date_generic, only: dcdifftimecreate
  use dc_date_types, only: dc_difftime
  implicit none
  type(DC_DIFFTIME), intent(out) :: diff
  real, intent(in) :: value
  character(*), intent(in) :: unit
  integer, intent(in), optional :: unit_symbol
  logical, intent(out), optional :: err
continue
  call dcdifftimecreate(diff, real( value, dp ), unit, unit_symbol, err)

References dc_types::dp.

dcdifftimecreated()

subroutine dcdifftimecreated	(	type(dc_difftime), intent(out)	diff,
		real(dp), intent(in)	sec )

Create DC_DIFFTIME type variable with double precision seconds

Parameters

[out]	diff	Created DC_DIFFTIME variable
[in]	sec	Seconds (double precision)

Definition at line 985 of file dcdatetimecreate.f90.

  use dc_types, only: dp
  use dc_date_types, only: dc_difftime
  use dc_date_generic, only: dcdifftimecreate
  use dc_scaledsec, only: dc_scaled_sec, assignment(=)
  implicit none
  type(DC_DIFFTIME), intent(out):: diff
  real(DP), intent(in):: sec
continue
  call dcdifftimecreate(diff, sec = sec)

References dc_types::dp.

dcdifftimecreatei()

subroutine dcdifftimecreatei	(	type(dc_difftime), intent(out)	diff,
		integer, intent(in)	sec )

Create DC_DIFFTIME type variable with integer seconds

Create dc_date_types#DC_DIFFTIME type variable. Specify seconds with sec argument. Use Create for year/month/day/hour/minute specification.

Parameters

[out]	diff	Created DC_DIFFTIME variable
[in]	sec	Seconds (integer)

Definition at line 929 of file dcdatetimecreate.f90.

  use dc_types, only: dp
  use dc_date_types, only: dc_difftime
  use dc_date_generic, only: dcdifftimecreate
  use dc_scaledsec, only: dc_scaled_sec, assignment(=)
  implicit none
  type(DC_DIFFTIME), intent(out):: diff
  integer, intent(in):: sec
continue
  call dcdifftimecreate(diff, sec = real(sec, dp) )

References dc_types::dp.

dcdifftimecreater()

subroutine dcdifftimecreater	(	type(dc_difftime), intent(out)	diff,
		real, intent(in)	sec )

Create DC_DIFFTIME type variable with single precision seconds

Create dc_date_types#DC_DIFFTIME type variable. Specify seconds with sec argument. Use Create for year/month/day/hour/minute specification.

Parameters

[out]	diff	Created DC_DIFFTIME variable
[in]	sec	Seconds (single precision)

Definition at line 962 of file dcdatetimecreate.f90.

  use dc_types, only: dp
  use dc_date_types, only: dc_difftime
  use dc_date_generic, only: dcdifftimecreate
  use dc_scaledsec, only: dc_scaled_sec, assignment(=)
  implicit none
  type(DC_DIFFTIME), intent(out):: diff
  real, intent(in):: sec
continue
  call dcdifftimecreate(diff, sec = real(sec, dp) )

References dc_types::dp.

get_current_time()

subroutine dcdatetimecreate1::get_current_time	(	integer, intent(out)	jyear,
		integer, intent(out)	jmon,
		integer, intent(out)	jday,
		real(dp), intent(out)	jsec,
		character(*), intent(out)	jzone )

Get current time using date_and_time intrinsic subroutine

Returns current time and timezone from UTC using date_and_time intrinsic subroutine.

Parameters

[out]	jyear	Year
[out]	jmon	Month
[out]	jday	Day
[out]	jsec	Second
[out]	jzone	Timezone

Definition at line 391 of file dcdatetimecreate.f90.

      use dc_types, only: dp
      use dc_string, only: stod
      implicit none
      integer, intent(out) :: jyear, jmon, jday
      real(DP), intent(out) :: jsec
      character(*), intent(out) :: jzone
 
      integer :: date_time_values(1:8)
      character(5)  :: zone_raw
    continue
 
      call date_and_time(zone=zone_raw, values=date_time_values)
 
      jzone = zone_raw(1:3) // ":" // zone_raw(4:5)
 
      jyear = date_time_values(1)
      jmon  = date_time_values(2)
      jday  = date_time_values(3)
      jsec  = real(date_time_values(5), dp) * hour_seconds &
        &     + real(date_time_values(6), dp) * min_seconds &
        &     + real(date_time_values(7), dp)
 

References dc_date_types::hour_seconds, and dc_date_types::min_seconds.