◆ arrayof_ttr_mapper_delete()

subroutine, private arrayof_ttr_mapper_delete	(	type(arrayof_ttr_mapper)	this,
		logical, intent(in), optional	nodealloc )

private

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

          IF (lforecast) THEN
            IF (reftime1 /= reftime2) cycle do_otime2
          ENDIF
 
          IF (climat_behavior .AND. pstart1 == pstart2) cycle do_otime2
          IF (pstart1 >= pstart2 .AND. pend1 <= pend2) THEN ! useful
            lmapper%it = k
            lmapper%itr = l
            IF (pstart1 == pstart2) THEN
              lmapper%extra_info = 1 ! start of interval
            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