arrayof_ttr_mapper_delete

arrayof_ttr_mapper_delete() subroutine arrayof_ttr_mapper_delete ( type(arrayof_ttr_mapper)  this, logical, intent(in), optional  nodealloc  ) Destructor for finalizing an array object. If defined, calls the destructor for every element of the array object; finally it deallocates all the space occupied. Parametri this array object to be destroyed [in] nodealloc if provided and .TRUE. , the space reserved for the array is not deallocated, thus the values are retained, while the array pointer is nullified, this means that the caller must have previously assigned the pointer contents thisarray to another pointer to prevent memory leaks Definizione alla linea 715 del file stat_proc_engine.F90. ELSE IF (pend1 == pend2) THEN lmapper%extra_info = 2 ! end of interval ELSE lmapper%extra_info = imiss ENDIF lmapper%time = pstart1 ! = pend1, order by time? n = insert_sorted(map_ttr(i,j), lmapper, .true., .true.) ! no CYCLE, a single input can contribute to multiple output intervals ENDIF ENDDO do_otime2 ENDDO do_otimerange2 ENDDO do_itime2 ENDDO do_itimerange2 ENDIF END SUBROUTINE recompute_stat_proc_agg_common SUBROUTINE compute_stat_proc_agg_sw(vertime, pstart, pend, time_mask, & max_step, weights) TYPE(datetime),INTENT(in) :: vertime(:) TYPE(datetime),INTENT(in) :: pstart TYPE(datetime),INTENT(in) :: pend LOGICAL,INTENT(in) :: time_mask(:) TYPE(timedelta),OPTIONAL,INTENT(out) :: max_step DOUBLE PRECISION,OPTIONAL,INTENT(out) :: weights(:) INTEGER :: i, nt TYPE(datetime),ALLOCATABLE :: lvertime(:) TYPE(datetime) :: half, nexthalf INTEGER(kind=int_ll) :: dt, tdt nt = count(time_mask) ALLOCATE(lvertime(nt)) lvertime = pack(vertime, mask=time_mask) IF (PRESENT(max_step)) THEN ! new way ! max_step = timedelta_0 ! DO i = 1, nt - 1 ! IF (lvertime(i+1) - lvertime(i) > max_step) &