dccaldatetochar.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
character(string) function	dccaldatetochar1 (year, month, day, hour, min, sec, zone)
	Convert date into a string.

Function/Subroutine Documentation

dccaldatetochar1()

character(string) function dccaldatetochar1	(	integer, intent(in)	year,
		integer, intent(in)	month,
		integer, intent(in)	day,
		integer, intent(in)	hour,
		integer, intent(in)	min,
		real(dp), intent(in)	sec,
		character(*), intent(in), optional	zone )

Convert date into a string.

Author

Yasuhiro MORIKAWA

Copyright

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

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

Convert date components to string

Convert year, month, day, hour, minute, second into a string (conformed to gtool4 netCDF Convention "5.5 Expression of date and time").

Parameters

[in]	year	Year
[in]	month	Month
[in]	day	Day
[in]	hour	Hour
[in]	min	Minute
[in]	sec	Second
[in]	zone	Time-zone (difference from UTC)

Returns

Strings that express date and time. See gtool4 netCDF Convention 5.5 Expression of date and time for details.

Definition at line 56 of file dccaldatetochar.f90.

 
  use dc_types, only: string, token, dp
  use dc_string, only: tochar, cprintf, stoa, roundnum
  use dc_message, only: messagenotify
  implicit none
  character(STRING):: result
  integer, intent(in):: year
  integer, intent(in):: month
  integer, intent(in):: day
  integer, intent(in):: hour
  integer, intent(in):: min
  real(DP), intent(in):: sec
  character(*), intent(in), optional:: zone
  integer:: csec_len
  character(STRING):: csec
  character(TOKEN):: zonew
continue
 
  if ( present(zone) ) then
    zonew = zone
  else
    zonew = ''
  end if
 
  csec = tochar(sec)
  csec = roundnum( csec )
  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, month, day, hour, min/), &
    & c1=trim(csec), c2=trim(zonew))
 

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