libsim Versione 7.2.4

◆ 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 CALL getenv('LIBSIM_G2COSMO_BEHAVIOR', env_var)
960 g2cosmo_behavior = len_trim(env_var) > 0
961 IF (g2cosmo_behavior) THEN
962 CALL grib_set(gaid,'typeOfProcessedData',0)
963 ELSE
964 CALL grib_set(gaid,'typeOfTimeIncrement',1)
965 ENDIF
966 CALL grib_set(gaid,'indicatorOfUnitForTimeRange',unit)
967 CALL grib_set(gaid,'lengthOfTimeRange',p2)
968
969! warn about local use
970 IF (this%timerange >= 192) THEN
971 CALL l4f_log(l4f_warn, &
972 'coding in grib2 a nonstandard typeOfStatisticalProcessing '// &
973 t2c(this%timerange))
974 ENDIF
975 ELSE ! bad timerange
976 CALL l4f_log(l4f_error, &
977 'Timerange with 0>p1>p2 cannot be exported in grib2')
978 CALL raise_fatal_error()
979 ENDIF
980 ELSE
981 CALL l4f_log(l4f_error, &
982 'typeOfStatisticalProcessing not supported: '//trim(to_char(this%timerange)))
983 CALL raise_fatal_error()
984 ENDIF
985
986ELSE
987 CALL l4f_log(l4f_error,'GribEditionNumber '//t2c(editionnumber)//' not supported')

Generated with Doxygen.