libsim  Versione6.3.0

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

724 
725 
726 ! set time, timerange%p1, timerange%p2 according to pstart, pend,
727 ! reftime and time_definition.
728 SUBROUTINE time_timerange_set_period(time, timerange, time_definition, &
729  pstart, pend, reftime)
730 TYPE(datetime),INTENT(out) :: time
731 TYPE(vol7d_timerange),INTENT(inout) :: timerange
732 INTEGER,INTENT(in) :: time_definition
733 TYPE(datetime),INTENT(in) :: reftime
734 TYPE(datetime),INTENT(in) :: pstart
735 TYPE(datetime),INTENT(in) :: pend
736 
737 TYPE(timedelta) :: p1, p2
738 INTEGER(kind=int_ll) :: dmsec
739 
740 
741 IF (time_definition == 0) THEN ! time == reference time
742  time = reftime
743  p1 = pend - reftime
744  p2 = pend - pstart
745 ELSE IF (time_definition == 1) THEN ! time == verification time
746  time = pend
747  p1 = pend - reftime
748  p2 = pend - pstart
749 ELSE
750  time = datetime_miss
751 ENDIF
752 
753 IF (time /= datetime_miss) THEN
754  CALL getval(p1, amsec=dmsec) ! end of period
755  timerange%p1 = int(dmsec/1000_int_ll)
756  CALL getval(p2, amsec=dmsec) ! length of period
757  timerange%p2 = int(dmsec/1000_int_ll)
758 ELSE
759  timerange%p1 = imiss
760  timerange%p2 = imiss
761 ENDIF
762 
763 END SUBROUTINE time_timerange_set_period
764 
765 
Restituiscono il valore dell'oggetto nella forma desiderata.

Generated with Doxygen.