libsim  Versione6.3.0

◆ arrayof_ttr_mapper_remove()

subroutine arrayof_ttr_mapper_remove ( type(arrayof_ttr_mapper this,
integer, intent(in), optional  nelem,
integer, intent(in), optional  pos 
)

Method for removing elements of the array at a desired position.

If necessary, the array is reallocated to reduce space.

Parametri
thisarray object in which an element has to be removed
[in]nelemnumber of elements to remove, if not provided, a single element is removed
[in]posposition of the element to be removed, if it is out of range, it is clipped, if it is not provided, objects are removed at the end

Definizione alla linea 671 del file stat_proc_engine.F90.

671  pstart = time - p2
672  reftime = time - p1
673 ELSE
674  pstart = datetime_miss
675  pend = datetime_miss
676  reftime = datetime_miss
677 ENDIF
678 
679 END SUBROUTINE time_timerange_get_period
680 
681 
682 ! get start of period, end of period and reference time from time,
683 ! timerange, according to time_definition. step is taken separately
684 ! from timerange and can be "popular"
685 SUBROUTINE time_timerange_get_period_pop(time, timerange, step, time_definition, &
686  pstart, pend, reftime)
687 TYPE(datetime),INTENT(in) :: time
688 TYPE(vol7d_timerange),INTENT(in) :: timerange
689 TYPE(timedelta),INTENT(in) :: step
690 INTEGER,INTENT(in) :: time_definition
691 TYPE(datetime),INTENT(out) :: reftime
692 TYPE(datetime),INTENT(out) :: pstart
693 TYPE(datetime),INTENT(out) :: pend
694 
695 TYPE(timedelta) :: p1
696 
697 
698 p1 = timedelta_new(sec=timerange%p1) ! end of period
699 
700 IF (time == datetime_miss .OR. .NOT.c_e(timerange%p1) .OR. .NOT.c_e(timerange%p2) .OR. &
701 ! (timerange%p1 > 0 .AND. timerange%p1 < timerange%p2) .OR. &
702  timerange%p1 < 0 .OR. timerange%p2 < 0) THEN ! is this too pedantic and slow?
703  pstart = datetime_miss
704  pend = datetime_miss
705  reftime = datetime_miss
706  RETURN
707 ENDIF
708 
709 IF (time_definition == 0) THEN ! time == reference time
710  reftime = time
711  pend = time + p1
712  pstart = pend - step

Generated with Doxygen.