◆ 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

	this	array object in which an element has to be removed
[in]	nelem	number of elements to remove, if not provided, a single element is removed
[in]	pos	position 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 662 del file stat_proc_engine.F90.

    ' possible aggregation ratios, from '// &
    t2c(dtratio(1))//' to '//t2c(dtratio(SIZE(dtratio))))
 #endif
   
   ALLOCATE(map_ttr(SIZE(otime),SIZE(otimerange)))
   do_itimerange1: DO l = 1, SIZE(itimerange)
     IF (.NOT.mask_timerange(l)) cycle do_itimerange1
     do_itime1: DO k = 1, SIZE(itime)
       CALL time_timerange_get_period(itime(k), itimerange(l), &
        time_definition, pstart1, pend1, reftime1)
       do_otimerange1: DO j = 1, SIZE(otimerange)
         do_otime1: DO i = 1, SIZE(otime)
           CALL time_timerange_get_period_pop(otime(i), otimerange(j), step, &
            time_definition, pstart2, pend2, reftime2)
           IF (lforecast) THEN
             IF (reftime1 /= reftime2) cycle do_otime1
           ENDIF
 
           IF (pstart1 >= pstart2 .AND. pend1 <= pend2 .AND. &
            mod(pstart1-pstart2, pend1-pstart1) == timedelta_0) THEN ! useful
             lmapper%it = k
             lmapper%itr = l
             lmapper%extra_info = steps/itimerange(l)%p2 ! dtratio, guaranteed to be integer
             n = append(map_ttr(i,j), lmapper)
             cycle do_itime1 ! can contribute only to a single interval
           ENDIF
         ENDDO do_otime1
       ENDDO do_otimerange1
     ENDDO do_itime1
   ENDDO do_itimerange1
 
 ELSE
   
   ALLOCATE(map_ttr(SIZE(otime),SIZE(otimerange)))
   do_itimerange2: DO l = 1, SIZE(itimerange)
     IF (.NOT.mask_timerange(l)) cycle do_itimerange2
     do_itime2: DO k = 1, SIZE(itime)
       CALL time_timerange_get_period(itime(k), itimerange(l), &
        time_definition, pstart1, pend1, reftime1)
       do_otimerange2: DO j = 1, SIZE(otimerange)
         do_otime2: DO i = 1, SIZE(otime)
           CALL time_timerange_get_period_pop(otime(i), otimerange(j), step, &