libsim  Versione 7.2.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 976 del file gridinfo_class.F90.

977  IF (g2cosmo_behavior) THEN
978  CALL grib_set(gaid,'typeOfProcessedData',0)
979  ELSE
980  CALL grib_set(gaid,'typeOfTimeIncrement',1)
981  ENDIF
982  CALL grib_set(gaid,'indicatorOfUnitForTimeRange',unit)
983  CALL grib_set(gaid,'lengthOfTimeRange',p2)
984 
985 ! warn about local use
986  IF (this%timerange >= 192) THEN
987  CALL l4f_log(l4f_warn, &
988  'coding in grib2 a nonstandard typeOfStatisticalProcessing '// &
989  t2c(this%timerange))
990  ENDIF
991  ELSE ! bad timerange
992  CALL l4f_log(l4f_error, &
993  'Timerange with 0>p1>p2 cannot be exported in grib2')
994  CALL raise_fatal_error()
995  ENDIF
996  ELSE
997  CALL l4f_log(l4f_error, &
998  'typeofstatisticalprocessing not supported: '//TRIM(to_char(this%timerange)))
999  CALL raise_fatal_error()
1000  ENDIF
1001 
1002 ELSE
1003  CALL l4f_log(L4F_ERROR,'gribeditionnumber '//t2c(EditionNumber)//' not supported')
1004  CALL raise_fatal_error()
1005 ENDIF

Generated with Doxygen.