◆ arrayof_ttr_mapper_insert_array()

subroutine, private 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.

 
! euristically determine whether we are dealing with an
! analysis/observation or a forecast dataset
na = count(mask_timerange(:) .AND. itimerange(:)%p1 == 0)
nf = count(mask_timerange(:) .AND. itimerange(:)%p1 > 0)
lforecast = nf >= na
#ifdef DEBUG
CALL l4f_log(l4f_debug, &
 'recompute_stat_proc_agg, na: '//t2c(na)//', nf: '//t2c(nf))
#endif
 
! 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