module CALENDAR More...

Functions/Subroutines
subroutine, public	calendar_setup
	Setup. More...

subroutine, public	calendar_getdayofyear (DayOfYear, iyear)
	Get day of year. More...

subroutine, public	calendar_date2daysec (absday, abssec, ymdhms, subsec, offset_year)
	Convert from gregorian date to absolute day/second. More...

subroutine, public	calendar_daysec2date (ymdhms, subsec, absday, abssec, offset_year)
	Convert from gregorian date to absolute day/second. More...

subroutine, public	calendar_ymd2absday (absday, gyear, gmonth, gday, oyear)
	Convert from gregorian date to absolute day, DAY 0 is AD1/1/1. More...

subroutine, public	calendar_hms2abssec (abssec, hour, minute, second, subsec)
	Hour, minute, second, subsecond -> absolute second. More...

subroutine, public	calendar_adjust_daysec (absday, abssec)
	Adjust day and second. More...

real(dp) function, public	calendar_combine_daysec (absday, abssec)
	Combine day and second. More...

subroutine, public	calendar_unit2sec (second, value, unit)
	Convert several units to second. More...

subroutine, public	calendar_sec2unit (value, second, unit)
	Convert several second to specified unit. More...

real(dp) function, public	calendar_cfunits2sec (cftime, cfunits, offset_year, startdaysec)
	Convert time in units of the CF convention to second. More...

subroutine, public	calendar_date2char (chardate, ymdhms, subsec)
	Convert from gregorian date to absolute day/second. More...

subroutine, public	calendar_get_name (name)

Variables
integer, parameter, public	i_year = 1
	[index] year More...

integer, parameter, public	i_month = 2
	[index] month More...

integer, parameter, public	i_day = 3
	[index] day More...

integer, parameter, public	i_hour = 4
	[index] hour More...

integer, parameter, public	i_min = 5
	[index] minute More...

integer, parameter, public	i_sec = 6
	[index] second More...

real(dp), public	calendar_doi = 365.0_DP
	days of year More...

real(dp), public	calendar_hour = 24.0_DP
	hours of day More...

real(dp), public	calendar_min = 60.0_DP
	minutes of hour More...

real(dp), public	calendar_sec = 60.0_DP
	seconds of minute More...

Detailed Description

module CALENDAR

Description: gregorian calendar module this module is available in gregorian calendar date

Author: Team SCALE

NAMELIST

PARAM_CALENDAR

name	type	default value	comment
CALENDAR_360DAYS	logical	.false.
CALENDAR_365DAYS	logical	.false.
CALENDAR_HOUR	real(DP)	24.0_DP	hours of day
CALENDAR_MIN	real(DP)	60.0_DP	minutes of hour
CALENDAR_SEC	real(DP)	60.0_DP	seconds of minute
CALENDAR_USER_DEFINED	integer, dimension(12)
DEBUG	logical	.false.

History Output: No history output

Function/Subroutine Documentation

◆ calendar_setup()

subroutine, public scale_calendar::calendar_setup

Setup.

Definition at line 95 of file scale_calendar.F90.

     use scale_prc, only: &
        prc_abort
     implicit none
  
     namelist / param_calendar / &
        calendar_360days,        &
        calendar_365days,        &
        calendar_hour,           &
        calendar_min,            &
        calendar_sec,            &
        calendar_user_defined,   &
        debug
  
     integer :: ierr, i
     !---------------------------------------------------------------------------
  
     log_newline
     log_info("CALENDAR_setup",*) 'Setup'
  
     calendar_user_defined(:) = 0
  
     !--- read namelist
     rewind(io_fid_conf)
     read(io_fid_conf,nml=param_calendar,iostat=ierr)
     if( ierr < 0 ) then !--- missing
        log_info("CALENDAR_setup",*) 'Not found namelist. Default used.'
     elseif( ierr > 0 ) then !--- fatal error
        log_error("CALENDAR_setup",*) 'Not appropriate names in namelist PARAM_CALENDAR. Check!'
        call prc_abort
     endif
     log_nml(param_calendar)
  
     log_newline
     log_info("CALENDAR_setup",*) 'Calendar settings'
     if ( maxval(calendar_user_defined) > 0 ) then
        dayofmonth(:,i_user) = calendar_user_defined(:)
        calendar_doi  = sum(calendar_user_defined)
        calendar_user = .true.
        log_info_cont(*) 'DayOfYear = ', int(calendar_doi), ' : user defined calendar'
        do i = 1, 12
           if ( calendar_user_defined(i) > 0 ) then
              log_info_cont(*) 'month #', i, ': ', calendar_user_defined(i), "days"
           else
              calendar_month = i - 1
              exit
           endif
        enddo
     elseif( calendar_360days ) then
        calendar_doi = 360.0_dp
        log_info_cont(*) 'DayOfYear = 360 : ideal setting'
     elseif( calendar_365days ) then
        calendar_doi = 365.0_dp
        log_info_cont(*) 'DayOfYear = 365 : ideal setting'
     else
        log_info_cont(*) 'DayOfYear = 365 or 366 : Gregorian calendar'
     endif
  
     if (int(calendar_sec) /= calendar_sec .or. int(calendar_sec) == 0 ) then
        log_error("CALENDAR_setup",*) 'CALENDAR_SEC must be a natural number!'
        call abort
     elseif (int(calendar_min) /= calendar_min .or. int(calendar_min) == 0 ) then
        log_error("CALENDAR_setup",*) 'CALENDAR_MIN must be a natural number!'
        call abort
     elseif (int(calendar_hour) /= calendar_hour .or. int(calendar_hour) == 0 ) then
        log_error("CALENDAR_setup",*) 'CALENDAR_HOUR must be a natural number!'
        call abort
     endif
  
  
     return

References calendar_doi, calendar_hour, calendar_min, calendar_sec, scale_io::io_fid_conf, and scale_prc::prc_abort().

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ calendar_getdayofyear()

subroutine, public scale_calendar::calendar_getdayofyear	(	real(dp), intent(out)	DayOfYear,
		integer, intent(in)	iyear
	)

Get day of year.

Definition at line 172 of file scale_calendar.F90.

     implicit none
  
     real(DP), intent(out) :: DayOfYear ! # of day of year
     integer,  intent(in)  :: iyear     ! current year
     !---------------------------------------------------------------------------
  
     dayofyear = calendar_doi
     if( checkleap(iyear) ) dayofyear = calendar_doi + 1.0_dp
  
     return

References calendar_doi.

◆ calendar_date2daysec()

subroutine, public scale_calendar::calendar_date2daysec	(	integer, intent(out)	absday,
		real(dp), intent(out)	abssec,
		integer, dimension(6), intent(in)	ymdhms,
		real(dp), intent(in)	subsec,
		integer, intent(in)	offset_year
	)

Convert from gregorian date to absolute day/second.

Parameters

[out]	absday	absolute day
[out]	abssec	absolute second
[in]	ymdhms	date
[in]	subsec	subsecond
[in]	offset_year	offset year

Definition at line 192 of file scale_calendar.F90.

     implicit none
  
     integer,  intent(out) :: absday
     real(DP), intent(out) :: abssec
     integer,  intent(in)  :: ymdhms(6)
     real(DP), intent(in)  :: subsec
     integer,  intent(in)  :: offset_year
     integer               :: ileap
     logical               :: date_error = .false.
     !---------------------------------------------------------------------------
  
     ! check date
     if ( ymdhms(i_month) < 1 .or. calendar_month < ymdhms(i_month) ) then
        log_error("CALENDAR_date2daysec",*) 'Inputted month does not match to the calendar.'
        date_error = .true.
     endif
  
     ileap = i_nonleapyear
     if( checkleap(ymdhms(i_year)+offset_year) ) ileap = i_leapyear
     if( calendar_360days     ) ileap = i_360days
     if( calendar_user        ) ileap = i_user
  
     if ( ymdhms(i_day ) < 1 .or. dayofmonth(ymdhms(i_month),ileap) < ymdhms(i_day) ) then
        log_error("CALENDAR_date2daysec",*) 'Inputted day does not match to the calendar.'
        date_error = .true.
     endif
     if ( ymdhms(i_hour) < 0 .or. (int(calendar_hour)-1) < ymdhms(i_hour) ) then
        log_error("CALENDAR_date2daysec",*) 'Inputted hour does not match to the calendar.'
        date_error = .true.
     endif
     if ( ymdhms(i_min ) < 0 .or. (int(calendar_min )-1) < ymdhms(i_min ) ) then
        log_error("CALENDAR_date2daysec",*) 'Inputted minute does not match to the calendar.'
        date_error = .true.
     endif
     if ( ymdhms(i_sec ) < 0 .or. (int(calendar_sec )-1) < ymdhms(i_sec ) ) then
        log_error("CALENDAR_date2daysec",*) 'Inputted second does not match to the calendar.'
        date_error = .true.
     endif
     if( date_error ) call abort
  
     call calendar_ymd2absday( absday,          & ! [OUT]
                               ymdhms(i_year),  & ! [IN]
                               ymdhms(i_month), & ! [IN]
                               ymdhms(i_day),   & ! [IN]
                               offset_year      ) ! [IN]
  
     call calendar_hms2abssec( abssec,          & ! [OUT]
                               ymdhms(i_hour),  & ! [IN]
                               ymdhms(i_min),   & ! [IN]
                               ymdhms(i_sec),   & ! [IN]
                               subsec           ) ! [IN]
  
     return

References calendar_hms2abssec(), calendar_hour, calendar_min, calendar_sec, calendar_ymd2absday(), i_day, i_hour, i_min, i_month, i_sec, and i_year.

Referenced by mod_admin_time::admin_time_setup(), scale_atmos_phy_rd_profile::atmos_phy_rd_profile_finalize(), scale_atmos_phy_rd_profile::atmos_phy_rd_profile_read(), scale_atmos_solarins::atmos_solarins_setup(), calendar_cfunits2sec(), scale_file_external_input::file_external_input_query(), scale_file_external_input::file_external_input_regist_file(), and scale_letkf::letkf_add_inflation_setup().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ calendar_daysec2date()

subroutine, public scale_calendar::calendar_daysec2date	(	integer, dimension(6), intent(out)	ymdhms,
		real(dp), intent(out)	subsec,
		integer, intent(in)	absday,
		real(dp), intent(in)	abssec,
		integer, intent(in)	offset_year
	)

Convert from gregorian date to absolute day/second.

Parameters

[out]	ymdhms	date
[out]	subsec	subsecond
[in]	absday	absolute day
[in]	abssec	absolute second
[in]	offset_year	offset year

Definition at line 255 of file scale_calendar.F90.

     implicit none
  
     integer,  intent(out) :: ymdhms(6)
     real(DP), intent(out) :: subsec
     integer,  intent(in)  :: absday
     real(DP), intent(in)  :: abssec
     integer,  intent(in)  :: offset_year
     !---------------------------------------------------------------------------
  
     call calendar_absday2ymd( ymdhms(i_year),  & ! [OUT]
                               ymdhms(i_month), & ! [OUT]
                               ymdhms(i_day),   & ! [OUT]
                               absday,          & ! [IN]
                               offset_year      ) ! [IN]
  
     call calendar_abssec2hms( ymdhms(i_hour),  & ! [OUT]
                               ymdhms(i_min),   & ! [OUT]
                               ymdhms(i_sec),   & ! [OUT]
                               subsec,          & ! [OUT]
                               abssec           ) ! [IN]
  
     return

References i_day, i_hour, i_min, i_month, i_sec, and i_year.

Referenced by mod_admin_time::admin_time_advance(), mod_admin_time::admin_time_setup(), scale_atmos_solarins::atmos_solarins_setup(), scale_file_external_input::file_external_input_query(), scale_file_external_input::file_external_input_regist_file(), and scale_letkf::letkf_add_inflation_setup().

Here is the caller graph for this function:

◆ calendar_ymd2absday()

subroutine, public scale_calendar::calendar_ymd2absday	(	integer, intent(out)	absday,
		integer, intent(in)	gyear,
		integer, intent(in)	gmonth,
		integer, intent(in)	gday,
		integer, intent(in)	oyear
	)

Convert from gregorian date to absolute day, DAY 0 is AD1/1/1.

Parameters

[out]	absday	absolute day
[in]	gyear	year
[in]	gmonth	month
[in]	gday	day
[in]	oyear	offset year

Definition at line 287 of file scale_calendar.F90.

     implicit none
  
     integer, intent(out) :: absday
     integer, intent(in)  :: gyear
     integer, intent(in)  :: gmonth
     integer, intent(in)  :: gday
     integer, intent(in)  :: oyear
  
     integer :: gyear_mod, gmonth_mod
     integer :: yearday, monthday
     integer :: m, ileap
     !---------------------------------------------------------------------------
  
     gmonth_mod = mod( gmonth-1, calendar_month ) + 1
     gyear_mod  = gyear + ( gmonth-gmonth_mod ) / calendar_month
  
     if ( calendar_360days .OR. calendar_365days .or. calendar_user) then
        yearday = int( calendar_doi * ( gyear_mod - oyear ) )
     else
        yearday = int( calendar_doi * ( gyear_mod - oyear ) ) &
                + int( real(gyear_mod-1,kind=dp) /   4.0_dp ) &
                - int( real(gyear_mod-1,kind=dp) / 100.0_dp ) &
                + int( real(gyear_mod-1,kind=dp) / 400.0_dp ) &
                - int( real(oyear    -1,kind=dp) /   4.0_dp ) &
                + int( real(oyear    -1,kind=dp) / 100.0_dp ) &
                - int( real(oyear    -1,kind=dp) / 400.0_dp )
     endif
  
     ileap = i_nonleapyear
     if( checkleap(gyear_mod) ) ileap = i_leapyear
     if( calendar_360days     ) ileap = i_360days
     if( calendar_user        ) ileap = i_user
  
     monthday = 0
     do m = 1, gmonth_mod-1
        monthday = monthday + dayofmonth(m,ileap)
     enddo
  
     absday = yearday + monthday + gday - 1
  
     return

References calendar_doi, and scale_precision::dp.

Referenced by scale_atmos_solarins::atmos_solarins_ecliptic_longitude(), calendar_date2char(), and calendar_date2daysec().

Here is the caller graph for this function:

◆ calendar_hms2abssec()

subroutine, public scale_calendar::calendar_hms2abssec	(	real(dp), intent(out)	abssec,
		integer, intent(in)	hour,
		integer, intent(in)	minute,
		integer, intent(in)	second,
		real(dp), intent(in)	subsec
	)

Hour, minute, second, subsecond -> absolute second.

Parameters

[out]	abssec	absolute second
[in]	subsec	subsecond

Definition at line 384 of file scale_calendar.F90.

     implicit none
  
     real(DP), intent(out) :: abssec
     integer,  intent(in)  :: hour
     integer,  intent(in)  :: minute
     integer,  intent(in)  :: second
     real(DP), intent(in)  :: subsec
     !---------------------------------------------------------------------------
  
     abssec = real(hour,  kind=dp) * calendar_min * calendar_sec &
            + real(minute,kind=dp) * calendar_sec                &
            + real(second,kind=dp)                               &
            + subsec
  
     return

References calendar_hour, calendar_min, calendar_sec, and scale_precision::dp.

Referenced by scale_atmos_solarins::atmos_solarins_ecliptic_longitude(), and calendar_date2daysec().

Here is the caller graph for this function:

◆ calendar_adjust_daysec()

subroutine, public scale_calendar::calendar_adjust_daysec	(	integer, intent(inout)	absday,
		real(dp), intent(inout)	abssec
	)

Adjust day and second.

Parameters

[in,out]	absday	absolute day
[in,out]	abssec	absolute second

Definition at line 442 of file scale_calendar.F90.

     implicit none
  
     integer,  intent(inout) :: absday
     real(DP), intent(inout) :: abssec
  
     integer :: addday
     !---------------------------------------------------------------------------
  
     addday = int( abssec / ( calendar_hour * calendar_min * calendar_sec ) )
  
     absday = absday + addday
  
     abssec = abssec - real(addday,kind=dp) * calendar_hour * calendar_min * calendar_sec
  
     if ( abssec < 0.0_dp ) then
        absday = absday - 1
        abssec = abssec + calendar_hour * calendar_min * calendar_sec
     endif
  
     return

References calendar_hour, calendar_min, calendar_sec, and scale_precision::dp.

Referenced by mod_admin_time::admin_time_advance(), mod_admin_time::admin_time_setup(), scale_file_external_input::file_external_input_query(), scale_file_external_input::file_external_input_regist_file(), and scale_letkf::letkf_add_inflation_setup().

Here is the caller graph for this function:

◆ calendar_combine_daysec()

real(dp) function, public scale_calendar::calendar_combine_daysec	(	integer, intent(in)	absday,
		real(dp), intent(in)	abssec
	)

Combine day and second.

Parameters

[in]	absday	absolute day
[in]	abssec	absolute second

Returns: absolute day.second

Definition at line 467 of file scale_calendar.F90.

     implicit none
  
     integer,  intent(in) :: absday
     real(DP), intent(in) :: abssec
     real(DP)             :: daysec
     !---------------------------------------------------------------------------
  
     daysec = real(absday,kind=dp) * calendar_sec * calendar_min * calendar_hour &
            + abssec
  
     return

References calendar_hour, calendar_min, calendar_sec, and scale_precision::dp.

Referenced by mod_admin_time::admin_time_advance(), mod_admin_time::admin_time_setup(), calendar_cfunits2sec(), scale_file_external_input::file_external_input_query(), and scale_file_external_input::file_external_input_regist_file().

Here is the caller graph for this function:

◆ calendar_unit2sec()

subroutine, public scale_calendar::calendar_unit2sec	(	real(dp), intent(out)	second,
		real(dp), intent(in)	value,
		character(len=*), intent(in)	unit
	)

Convert several units to second.

Parameters

[in] unit variable unit

Definition at line 486 of file scale_calendar.F90.

     use scale_prc, only: &
        prc_abort
     implicit none
  
     real(DP),         intent(out) :: second
     real(DP),         intent(in)  :: value
     character(len=*), intent(in)  :: unit
     !---------------------------------------------------------------------------
  
     select case(unit)
     case('MSEC')
        second = value * 1.e-3_dp
     case('SEC', 'seconds')
        second = value
     case('MIN')
        second = value * calendar_sec
     case('HOUR')
        second = value * calendar_sec * calendar_min
     case('DAY')
        second = value * calendar_sec * calendar_min * calendar_hour
     case default
        log_error("CALENDAR_unit2sec",*) 'Unsupported UNIT: ', trim(unit), ', ', value
        call prc_abort
     endselect
  
     return

References calendar_hour, calendar_min, calendar_sec, and scale_prc::prc_abort().

Referenced by mod_admin_time::admin_time_setup(), calendar_cfunits2sec(), scale_file_history::file_history_setup(), scale_land_dyn_bucket::land_dyn_bucket_setup(), scale_ocean_dyn_slab::ocean_dyn_slab_setup(), and scale_ocean_phy_ice_simple::ocean_phy_ice_setup().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ calendar_sec2unit()

subroutine, public scale_calendar::calendar_sec2unit	(	real(dp), intent(out)	value,
		real(dp), intent(in)	second,
		character(len=*), intent(in)	unit
	)

Convert several second to specified unit.

Definition at line 520 of file scale_calendar.F90.

     use scale_prc, only: &
        prc_abort
     implicit none
  
     real(DP),         intent(out) :: value
     real(DP),         intent( in) :: second
     character(len=*), intent( in) :: unit
     !---------------------------------------------------------------------------
  
     select case(trim(unit))
     case('MSEC', 'msec')
        value = second / 1.0e-3_dp
     case('SEC', 'seconds', 'sec', 's')
        value = second
     case('MIN', 'mins', 'min')
        value = second / calendar_sec
     case('HOUR', 'hours', 'hour', 'h')
        value = second / (calendar_sec * calendar_min)
     case('DAY', 'days', 'day')
        value = second / (calendar_sec * calendar_min * calendar_hour)
     case default
        log_error("CALENDAR_sec2unit",*) 'Unsupported UNIT: ', trim(unit), ', ', value
        call prc_abort
     endselect
  

References calendar_hour, calendar_min, calendar_sec, and scale_prc::prc_abort().

Referenced by scale_file_history::file_history_set_attribute_double().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ calendar_cfunits2sec()

real(dp) function, public scale_calendar::calendar_cfunits2sec	(	real(dp), intent(in)	cftime,
		character(len=*), intent(in)	cfunits,
		integer, intent(in)	offset_year,
		real(dp), intent(in), optional	startdaysec
	)

Convert time in units of the CF convention to second.

Definition at line 550 of file scale_calendar.F90.

     use scale_prc, only: &
        prc_abort
     implicit none
  
     real(DP),         intent(in) :: cftime
     character(len=*), intent(in) :: cfunits
     integer,          intent(in) :: offset_year
     real(DP),         intent(in), optional :: startdaysec
     real(DP)                     :: sec
  
     character(len=H_MID) :: tunit
     character(len=H_MID) :: buf
  
     integer  :: date(6)
     integer  :: day
     real(DP) :: sec0
  
     integer :: l
  
     intrinsic index
     !---------------------------------------------------------------------------
  
     l = index( cfunits, " since " )
     if ( l > 1 ) then ! untis is under the CF convension
        tunit = cfunits(1:l-1)
        buf   = cfunits(l+7:)
  
        l = index(buf,"-")
        if ( l /= 5 ) then
           log_error("CALENDAR_CFunits2sec",*) 'units for time is invalid (year)'
           log_error_cont(*) trim(cfunits)
           log_error_cont(*) trim(buf)
           call prc_abort
        end if
        read(buf(1:4),*) date(1) ! year
        buf = buf(6:)
  
        l = index(buf,"-")
        if ( l /= 3 ) then
           log_error("CALENDAR_CFunits2sec",*) 'units for time is invalid (month)'
           log_error_cont(*) trim(cfunits)
           log_error_cont(*) trim(buf)
           call prc_abort
        end if
        read(buf(1:2),*) date(2) ! month
        buf = buf(4:)
  
        l = index(buf," ")
        if ( l /= 3 ) then
           log_error("CALENDAR_CFunits2sec",*) 'units for time is invalid (day)'
           log_error_cont(*) trim(cfunits)
           log_error_cont(*) trim(buf)
           call prc_abort
        end if
        read(buf(1:2),*) date(3) ! day
        buf = buf(4:)
  
        l = index(buf,":")
        if ( l /= 3 ) then
           log_error("CALENDAR_CFunits2sec",*) 'units for time is invalid (hour)'
           log_error_cont(*) trim(cfunits)
           log_error_cont(*) trim(buf)
           call prc_abort
        end if
        read(buf(1:2),*) date(4) ! hour
        buf = buf(4:)
  
        l = index(buf,":")
        if ( l /= 3 ) then
           log_error("CALENDAR_CFunits2sec",*) 'units for time is invalid (min)'
           log_error_cont(*) trim(cfunits)
           log_error_cont(*) trim(buf)
           call prc_abort
        end if
        read(buf(1:2),*) date(5) ! min
        buf = buf(4:)
  
        if ( len_trim(buf) /= 2 ) then
           log_error("CALENDAR_CFunits2sec",*) 'units for time is invalid (sec)'
           log_error_cont(*) trim(cfunits)
           log_error_cont(*) trim(buf)
           log_error_cont(*) len_trim(buf)
           call prc_abort
        end if
        read(buf(1:2),*) date(6) ! sec
  
        call calendar_date2daysec( day,        & ! (out)
                                   sec0,       & ! (out)
                                   date(:),    & ! (in)
                                   0.0_dp,     & ! (in)
                                   offset_year ) ! (in)
  
        sec0 = calendar_combine_daysec( day, sec0 )
     else
        tunit = cfunits
        if ( present(startdaysec) ) then
           sec0 = startdaysec
        else
           sec0 = 0.0_dp
        end if
     end if
  
     call calendar_unit2sec( sec, cftime, tunit )
  
     sec = sec0 + sec
  
     return

References calendar_combine_daysec(), calendar_date2daysec(), calendar_unit2sec(), and scale_prc::prc_abort().

Referenced by mod_admin_time::admin_time_setup(), scale_file_external_input::file_external_input_query(), and scale_file_external_input::file_external_input_regist_file().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ calendar_date2char()

subroutine, public scale_calendar::calendar_date2char	(	character(len=27), intent(out)	chardate,
		integer, dimension(6), intent(in)	ymdhms,
		real(dp), intent(in)	subsec
	)

Convert from gregorian date to absolute day/second.

Parameters

[out]	chardate	formatted date character
[in]	ymdhms	date
[in]	subsec	subsecond

Definition at line 665 of file scale_calendar.F90.

     implicit none
  
     character(len=27), intent(out) :: chardate
     integer,           intent(in)  :: ymdhms(6)
     real(DP),          intent(in)  :: subsec
  
     character(len=4)               :: seclen
     character(len=4)               :: minlen
     character(len=4)               :: hourlen
     character(len=4)               :: daylen
     character(len=4)               :: monthlen
  
  
     !---------------------------------------------------------------------------
     if ( calendar_user) then
        write(daylen, '(A1,I1.1,A1,I1.1)') 'I', int(log10(real(maxval(calendar_user_defined))))+1, &
                                           '.', int(log10(real(maxval(calendar_user_defined))))+1
        if( calendar_month < 10 ) then
           write(monthlen, '(A4)') 'I1.1'
        else
           write(monthlen, '(A4)') 'I2.2'
        endif
     else
        write(daylen,   '(A4)') 'I2.2'
        write(monthlen, '(A4)') 'I2.2'
     endif
  
     write(seclen, '(A1,I1.1,A1,I1.1)') 'I', int(log10(max(calendar_sec -1.0_dp, 1.0_dp)))+1, &
                                        '.', int(log10(max(calendar_sec -1.0_dp, 1.0_dp)))+1
     write(minlen, '(A1,I1.1,A1,I1.1)') 'I', int(log10(max(calendar_min -1.0_dp, 1.0_dp)))+1, &
                                        '.', int(log10(max(calendar_min -1.0_dp, 1.0_dp)))+1
     write(hourlen,'(A1,I1.1,A1,I1.1)') 'I', int(log10(max(calendar_hour-1.0_dp, 1.0_dp)))+1, &
                                        '.', int(log10(max(calendar_hour-1.0_dp, 1.0_dp)))+1
  
 !    write(chardate,'(I4.4,A1,I2.2,A1,I2.2,A1,I2.2,A1,I2.2,A1,I2.2,A2,F6.3)')   &
     write(chardate,'(I4.4,A1,'//monthlen//',A1,'//daylen//',A1,'//hourlen//',A1,'//minlen//',A1,'//seclen//',A2,F6.3)') &
                        ymdhms(1),'/',ymdhms(2),'/',ymdhms(3),' ',  &
                        ymdhms(4),':',ymdhms(5),':',ymdhms(6),' +', &
                        subsec
  
     return

References calendar_hour, calendar_min, calendar_sec, calendar_ymd2absday(), scale_precision::dp, i_day, i_hour, i_min, i_month, i_sec, and i_year.

Referenced by mod_admin_time::admin_time_checkstate(), mod_admin_time::admin_time_setup(), and scale_atmos_solarins::atmos_solarins_setup().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ calendar_get_name()

subroutine, public scale_calendar::calendar_get_name ( character(len=*), intent(out) name )

Definition at line 806 of file scale_calendar.F90.

     character(len=*), intent(out) :: name
  
     if    ( calendar_360days ) then
        name = "360_day"
     elseif( calendar_365days ) then
        name = "365_day"
     elseif( calendar_user    ) then
        name = "USER_DEFINED"
     else
        name = "gregorian"
     endif
  
     return

Referenced by scale_file_cartesc::file_cartesc_create(), scale_file_history_cartesc::file_history_cartesc_setup(), and scale_file_history_cartesc::file_history_cartesc_truncate_3d().

Here is the caller graph for this function:

Variable Documentation

◆ i_year

integer, parameter, public scale_calendar::i_year = 1

[index] year

Definition at line 45 of file scale_calendar.F90.

45 integer, public, parameter :: I_year = 1

Referenced by scale_atmos_solarins::atmos_solarins_ecliptic_longitude(), calendar_date2char(), calendar_date2daysec(), calendar_daysec2date(), scale_file_external_input::file_external_input_query(), and scale_file_external_input::file_external_input_regist_file().

◆ i_month

integer, parameter, public scale_calendar::i_month = 2

[index] month

Definition at line 46 of file scale_calendar.F90.

46 integer, public, parameter :: I_month = 2

Referenced by scale_atmos_solarins::atmos_solarins_ecliptic_longitude(), calendar_date2char(), calendar_date2daysec(), calendar_daysec2date(), scale_file_external_input::file_external_input_query(), and scale_file_external_input::file_external_input_regist_file().

◆ i_day

integer, parameter, public scale_calendar::i_day = 3

[index] day

Definition at line 47 of file scale_calendar.F90.

47 integer, public, parameter :: I_day = 3

Referenced by scale_atmos_solarins::atmos_solarins_ecliptic_longitude(), calendar_date2char(), calendar_date2daysec(), calendar_daysec2date(), scale_file_external_input::file_external_input_query(), and scale_file_external_input::file_external_input_regist_file().

◆ i_hour

integer, parameter, public scale_calendar::i_hour = 4

[index] hour

Definition at line 48 of file scale_calendar.F90.

48 integer, public, parameter :: I_hour = 4

Referenced by scale_atmos_solarins::atmos_solarins_ecliptic_longitude(), calendar_date2char(), calendar_date2daysec(), and calendar_daysec2date().

◆ i_min

integer, parameter, public scale_calendar::i_min = 5

[index] minute

Definition at line 49 of file scale_calendar.F90.

49 integer, public, parameter :: I_min = 5

Referenced by scale_atmos_solarins::atmos_solarins_ecliptic_longitude(), calendar_date2char(), calendar_date2daysec(), and calendar_daysec2date().

◆ i_sec

integer, parameter, public scale_calendar::i_sec = 6

[index] second

Definition at line 50 of file scale_calendar.F90.

50 integer, public, parameter :: I_sec = 6

Referenced by scale_atmos_solarins::atmos_solarins_ecliptic_longitude(), calendar_date2char(), calendar_date2daysec(), and calendar_daysec2date().

◆ calendar_doi

real(dp), public scale_calendar::calendar_doi = 365.0_DP

days of year

Definition at line 52 of file scale_calendar.F90.

52 real(DP), public :: CALENDAR_DOI = 365.0_dp

Referenced by scale_atmos_solarins::atmos_solarins_setup(), calendar_getdayofyear(), calendar_setup(), and calendar_ymd2absday().

◆ calendar_hour

real(dp), public scale_calendar::calendar_hour = 24.0_DP

hours of day

Definition at line 53 of file scale_calendar.F90.

53 real(DP), public :: CALENDAR_HOUR = 24.0_dp

Referenced by scale_atmos_solarins::atmos_solarins_setup(), calendar_adjust_daysec(), calendar_combine_daysec(), calendar_date2char(), calendar_date2daysec(), calendar_hms2abssec(), calendar_sec2unit(), calendar_setup(), and calendar_unit2sec().

◆ calendar_min

real(dp), public scale_calendar::calendar_min = 60.0_DP

minutes of hour

Definition at line 54 of file scale_calendar.F90.

54 real(DP), public :: CALENDAR_MIN = 60.0_dp

Referenced by scale_atmos_solarins::atmos_solarins_setup(), calendar_adjust_daysec(), calendar_combine_daysec(), calendar_date2char(), calendar_date2daysec(), calendar_hms2abssec(), calendar_sec2unit(), calendar_setup(), and calendar_unit2sec().

◆ calendar_sec

real(dp), public scale_calendar::calendar_sec = 60.0_DP

seconds of minute

Definition at line 55 of file scale_calendar.F90.

55 real(DP), public :: CALENDAR_SEC = 60.0_dp

Referenced by scale_atmos_solarins::atmos_solarins_setup(), calendar_adjust_daysec(), calendar_combine_daysec(), calendar_date2char(), calendar_date2daysec(), calendar_hms2abssec(), calendar_sec2unit(), calendar_setup(), and calendar_unit2sec().

Functions/Subroutines

Variables

Detailed Description

Function/Subroutine Documentation

◆ calendar_setup()

◆ calendar_getdayofyear()

◆ calendar_date2daysec()

◆ calendar_daysec2date()

◆ calendar_ymd2absday()

◆ calendar_hms2abssec()

◆ calendar_adjust_daysec()

◆ calendar_combine_daysec()

◆ calendar_unit2sec()

◆ calendar_sec2unit()

◆ calendar_cfunits2sec()

◆ calendar_date2char()

◆ calendar_get_name()

Variable Documentation

◆ i_year

◆ i_month

◆ i_day

◆ i_hour

◆ i_min

◆ i_sec

◆ calendar_doi

◆ calendar_hour

◆ calendar_min

◆ calendar_sec