libsim Versione 7.2.4
|
◆ gridinfo_import()
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.
Definizione alla linea 859 del file gridinfo_class.F90. 860 call grib_get(gaid,'typeOfStatisticalProcessing',statproc,status)
861
862 IF (status == grib_success .AND. statproc >= 0 .AND. statproc < 254) THEN ! statistically processed
863 CALL grib_get(gaid,'lengthOfTimeRange',p2g)
864 CALL grib_get(gaid,'indicatorOfUnitForTimeRange',unit)
865 CALL g2_interval_to_second(unit, p2g, p2)
866
867! for forecast-like timeranges p1 has to be shifted to the end of interval
868 CALL grib_get(gaid,'typeOfProcessedData',tprocdata,status)
869 CALL grib_get(gaid,'typeOfTimeIncrement',ttimeincr)
870 IF (ttimeincr == 2 .AND. tprocdata /= 0) THEN
871 p1 = p1 + p2
872 ELSE
873 IF (p1 > 0) THEN
874 CALL l4f_log(l4f_warn,'Found p1>0 in grib2 analysis data, strange things may happen')
875 ENDIF
876 ENDIF
877 ELSE ! point in time
878 statproc = 254
879 p2 = 0
880
881 ENDIF
882
883ELSE
884
|