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_unique() subroutine, private arrayof_ttr_mapper_insert_unique ( type(arrayof_ttr_mapper) this, type(ttr_mapper), intent(in) content, integer, intent(in), optional pos ) private Method for inserting an element of the array at a desired position only if it is not present in the array yet. If necessary, the array is reallocated to accomodate the new element. Parametri this array object to extend [in] content object of TYPE TYPE(ttr_mapper) to insert [in] pos position where to insert, if it is out of range, it is clipped, if it is not provided, the object is appended Definizione alla linea 566 del file stat_proc_engine.F90. ! create output time and timerange lists IF (lforecast) THEN ! forecast mode IF (time_definition == 0) THEN ! reference time CALL insert(a_otime, itime) ! should I limit to elements itime >= lstart? ! apply start shift to timerange, not to reftime ! why did we use itime(SIZE(itime)) (last ref time)? ! CALL getval(lstart-itime(SIZE(itime)), asec=dstart) CALL getval(lstart-itime(1), asec=dstart) ! allow starting before first reftime but restrict dtstart to -steps ! dstart = MAX(0, dstart)