libsim  Versione 7.1.6

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

Generated with Doxygen.