libsim Versione 7.2.6

◆ gridinfo_import()

subroutine gridinfo_import ( type(gridinfo_def), intent(inout) this)

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]thisgridinfo object

Definizione alla linea 859 del file gridinfo_class.F90.

860
861call grib_get(gaid,'GRIBEditionNumber',editionnumber)
862
863IF (editionnumber == 1) THEN
864
865 CALL grib_get(gaid,'timeRangeIndicator',tri)
866 CALL grib_get(gaid,'P1',p1g)
867 CALL grib_get(gaid,'P2',p2g)
868 CALL grib_get(gaid,'indicatorOfUnitOfTimeRange',unit)
869 CALL timerange_g1_to_v7d(tri, p1g, p2g, unit, statproc, p1, p2)
870
871ELSE IF (editionnumber == 2) THEN
872
873 CALL grib_get(gaid,'forecastTime',p1g)
874 CALL grib_get(gaid,'indicatorOfUnitOfTimeRange',unit)
875 CALL g2_interval_to_second(unit, p1g, p1)
876 call grib_get(gaid,'typeOfStatisticalProcessing',statproc,status)
877
878 IF (status == grib_success .AND. statproc >= 0 .AND. statproc < 254) THEN ! statistically processed
879 CALL grib_get(gaid,'lengthOfTimeRange',p2g)
880 CALL grib_get(gaid,'indicatorOfUnitForTimeRange',unit)
881 CALL g2_interval_to_second(unit, p2g, p2)
882
883! for forecast-like timeranges p1 has to be shifted to the end of interval
884 CALL grib_get(gaid,'typeOfProcessedData',tprocdata,status)

Generated with Doxygen.