◆ arrayof_ttr_mapper_insert_array()

subroutine 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
	)

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 507 del file stat_proc_engine.F90.

 
 ! keep only timeranges of one type (really necessary?)
 IF (lforecast) THEN
   CALL l4f_log(l4f_info, &
    'recompute_stat_proc_agg, processing in forecast mode')
 ELSE
   mask_timerange(:) = mask_timerange(:) .AND. itimerange(:)%p1 == 0
   CALL l4f_log(l4f_info, &
    'recompute_stat_proc_agg, processing in analysis mode')
 ENDIF
 
 #ifdef DEBUG
 CALL l4f_log(l4f_debug, &
  '(re)compute_stat_proc_agg, number of useful timeranges: '// &
  t2c(count(mask_timerange)))
 #endif
 
 IF (SIZE(itime) == 0 .OR. count(mask_timerange) == 0) THEN ! avoid segmentation fault in case of empty volume
   ALLOCATE(otime(0), otimerange(0), map_ttr(0,0))
   IF (PRESENT(dtratio)) ALLOCATE(dtratio(0))
   RETURN
 ENDIF
 
 ! determine start and end of processing period, should work with p2==0
 lstart = datetime_miss
 IF (PRESENT(start)) lstart = start
 lend = itime(SIZE(itime))
 ! compute some quantities
 maxp1 = maxval(itimerange(:)%p1, mask=mask_timerange)
 maxp2 = maxval(itimerange(:)%p2, mask=mask_timerange)
 minp1mp2 = minval(itimerange(:)%p1 - itimerange(:)%p2, mask=mask_timerange)
 IF (time_definition == 0) THEN ! reference time
   lend = lend + timedelta_new(sec=maxp1)
 ENDIF