|
◆ 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 724 del file stat_proc_engine.F90.
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 737 TYPE(timedelta) :: p1, p2 738 INTEGER(kind=int_ll) :: dmsec 741 IF (time_definition == 0) THEN 745 ELSE IF (time_definition == 1) THEN 753 IF (time /= datetime_miss) THEN 754 CALL getval(p1, amsec=dmsec) 755 timerange%p1 = int(dmsec/1000_int_ll) 756 CALL getval(p2, amsec=dmsec) 757 timerange%p2 = int(dmsec/1000_int_ll) 763 END SUBROUTINE time_timerange_set_period Restituiscono il valore dell'oggetto nella forma desiderata.
|