libsim  Versione 7.1.7

◆ arrayof_gridinfo_packarray()

subroutine, private gridinfo_class::arrayof_gridinfo_packarray ( type(arrayof_gridinfo this)
private

Method for packing the array object reducing at a minimum the memory occupation, without destroying its contents.

The value of this::overalloc remains unchanged. After the call to the method, the object can continue to be used, extended and shortened as before. If the object is empty the array is allocated to zero length.

Parametri
thisobject to be packed

Definizione alla linea 646 del file gridinfo_class.F90.

647 ! "accumulated" analysis is such that reftime points to the end of the
648 ! interval, so no time shift in that case
649  CALL grib_get(gaid,'lengthOfTimeRange',p2g)
650  CALL grib_get(gaid,'indicatorOfUnitForTimeRange',unit)
651  CALL g2_interval_to_second(unit, p2g, p2)
652  CALL grib_get(gaid,'centre',centre)
653  IF (centre /= 78) THEN
654  this = this + timedelta_new(sec=p2)
655  ENDIF
656  ELSE IF ((status == grib_success .AND. ttimeincr == 2) .OR. &
657  status /= grib_success) THEN ! usual case
658 ! do nothing

Generated with Doxygen.