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_class::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 870 del file gridinfo_class.F90. 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) ! for forecast-like timeranges p1 has to be shifted to the end of interval CALL grib_get(gaid,'typeOfProcessedData',tprocdata,status) CALL grib_get(gaid,'typeOfTimeIncrement',ttimeincr) IF (ttimeincr == 2 .AND. tprocdata /= 0) THEN p1 = p1 + p2 ELSE IF (p1 > 0) THEN CALL l4f_log(l4f_warn,'Found p1>0 in grib2 analysis data, strange things may happen') ENDIF ENDIF