arrayof_ttr_mapper_remove

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 647 del file stat_proc_engine.F90. ENDDO CALL packarray(a_dtratio) dtratio => a_dtratio%array CALL sort(dtratio) ! delete local object keeping the contents CALL delete(a_dtratio, nodealloc=.true.) #ifdef DEBUG CALL l4f_log(l4f_debug, & 'recompute_stat_proc_agg, found '//t2c(size(dtratio))// & ' 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