libsim Versione 7.2.4

◆ arrayof_gridinfo_packarray()

subroutine arrayof_gridinfo_packarray ( type(arrayof_gridinfo) this)

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 640 del file gridinfo_class.F90.

641! old libsim convention, to be removed sometime in the future
642 CALL grib_get(gaid,'lengthOfTimeRange',p2g)
643 CALL grib_get(gaid,'indicatorOfUnitForTimeRange',unit)
644 CALL g2_interval_to_second(unit, p2g, p2)
645 this = this + timedelta_new(sec=p2)
646 ELSE IF (status == grib_success .AND. ttimeincr == 2 .AND. tprocdata == 0) THEN
647! generally accepted grib2 convention, DWD exception for cosmo
648! "accumulated" analysis is such that reftime points to the end of the
649! interval, so no time shift in that case
650 CALL grib_get(gaid,'lengthOfTimeRange',p2g)
651 CALL grib_get(gaid,'indicatorOfUnitForTimeRange',unit)
652 CALL g2_interval_to_second(unit, p2g, p2)

Generated with Doxygen.