dccaldateparsestr.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	dccaldateparsestr1 (date_str, year, month, day, hour, min, sec, zone, err)
	Parse strings of date.

Function/Subroutine Documentation

dccaldateparsestr1()

subroutine dccaldateparsestr1	(	character(*), intent(in)	date_str,
		integer, intent(out)	year,
		integer, intent(out)	month,
		integer, intent(out)	day,
		integer, intent(out)	hour,
		integer, intent(out)	min,
		real(dp), intent(out)	sec,
		character(*), intent(out)	zone,
		logical, intent(out), optional	err )

Parse strings of date.

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.

Parse date string

Parse strings of date (conformed to gtool4 netCDF Convention "5.5 Expression of date and time") specified as date_str, and return year – zone.

Parameters

[in]	date_str	Strings that express date and time. See gtool4 netCDF Convention 5.5 Expression of date and time for details.
[out]	year	Year
[out]	month	Month
[out]	day	Day
[out]	hour	Hour
[out]	min	Minute
[out]	sec	Second
[out]	zone	Time-zone (difference from UTC)
[out]	err	Exception handling flag. By default, when error occur in this procedure, the program aborts. If this err argument is given, .true. is substituted to err and the program does not abort.

Definition at line 66 of file dccaldateparsestr.f90.

 
  use dc_regex, only: match
  use dc_message, only: messagenotify
  use dc_string, only: lchar, stoi, stod
  use dc_trace, only: beginsub, endsub, dbgmessage
  use dc_error, only: storeerror, dc_noerr, dc_ebaddate
  use dc_types, only: string, dp, token
  implicit none
  character(*), intent(in):: date_str
  integer, intent(out):: year
  integer, intent(out):: month
  integer, intent(out):: day
  integer, intent(out):: hour
  integer, intent(out):: min
  real(DP), intent(out):: sec
  character(*), intent(out):: zone
  logical, intent(out), optional:: err
 
  ! 作業変数
  ! Work variables
  !
  integer:: start, length
  character(STRING):: str1, str2
  character(TOKEN):: zone_pm, zone_hrs, zone_min
  integer:: stat
  character(STRING):: cause_c
  character(*), parameter:: subname = 'DCCalDateParseStr1'
continue
  call beginsub( subname )
  stat = dc_noerr
  cause_c = ''
 
  ! 与えられた文字列が日時表現として有効かどうかをチェック
  ! Check validation of strings as an expression of date
  !
  call match( '[-]*#d+-#d+-#d+[#w#s]+#d+:#d+:#d+', date_str, & ! (in)
    &         start, length ) ! (out)
 
  if ( length > 0 ) then
    str1 = date_str(start:)
  else
    stat = dc_ebaddate
    call messagenotify('W', subname, &
      & 'date_str=<%c> is invalid expression as date.', &
      & c1 = trim(date_str) )
    goto 999
  end if
 
  ! 年の解釈
  ! Parse year
  !
  call match( '^[-]*#d+-', str1, & ! (in)
    &         start, length ) ! (out)
  str2 = str1(start:start+length-2)
  str1 = str1(start+length:)
  year = stoi(str2)
 
  ! 月の解釈
  ! Parse month
  !
  call match( '^#d+-', str1, & ! (in)
    &         start, length ) ! (out)
  str2 = str1(start:start+length-2)
  str1 = str1(start+length:)
  month = stoi(str2)
 
  ! 日の解釈
  ! Parse day
  !
  call match( '^#d+[#w#s]', str1, & ! (in)
    &         start, length ) ! (out)
  str2 = str1(start:start+length-2)
  str1 = str1(start+length:)
  day = stoi(str2)
 
  ! 時の解釈
  ! Parse hour
  !
  call match( '#d+:', str1, & ! (in)
    &         start, length ) ! (out)
  str2 = str1(start:start+length-2)
  str1 = str1(start+length:)
  hour = stoi(str2)
 
  ! 分の解釈
  ! Parse minute
  !
  call match( '#d+:', str1, & ! (in)
    &         start, length ) ! (out)
  str2 = str1(start:start+length-2)
  str1 = str1(start+length:)
  min = stoi(str2)
 
  ! 秒の解釈
  ! Parse min
  !
  call match( '#d+', str1, & ! (in)
    &         start, length ) ! (out)
  str2 = str1(start:start+length-1)
  str1 = str1(start+length:)
 
  call match( '^#.#d+', str1, & ! (in)
    &         start, length ) ! (out)
 
  if ( length > 0 ) then
    str2 = trim(str2) // str1(start:start+length-1)
    str1 = str1(start+length:)
  end if
  sec = stod(str2)
 
  ! UTC からの時差の解釈
  ! Parse time-zone difference
  !
  call match( '[#+-]#d+:#d+', str1, & ! (in)
    &         start, length ) ! (out)
  if ( length > 0 ) then
    zone_pm = str1(start:start)
    str1 = str1(start+1:start+length-1)
 
    call match( '^#d+:', str1, & ! (in)
      &         start, length ) ! (out)
    zone_hrs = str1(start:start+length-2)
    zone_min = str1(start+length:)
    zone = trim(zone_pm) // trim(zone_hrs) // ':' // trim(zone_min)
  else
    zone = ''
  end if
 
  call dbgmessage('year=<%d> month=<%d> day=<%d> hour=<%d> min=<%d> sec=<%f>' // &
    & ' zone=<%c>', &
    & i = (/year, month, day, hour, min/), d = (/sec/), &
    & c1 = trim(zone) )
 
  ! 終了処理, 例外処理
  ! Termination and Exception handling
  !
999 continue
  call storeerror( stat, subname, err, cause_c )
  call endsub( subname )

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_ebaddate, dc_error::dc_noerr, dc_types::dp, dc_trace::endsub(), dc_regex::match(), dc_error::storeerror(), dc_types::string, and dc_types::token.

Here is the call graph for this function: