grid_file_id_count grid_file_id_delete grid_file_id_get_driver grid_file_id_get_gaid grid_file_id_get_gdalid grid_file_id_new grid_id_copy grid_id_decode_data grid_id_default grid_id_delete grid_id_display grid_id_encode_data grid_id_export grid_id_gdal grid_id_get_driver grid_id_get_gaid grid_id_get_gdal_options grid_id_get_gdalid grid_id_grib_api grid_id_new grid_id_no_driver grid_id_readonly

grid_id_display() subroutine, private grid_id_class::grid_id_display ( type(grid_id), intent(in)  this, character(len=*), optional  namespace  ) private Display on standard output a description of the grid_id object provided. Also the grib key names and values are printed; the set of keys returned can be controlled with the input variable namespace. Available namespaces are ls, to get the same default keys as the grib_ls command, and mars to get the keys used by mars. Parametri [in] this object to be displayed namespace grib_api namespace of the keys to search for, all the keys if empty, default ls Definizione alla linea 851 del file grid_id_class.F90. end if CALL grib_get(gaid,'iScansNegatively',iscansnegatively,ierr) IF (ierr /= grib_success) iscansnegatively=0 CALL grib_get(gaid,'jScansPositively',jscanspositively,ierr) IF (ierr /= grib_success) jscanspositively=1 CALL grib_get(gaid,'jPointsAreConsecutive',jpointsareconsecutive,ierr) IF (ierr /= grib_success) jpointsareconsecutive=0 call grib_get(gaid,'numberOfPoints',numberofpoints) IF (numberofpoints /= SIZE(field)) THEN CALL l4f_log(l4f_error, 'grid_id_decode_data_gribapi numberOfPoints and grid size different') CALL l4f_log(l4f_error, 'grid_id_decode_data_gribapi numberOfPoints: ' & //t2c(numberofpoints)//', nx,ny: '& //t2c(SIZE(field,1))//','//t2c(SIZE(field,2))) CALL raise_error() field(:,:) = rmiss RETURN ENDIF ! get data values #ifdef DEBUG call grib_get(gaid,'numberOfValues',numberofvalues) call l4f_log(l4f_info,'grib_api number of values: '//to_char(numberofvalues)) call l4f_log(l4f_info,'grib_api number of points: '//to_char(numberofpoints)) #endif CALL grib_set(gaid,'missingValue',rmiss) IF (iscansnegatively == 0 .AND. jscanspositively == 0 .AND. jpointsareconsecutive == 0) THEN fieldp(1:SIZE(field)) => field CALL grib_get(gaid,'values',fieldp) ELSE CALL grib_get(gaid,'values',vector) ! suspect bug in grib_api, when all field is missing it is set to zero ! IF (numberOfValues == 0) vector = rmiss #ifdef DEBUG CALL l4f_log(l4f_debug, 'grib_api, decoded field in interval: '// &