grid_id_display

grid_id_display() subroutine grid_id_display ( type(grid_id), intent(in) this, character(len=*), optional namespace ) 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 840 del file grid_id_class.F90. RETURN ENDIF else if (editionnumber /= 1) then CALL l4f_log(l4f_error, & "grib_api GribEditionNumber not supported: "//t2c(editionnumber)) call raise_error() field(:,:) = rmiss RETURN 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