arrayof_gridinfo_append arrayof_gridinfo_delete arrayof_gridinfo_insert arrayof_gridinfo_insert_array arrayof_gridinfo_packarray arrayof_gridinfo_remove gridinfo_clone gridinfo_decode_data gridinfo_delete gridinfo_display gridinfo_encode_data gridinfo_export gridinfo_export_to_file gridinfo_import gridinfo_import_from_file gridinfo_init gridinfov_display

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 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)