|
◆ arrayof_ttr_mapper_remove()
subroutine arrayof_ttr_mapper_remove |
( |
type(arrayof_ttr_mapper) |
this, |
|
|
integer, intent(in), optional |
nelem, |
|
|
integer, intent(in), optional |
pos |
|
) |
| |
Method for removing elements of the array at a desired position.
If necessary, the array is reallocated to reduce space.
- Parametri
-
| this | array object in which an element has to be removed |
[in] | nelem | number of elements to remove, if not provided, a single element is removed |
[in] | pos | position of the element to be removed, if it is out of range, it is clipped, if it is not provided, objects are removed at the end |
Definizione alla linea 671 del file stat_proc_engine.F90.
674 pstart = datetime_miss 676 reftime = datetime_miss 679 END SUBROUTINE time_timerange_get_period 685 SUBROUTINE time_timerange_get_period_pop(time, timerange, step, time_definition, & 686 pstart, pend, reftime) 687 TYPE(datetime), INTENT(in) :: time 688 TYPE(vol7d_timerange), INTENT(in) :: timerange 689 TYPE(timedelta), INTENT(in) :: step 690 INTEGER, INTENT(in) :: time_definition 691 TYPE(datetime), INTENT(out) :: reftime 692 TYPE(datetime), INTENT(out) :: pstart 693 TYPE(datetime), INTENT(out) :: pend 695 TYPE(timedelta) :: p1 698 p1 = timedelta_new(sec=timerange%p1) 700 IF (time == datetime_miss .OR. .NOT. c_e(timerange%p1) .OR. .NOT. c_e(timerange%p2) .OR. & 702 timerange%p1 < 0 .OR. timerange%p2 < 0) THEN 703 pstart = datetime_miss 705 reftime = datetime_miss 709 IF (time_definition == 0) THEN
|