dcdatetimetochar.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
character(string) function	dcdatetimetochar (time)
	Convert DC_DATETIME, DC_DIFFTIME to character strings.
character(string) function	dcdifftimetochar (diff)
character(token) function	dcdatetimetocharcal (time, upcase)

Function/Subroutine Documentation

dcdatetimetochar()

character(string) function dcdatetimetochar

(

type(dc_datetime), intent(in)

time

)

Convert DC_DATETIME, DC_DIFFTIME to character strings.

Author

Yasuhiro MORIKAWA

Copyright

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

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

Convert DC_DATETIME to character string

Convert a dc_date_types#DC_DATETIME variable to a character variable and return it. The format is a complete notation according to JIS X 0301 as follows:

YYYY-MM-DDThh:mm:ss.sTZD

YYYY is year, MM is month, DD is day, hh is hour, mm is minute, ss.s is seconds, and TZD is timezone.

Parameters

[in]

time

Datetime to convert

Returns

Character representation of the datetime

Definition at line 52 of file dcdatetimetochar.f90.

 
  use dc_types, only: string, token, dp
  use dc_string, only: tochar, cprintf, stoa
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_datetime
  use dc_message, only: messagenotify
  implicit none
  character(STRING):: result
  type(DC_DATETIME), intent(in):: time
 
  integer :: year, mon, day, hour, min, csec_len
  real(DP):: sec
  character(TOKEN) :: zone
  character(STRING) :: csec
continue
 
  call eval(time, &
    & year=year, mon=mon, day=day, hour=hour, min=min, sec=sec, zone=zone)
 
  csec = tochar(sec)
  if ( trim(csec) == '-0.' ) csec = '0.'
  do while ( index('123456789.', csec(len_trim(csec):len_trim(csec)) ) == 0 )
    if ( len_trim(csec) < 2 ) exit
    csec = csec(1:len_trim(csec)-1)
  end do
  if (int(sec) > -1 .and. int(sec) < 10) then
    if (len_trim(csec) >= len(csec)) then
      csec = '0' // trim(csec(1:len(csec) - 1))
    else
      csec = '0' // trim(csec)
    end if
  end if
  csec_len = len(trim(adjustl(csec)))
  if (csec(csec_len:csec_len) == '.') csec = csec(1:csec_len-1)
 
  result = cprintf('%04d-%02d-%02dT%02d:%02d:%c%c', &
    & i=(/year, mon, day, hour, min/), &
    & c1=trim(csec), c2=trim(zone))
 

References dc_types::dp, dc_types::string, and dc_types::token.

dcdatetimetocharcal()

character(token) function dcdatetimetocharcal	(	type(dc_datetime), intent(in)	time,
		logical, intent(in), optional	upcase )

Convert calendar type of DC_DATETIME to character string

Return the calendar type of a dc_date_types#DC_DATETIME variable as a character string. Currently supported calendars are as follows. Left is the integer variable representing the calendar, right is the returned string. If .true. is given to upcase, the string is returned in uppercase.

Calendar type constant	Returned string
dc_date_types#CAL_CYCLIC	cyclic
dc_date_types#CAL_NOLEAP	noleap
dc_date_types#CAL_JULIAN	julian
dc_date_types#CAL_GREGORIAN	gregorian

Parameters

[in]	time	Datetime whose calendar type to convert
[in]	upcase	If .true., return uppercase string

Returns

Calendar type as character string

Definition at line 243 of file dcdatetimetochar.f90.

 
  use dc_types, only: token
  use dc_present, only: present_and_true
  use dc_date_types, only: dc_datetime, &
    & cal_cyclic, cal_noleap, cal_julian, cal_gregorian
  use dc_string, only: toupper
  character(TOKEN) :: result
  type(DC_DATETIME), intent(in):: time
  logical, intent(in), optional:: upcase
continue
  select case( time % caltype )
  case(cal_cyclic)
    result = 'cyclic'
  case(cal_noleap)
    result = 'noleap'
  case(cal_julian)
    result = 'julian'
  case(cal_gregorian)
    result = 'gregorian'
  case default
    result = 'none'
  end select
 
  if ( present_and_true(upcase) ) then
    call toupper(result) ! (inout)
  end if
 

References dc_date_types::cal_cyclic, dc_date_types::cal_gregorian, dc_date_types::cal_julian, dc_date_types::cal_noleap, dc_present::present_and_true(), and dc_types::token.

Here is the call graph for this function:

dcdifftimetochar()

character(string) function dcdifftimetochar

(

type(dc_difftime), intent(in)

diff

)

Convert DC_DIFFTIME to character string

Convert a dc_date_types#DC_DIFFTIME variable to a character variable and return it. The format is as follows:

+YYYY-MM-DDThh:mm:ss.s
-YYYY-MM-DDThh:mm:ss.s

YYYY is year, MM is month, DD is day, hh is hour, mm is minute, ss.s is seconds. Note that DD may exceed 2 digits. (dc_date_types#DC_DIFFTIME is a data type for expressing "X months later", "X days before", etc., so it does not carry up days to months or carry down months to days. It also does not hold "year" information. The number of days in a year or month is determined by the dc_date_types#DC_DATETIME side).

If the unit was set to '1' in DCDiffTimeCreate, it is treated as non-dimensional time, so the format becomes:

ss.s

Parameters

[in]

diff

Time difference to convert

Returns

Character representation of the time difference

Definition at line 147 of file dcdatetimetochar.f90.

 
  use dc_types, only: string, dp
  use dc_string, only: tochar, cprintf, stoa
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_difftime
  use dc_scaledsec, only: assignment(=)
  implicit none
  character(STRING):: result
  type(DC_DIFFTIME), intent(in):: diff
 
  integer :: year, mon, day, hour, min, csec_len
  real(DP):: sec
  character(STRING) :: csec
  character(1) :: pm
continue
 
  if ( .not. diff % nondim_flag ) then
    call eval(diff, year=year, mon=mon, day=day, hour=hour, min=min, sec=sec)
 
    if ( year < 0 .or. mon < 0 .or. day < 0 .or.  &
      &  hour < 0 .or. min < 0 .or. sec < 0         ) then
      year=abs(year) ; mon=abs(mon) ; day=abs(day)
      hour=abs(hour) ; min=abs(min) ; sec=abs(sec)
      pm = '-'
    else
      pm = '+'
    end if
 
    csec = tochar(sec)
    if ( trim(csec) == '-0.' ) csec = '0.'
    do while ( index('123456789.', csec(len_trim(csec):len_trim(csec)) ) == 0 )
      if ( len_trim(csec) < 2 ) exit
      csec = csec(1:len_trim(csec)-1)
    end do
    if (int(sec) > -1 .and. int(sec) < 10) then
      if (len_trim(csec) >= len(csec)) then
        csec = '0' // trim(csec(1:len(csec) - 1))
      else
        csec = '0' // trim(csec)
      end if
    end if
    csec_len = len(trim(adjustl(csec)))
    if (csec(csec_len:csec_len) == '.') csec = csec(1:csec_len-1)
 
    result = cprintf('%c%04d-%02d-%02dT%02d:%02d:%c', &
      & i=(/year, mon, day, hour, min/), &
      & c1=pm, c2=trim(csec))
  else
    sec = diff % sec
    result = tochar( sec )
  end if
 

References dc_types::dp, and dc_types::string.