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 869 del file gridinfo_class.F90.

870 
871 ELSE 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)
885  CALL grib_get(gaid,'typeOfTimeIncrement',ttimeincr)
886  IF (ttimeincr == 2 .AND. tprocdata /= 0) THEN
887  p1 = p1 + p2
888  ELSE
889  IF (p1 > 0) THEN
890  CALL l4f_log(l4f_warn,'Found p1>0 in grib2 analysis data, strange things may happen')
891  ENDIF
892  ENDIF
893  ELSE ! point in time
894  statproc = 254

Generated with Doxygen.