dcdatetimeputline.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	dcdatetimeputline (time, unit, indent)
	Print DC_DATETIME, DC_DIFFTIME information.
subroutine	dcdifftimeputline (diff, unit, indent)
subroutine	dcdatetimeputline_bc (time, unit)
subroutine	dcdifftimeputline_bc (diff, unit)

Function/Subroutine Documentation

dcdatetimeputline()

subroutine dcdatetimeputline	(	type(dc_datetime), intent(in)	time,
		integer, intent(in), optional	unit,
		character(*), intent(in), optional	indent )

Print DC_DATETIME, DC_DIFFTIME information.

Author

Yasuhiro MORIKAWA

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.

Print information of DC_DATETIME

Print the information set in the argument time. By default, messages are output to standard output. The output destination can be changed by specifying a unit number in unit.

Parameters

[in]	time	Datetime to print
[in]	unit	Unit number for output (default: standard output)
[in]	indent	Indentation for displayed messages

Definition at line 45 of file dcdatetimeputline.f90.

 
  use dc_date_types, only: dc_datetime
  use dc_date_generic, only: tochar
  use dc_string, only: printf
  use dc_trace, only: beginsub, endsub
  use dc_types, only: stdout, string
  use dc_scaledsec, only: dcscaledsecputline
  implicit none
  type(DC_DATETIME), intent(in) :: time
  integer, intent(in), optional :: unit
  character(*), intent(in), optional:: indent
 
  integer :: out_unit
  integer:: indent_len
  character(STRING):: indent_str
  character(*), parameter :: subname = 'DCDateTimePutLine'
continue
  call beginsub(subname)
  if (present(unit)) then
    out_unit = unit
  else
    out_unit = stdout
  end if
 
  indent_len = 0
  indent_str = ''
  if ( present(indent) ) then
    if ( len(indent) /= 0 ) then
      indent_len = len(indent)
      indent_str(1:indent_len) = indent
    end if
  end if
 
  call printf(out_unit, &
    & indent_str(1:indent_len) // &
    & '#<DC_DATETIME:: @date=%c @caltype=%d @zone=%c', &
    & i=(/time % caltype/), c1=trim(tochar(time)), c2=trim(time % zone) )
 
  call printf(out_unit, &
    & indent_str(1:indent_len) // &
    & '                @day=' )
  call dcscaledsecputline( time % day, unit = unit, &
    & indent = indent_str(1:indent_len) // &
    & '                     ' )
 
  call printf(out_unit, &
    & indent_str(1:indent_len) // &
    & '                @sec=' )
  call dcscaledsecputline( time % sec, unit = unit, &
    & indent = indent_str(1:indent_len) // &
    & '                     ' )
 
  call printf(out_unit, &
    & indent_str(1:indent_len) // '>' )
 
  call endsub(subname)

References dc_trace::beginsub(), dc_scaledsec::dcscaledsecputline(), dc_trace::endsub(), dc_types::stdout, and dc_types::string.

Here is the call graph for this function:

dcdatetimeputline_bc()

subroutine dcdatetimeputline_bc	(	type(dc_datetime), intent(in)	time,
		integer, intent(in), optional	unit )

Print DC_DATETIME (for backward compatibility)

Parameters

[in]	time	Datetime to print
[in]	unit	Unit number for output

Definition at line 205 of file dcdatetimeputline.f90.

  use dc_date_types, only: dc_datetime
  use dc_date_generic, only: dcdatetimeputline
  type(DC_DATETIME), intent(in) :: time
  integer, intent(in), optional :: unit
continue
  call dcdatetimeputline( time, unit )

dcdifftimeputline()

subroutine dcdifftimeputline	(	type(dc_difftime), intent(in)	diff,
		integer, intent(in), optional	unit,
		character(*), intent(in), optional	indent )

Print information of DC_DIFFTIME

Print the information set in the argument diff. By default, messages are output to standard output. The output destination can be changed by specifying a unit number in unit.

Parameters

[in]	diff	Time difference to print
[in]	unit	Unit number for output (default: standard output)
[in]	indent	Indentation for displayed messages

Definition at line 127 of file dcdatetimeputline.f90.

 
  use dc_date_types, only: dc_difftime
  use dc_date_generic, only: tochar
  use dc_string, only: printf
  use dc_trace, only: beginsub, endsub
  use dc_types, only: stdout, string
  use dc_scaledsec, only: dcscaledsecputline
  implicit none
  type(DC_DIFFTIME), intent(in) :: diff
  integer, intent(in), optional :: unit
  character(*), intent(in), optional:: indent
 
  integer :: out_unit
  integer:: indent_len
  character(STRING):: indent_str
  character(*), parameter :: subname = 'DCDiffTimePutLine'
continue
  call beginsub(subname)
  if (present(unit)) then
    out_unit = unit
  else
    out_unit = stdout
  end if
 
  indent_len = 0
  indent_str = ''
  if ( present(indent) ) then
    if ( len(indent) /= 0 ) then
      indent_len = len(indent)
      indent_str(1:indent_len) = indent
    end if
  end if
 
  call printf(out_unit, &
    & indent_str(1:indent_len) // &
    & '#<DC_DIFFTIME:: @diff=%c @nondim=%b', &
    & c1 = trim(tochar(diff)), l = (/ diff % nondim_flag /) )
 
  call printf(out_unit, &
    & indent_str(1:indent_len) // &
    & '                @mon=' )
  call dcscaledsecputline( diff % mon, unit = unit, &
    & indent = indent_str(1:indent_len) // &
    & '                     ' )
 
  call printf(out_unit, &
    & indent_str(1:indent_len) // &
    & '                @day=' )
  call dcscaledsecputline( diff % day, unit = unit, &
    & indent = indent_str(1:indent_len) // &
    & '                     ' )
 
  call printf(out_unit, &
    & indent_str(1:indent_len) // &
    & '                @sec=' )
  call dcscaledsecputline( diff % sec, unit = unit, &
    & indent = indent_str(1:indent_len) // &
    & '                     ' )
 
  call printf(out_unit, &
    & indent_str(1:indent_len) // '>' )
 
  call endsub(subname)

References dc_trace::beginsub(), dc_scaledsec::dcscaledsecputline(), dc_trace::endsub(), dc_types::stdout, and dc_types::string.

Here is the call graph for this function:

dcdifftimeputline_bc()

subroutine dcdifftimeputline_bc	(	type(dc_difftime), intent(in)	diff,
		integer, intent(in), optional	unit )

Print DC_DIFFTIME (for backward compatibility)

Parameters

[in]	diff	Time difference to print
[in]	unit	Unit number for output

Definition at line 224 of file dcdatetimeputline.f90.

  use dc_date_types, only: dc_difftime
  use dc_date_generic, only: dcdifftimeputline
  type(DC_DIFFTIME), intent(in) :: diff
  integer, intent(in), optional :: unit
continue
  call dcdifftimeputline( diff, unit )