arrayof_gridinfo_append arrayof_gridinfo_delete arrayof_gridinfo_insert arrayof_gridinfo_insert_array arrayof_gridinfo_packarray arrayof_gridinfo_remove gridinfo_clone gridinfo_decode_data gridinfo_delete gridinfo_display gridinfo_encode_data gridinfo_export gridinfo_export_to_file gridinfo_import gridinfo_import_from_file gridinfo_init gridinfov_display

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] this gridinfo object Definizione alla linea 978 del file gridinfo_class.F90. 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() ENDIF ELSE CALL l4f_log(l4f_error, & 'typeofstatisticalprocessing not supported: '//TRIM(to_char(this%timerange))) CALL raise_fatal_error() ENDIF ELSE CALL l4f_log(L4F_ERROR,'gribeditionnumber '//t2c(EditionNumber)//' not supported') CALL raise_fatal_error()