|
◆ 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 501 del file stat_proc_engine.F90.
505 lstart = datetime_miss 506 IF ( PRESENT(start)) lstart = start 507 lend = itime( SIZE(itime)) 509 maxp1 = maxval(itimerange(:)%p1, mask=mask_timerange) 510 maxp2 = maxval(itimerange(:)%p2, mask=mask_timerange) 511 minp1mp2 = minval(itimerange(:)%p1 - itimerange(:)%p2, mask=mask_timerange) 512 IF (time_definition == 0) THEN 513 lend = lend + timedelta_new(sec=maxp1) 519 IF (lstart == datetime_miss) THEN 522 IF (time_definition == 0) THEN 523 lstart = lstart + timedelta_new(sec=minp1mp2) 526 lstart = lstart - timedelta_new(sec=maxp2) 531 IF (optio_log(full_steps) .AND. .NOT.lforecast) THEN 532 lstart = lstart - (mod(lstart, step))
|