libsim  Versione 7.1.6

◆ gridinfo_export()

subroutine gridinfo_class::gridinfo_export ( type(gridinfo_def), intent(inout)  this)
private

Export gridinfo descriptors information into a message/band on file.

This method exports the contents of the descriptors of the gridinfo object this in the grid_id object thisgaid, previously set, for the successive write to a file. The information stored in the descriptors of gridinfo object this is inserted, when possible, in the grid_id object.

Parametri
[in,out]thisgridinfo object

Definizione alla linea 964 del file gridinfo_class.F90.

965  CALL grib_set(gaid,'indicatorOfUnitForTimeRange',unit)
966  CALL grib_set(gaid,'lengthOfTimeRange',p2)
967 
968 ! warn about local use
969  IF (this%timerange >= 192) THEN
970  CALL l4f_log(l4f_warn, &
971  'coding in grib2 a nonstandard typeOfStatisticalProcessing '// &
972  t2c(this%timerange))
973  ENDIF
974  ELSE ! bad timerange
975  CALL l4f_log(l4f_error, &
976  'Timerange with 0>p1>p2 cannot be exported in grib2')
977  CALL raise_fatal_error()
978  ENDIF
979  ELSE
980  CALL l4f_log(l4f_error, &
981  'typeOfStatisticalProcessing not supported: '//trim(to_char(this%timerange)))
982  CALL raise_fatal_error()
983  ENDIF
984 
985 ELSE
986  CALL l4f_log(l4f_error,'GribEditionNumber '//t2c(editionnumber)//' not supported')
987  CALL raise_fatal_error()
988 ENDIF
989 
990 CONTAINS
991 
992 ! Explicitely compute and code in grib2 template 4.8 the end of
993 ! overalltimeinterval which is not done automatically by grib_api

Generated with Doxygen.