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

gridinfo_import() subroutine gridinfo_import ( type(gridinfo_def), intent(inout) this ) private Import grid_id information into a gridinfo object. This method imports into the descriptors of the gridinfo object this the information carried on by the grid_id object thisgaid, previously set, typically by reading from a file with a supported driver (e.g. grib_api or gdal). An amount of information is deduced from thisgaid and stored in the descriptors of gridinfo object this. Parametri [in,out] this gridinfo object Definizione alla linea 859 del file gridinfo_class.F90. INTEGER :: EditionNumber, tri, unit, p1g, p2g, p1, p2, statproc, & ttimeincr, tprocdata, status call grib_get(gaid,'GRIBEditionNumber',editionnumber) IF (editionnumber == 1) THEN CALL grib_get(gaid,'timeRangeIndicator',tri) CALL grib_get(gaid,'P1',p1g) CALL grib_get(gaid,'P2',p2g) CALL grib_get(gaid,'indicatorOfUnitOfTimeRange',unit) CALL timerange_g1_to_v7d(tri, p1g, p2g, unit, statproc, p1, p2) ELSE IF (editionnumber == 2) THEN CALL grib_get(gaid,'forecastTime',p1g) CALL grib_get(gaid,'indicatorOfUnitOfTimeRange',unit) CALL g2_interval_to_second(unit, p1g, p1) call grib_get(gaid,'typeOfStatisticalProcessing',statproc,status) IF (status == grib_success .AND. statproc >= 0 .AND. statproc < 254) THEN ! statistically processed CALL grib_get(gaid,'lengthOfTimeRange',p2g) CALL grib_get(gaid,'indicatorOfUnitForTimeRange',unit) CALL g2_interval_to_second(unit, p2g, p2)