arrayof_ttr_mapper_append arrayof_ttr_mapper_append_unique arrayof_ttr_mapper_delete arrayof_ttr_mapper_insert arrayof_ttr_mapper_insert_array arrayof_ttr_mapper_insert_sorted arrayof_ttr_mapper_insert_unique arrayof_ttr_mapper_packarray arrayof_ttr_mapper_remove count_distinct_sorted_ttr_mapper count_distinct_ttr_mapper index_sorted_ttr_mapper index_ttr_mapper inssor_ttr_mapper map_distinct_ttr_mapper map_inv_distinct_ttr_mapper pack_distinct_sorted_ttr_mapper pack_distinct_ttr_mapper sort_ttr_mapper

arrayof_ttr_mapper_remove() subroutine, private stat_proc_engine::arrayof_ttr_mapper_remove ( type(arrayof_ttr_mapper)  this, integer, intent(in), optional  nelem, integer, intent(in), optional  pos  ) private 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, &