libsim  Versione7.2.3

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

651  CALL grib_get(gaid,'indicatorOfUnitForTimeRange',unit)
652  CALL g2_interval_to_second(unit, p2g, p2)
653  CALL grib_get(gaid,'centre',centre)
654  IF (centre /= 78) THEN
655  this = this + timedelta_new(sec=p2)
656  ENDIF
657  ELSE IF ((status == grib_success .AND. ttimeincr == 2) .OR. &
658  status /= grib_success) THEN ! usual case
659 ! do nothing
660  ELSE ! valid but unsupported typeOfTimeIncrement
661  CALL l4f_log(l4f_error,'typeOfTimeIncrement '//t2c(ttimeincr)// &
662  ' not supported')

Generated with Doxygen.