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_insert_sorted() integer function, private arrayof_ttr_mapper_insert_sorted ( type(arrayof_ttr_mapper) this, type(ttr_mapper), intent(in) content, logical, intent(in) incr, logical, intent(in) back ) private Method for inserting an element of the array in a sorted manner. If necessary, the array is reallocated to accomodate the new element. It works under the assumption that the current content of the array is already sorted in the desired order. Parametri this array object to extend [in] content object of TYPE TYPE(ttr_mapper) to insert [in] incr insert in increasing order [in] back search position starting from end of array (optimization) Definizione alla linea 608 del file stat_proc_engine.F90. ! in next loop, we used initially steps instead of msteps (see comment ! above), this gave much less combinations of time/timeranges with ! possible empty output; we start from msteps instead of steps in ! order to include partial initial intervals in case frac_valid<1; ! however, as a gemeral rule, for aggregation of forecasts it's better ! to use reference time DO p1 = msteps, maxp1, msteps CALL insert_unique(a_otimerange, vol7d_timerange_new(stat_proc, p1, steps)) ENDDO ENDIF ELSE ! analysis mode tmptime = lstart + step DO WHILE(tmptime < lend) ! < since lend has been extended CALL insert_unique(a_otime, tmptime) tmptime = tmptime + step ENDDO CALL insert_unique(a_otimerange, vol7d_timerange_new(stat_proc, 0, steps)) ENDIF CALL packarray(a_otime) CALL packarray(a_otimerange) otime => a_otime%array otimerange => a_otimerange%array CALL sort(otime) CALL sort(otimerange) ! delete local objects keeping the contents CALL delete(a_otime, nodealloc=.true.) CALL delete(a_otimerange, nodealloc=.true.)