libsim  Versione 7.1.7

◆ arrayof_ttr_mapper_delete()

subroutine, private stat_proc_engine::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
thisarray object to be destroyed
[in]nodeallocif 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.

705 ! old way
706  IF (nt == 1) THEN
707  max_step = pend - pstart
708  ELSE
709  half = lvertime(1) + (lvertime(2) - lvertime(1))/2
710  max_step = half - pstart
711  DO i = 2, nt - 1
712  nexthalf = lvertime(i) + (lvertime(i+1) - lvertime(i))/2
713  IF (nexthalf - half > max_step) max_step = nexthalf - half
714  half = nexthalf
715  ENDDO
716  IF (pend - half > max_step) max_step = pend - half
717  ENDIF
718 
719 ENDIF
720 
721 IF (PRESENT(weights)) THEN
722  IF (nt == 1) THEN
723  weights(1) = 1.0
724  ELSE
725  CALL getval(pend - pstart, amsec=tdt)
726  half = lvertime(1) + (lvertime(2) - lvertime(1))/2
727  CALL getval(half - pstart, amsec=dt)
728  weights(1) = dble(dt)/dble(tdt)
729  DO i = 2, nt - 1
730  nexthalf = lvertime(i) + (lvertime(i+1) - lvertime(i))/2
731  CALL getval(nexthalf - half, amsec=dt)
732  weights(i) = dble(dt)/dble(tdt)
733  half = nexthalf
734  ENDDO
735  CALL getval(pend - half, amsec=dt)
736  weights(nt) = dble(dt)/dble(tdt)
737  ENDIF
738 ENDIF
739 
740 END SUBROUTINE compute_stat_proc_agg_sw
741 
742 ! get start of period, end of period and reference time from time,
743 ! timerange, according to time_definition.
744 SUBROUTINE time_timerange_get_period(time, timerange, time_definition, &
745  pstart, pend, reftime)
746 TYPE(datetime),INTENT(in) :: time

Generated with Doxygen.