|
◆ arrayof_ttr_mapper_insert_array()
subroutine, private stat_proc_engine::arrayof_ttr_mapper_insert_array |
( |
type(arrayof_ttr_mapper) |
this, |
|
|
type(ttr_mapper), dimension(:), intent(in), optional |
content, |
|
|
integer, intent(in), optional |
nelem, |
|
|
integer, intent(in), optional |
pos |
|
) |
| |
|
private |
Method for inserting a number of elements of the array at a desired position.
If necessary, the array is reallocated to accomodate the new elements. - Parametri
-
| this | array object to extend |
[in] | content | object of TYPE TYPE(ttr_mapper) to insert, if not provided, space is reserved but not initialized |
[in] | nelem | number of elements to add, mutually exclusive with the previous parameter, if both are not provided, a single element is added without initialization |
[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 496 del file stat_proc_engine.F90.
497 lstart = lstart - timedelta_new(sec=maxp2)
499 IF (optio_log(full_steps) .AND. .NOT.lforecast) THEN
500 lstart = lstart - (mod(lstart, step))
505 CALL l4f_log(l4f_debug, &
506 'recompute_stat_proc_agg, processing period: '//t2c(lstart)// ' - '//t2c(lend))
512 IF (time_definition == 0) THEN
513 CALL insert(a_otime, itime)
518 CALL getval(lstart-itime(1), asec=dstart)
521 IF (dstart < 0) dstart = mod(dstart, steps)
522 DO p1 = steps + dstart, maxp1, steps
523 CALL insert_unique(a_otimerange, vol7d_timerange_new(stat_proc, p1, steps))
|