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_decode_data() subroutine grid_id_decode_data ( type(grid_id), intent(in) this, real, dimension(:,:), intent(out) field, logical, intent(out), optional done ) private Decode and return the data array from a grid_id object. The output array field must have a size matching the size of the encoded data. Definizione alla linea 945 del file grid_id_class.F90. INTEGER :: alternativeRowScanning, iScansNegatively, & jScansPositively, jPointsAreConsecutive INTEGER :: x1, x2, xs, y1, y2, ys, ierr call grib_get(gaid,'GRIBEditionNumber',editionnumber) if (editionnumber == 2) then CALL grib_get(gaid,'alternativeRowScanning',alternativerowscanning,ierr) IF (ierr == grib_success .AND. alternativerowscanning /= 0)THEN CALL l4f_log(l4f_error, "grib_api alternativeRowScanning not supported: " & //trim(to_char(alternativerowscanning))) CALL raise_error() RETURN ENDIF else if( editionnumber /= 1) then call l4f_log(l4f_error, & "grib_api GribEditionNumber not supported: "//t2c(editionnumber)) call raise_error() RETURN end if