gridinfo_export gridinfo_export_to_file

gridinfo_export() subroutine gridinfo_export ( type(gridinfo_def), intent(inout) this ) 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] this gridinfo object Definizione alla linea 967 del file gridinfo_class.F90. ! Set reasonable time unit CALL timerange_v7d_to_g2(this%p2,p2,unit) CALL grib_set(gaid,'indicatorOfUnitOfTimeRange',unit) CALL grib_set(gaid,'forecastTime',0) CALL code_endoftimeinterval(reftime) ! Successive times processed have same forecast time, start time of ! forecast is incremented CALL grib_set(gaid,'typeOfStatisticalProcessing',this%timerange) ! typeOfTimeIncrement to be replaced with typeOfProcessedData CALL getenv('LIBSIM_G2COSMO_BEHAVIOR', env_var) g2cosmo_behavior = len_trim(env_var) > 0 IF (g2cosmo_behavior) THEN CALL grib_set(gaid,'typeOfProcessedData',0) ELSE CALL grib_set(gaid,'typeOfTimeIncrement',1) ENDIF CALL grib_set(gaid,'indicatorOfUnitForTimeRange',unit) CALL grib_set(gaid,'lengthOfTimeRange',p2) ! warn about local use IF (this%timerange >= 192) THEN CALL l4f_log(l4f_warn, & 'coding in grib2 a nonstandard typeOfStatisticalProcessing '// & t2c(this%timerange)) ENDIF ELSE ! bad timerange CALL l4f_log(l4f_error, & 'Timerange with 0>p1>p2 cannot be exported in grib2') CALL raise_fatal_error()