libsim Versione 7.2.6

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

967 CALL timerange_v7d_to_g2(this%p2,p2,unit)
968 CALL grib_set(gaid,'indicatorOfUnitOfTimeRange',unit)
969 CALL grib_set(gaid,'forecastTime',0)
970 CALL code_endoftimeinterval(reftime)
971! Successive times processed have same forecast time, start time of
972! forecast is incremented
973 CALL grib_set(gaid,'typeOfStatisticalProcessing',this%timerange)
974! typeOfTimeIncrement to be replaced with typeOfProcessedData
975 CALL getenv('LIBSIM_G2COSMO_BEHAVIOR', env_var)
976 g2cosmo_behavior = len_trim(env_var) > 0
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

Generated with Doxygen.