libsim Versione 7.2.6

◆ arrayof_ttr_mapper_append_unique()

integer function, private arrayof_ttr_mapper_append_unique ( type(arrayof_ttr_mapper) this,
type(ttr_mapper), intent(in) content )
private

Quick function to append an element to the array only if it is not present in the array yet.

The return value is the position at which the element has been appended or at which it has been found.

Parametri
thisarray object to extend
[in]contentobject of TYPE TYPE(ttr_mapper) to append

Definizione alla linea 580 del file stat_proc_engine.F90.

581 ENDDO
582
583! in next loop, we used initially steps instead of msteps (see comment
584! above), this gave much less combinations of time/timeranges with
585! possible empty output; we start from msteps instead of steps in
586! order to include partial initial intervals in case frac_valid<1;
587! however, as a gemeral rule, for aggregation of forecasts it's better
588! to use reference time
589 DO p1 = msteps, maxp1, msteps
590 CALL insert_unique(a_otimerange, vol7d_timerange_new(stat_proc, p1, steps))
591 ENDDO
592
593 ENDIF

Generated with Doxygen.