◆ 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

this	object to be packed

Definizione alla linea 651 del file gridinfo_class.F90.

   IF (editionnumber == 2) THEN
 
     CALL grib_get(gaid,'typeOfProcessedData',tprocdata,status)
     CALL grib_get(gaid,'typeOfTimeIncrement',ttimeincr,status)
     IF (ttimeincr == 255) ttimeincr = 2 ! fix some MeteosWiss data
 ! if analysis-like statistically processed data is encountered, the
 ! reference time must be shifted to the end of the processing period
     IF (status == grib_success .AND. ttimeincr == 1) THEN
 ! old libsim convention, to be removed sometime in the future
       CALL grib_get(gaid,'lengthOfTimeRange',p2g)
       CALL grib_get(gaid,'indicatorOfUnitForTimeRange',unit)
       CALL g2_interval_to_second(unit, p2g, p2)