gtool_history_internal::set_fake_dim_value Interface Reference

Public Member Functions
subroutine	set_fake_dim_value (history, dimord)

Detailed Description

Definition at line 78 of file gtool_history_internal.f90.

Constructor & Destructor Documentation

set_fake_dim_value()

subroutine gtool_history_internal::set_fake_dim_value::set_fake_dim_value	(	type(gt_history), intent(inout)	history,
		integer, intent(in)	dimord
	)

Definition at line 248 of file gtool_history_internal.f90.

    !
    ! 次元 history % dimvars(dimord) に値が設定されていない場合、
    ! 「とりあえず」値を設定する。ただし、無制限次元 (時間次元)
    ! に関しては history % origin, history % interval, history % count
    ! から「まっとうな」値が設定される。
    !
    use gtdata_generic, only: inquire, slice, put
    use dc_error, only: dumperror
    use dc_types, only: dp
!    use dc_calendar, only: DCCalConvertByUnit
!    use dc_date, only: EvalByUnit
    type(GT_HISTORY), intent(inout):: history
    integer, intent(in):: dimord
    integer:: length, i
    real(DP), allocatable:: value(:)
    logical:: err
  continue
    if (dimord == history % unlimited_index) then
      if (.not. associated(history % count)) return
      length = maxval(history % count(:))
    else
      call inquire(history % dimvars(dimord), size=length)
    endif
    if (length == 0) return
    allocate(value(length))
    if (dimord == history % unlimited_index) then
      value(:) = (/(real(i, dp), i = 1, length)/)
      value(:) =   &
        &   history % origin &
        & + (value(:) - 1.0_dp) * history % interval
!!$      value(:) =   &
!!$        &   EvalByUnit( history % origin, '', history % unlimited_units_symbol ) &
!!$        & + (value(:) - 1.0) &
!!$        &   * EvalByUnit( history % interval, '', history % unlimited_units_symbol )
      call slice(history % dimvars(dimord), 1, start=1, count=length)
    else
      value(:) = (/(real(i, dp), i = 1, length)/)
    endif
    call put(history % dimvars(dimord), value, size(value), err)
    if (err) call dumperror
    deallocate(value)

References dc_types::dp.

---

The documentation for this interface was generated from the following file:

• /build/gtool5-1.0.0~rc5/debian/build-serial/src/gtool/gtool_history/gtool_history_internal.f90