libsim Versione 7.2.0

◆ gridinfo_export()

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

959 g2cosmo_behavior = len_trim(env_var) > 0
960 IF (g2cosmo_behavior) THEN
961 CALL grib_set(gaid,'typeOfProcessedData',0)
962 ELSE
963 CALL grib_set(gaid,'typeOfTimeIncrement',1)
964 ENDIF
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
985ELSE
986 CALL l4f_log(L4F_ERROR,'gribeditionnumber '//t2c(EditionNumber)//' not supported')
987 CALL raise_fatal_error()

Generated with Doxygen.