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_encode_data() subroutine grid_id_encode_data ( type(grid_id), intent(inout) this, real, dimension(:,:), intent(in) field ) private Encode a data array into a grid_id object. The input array field must have a size matching the size of the dataset. Parametri [in,out] this gridinfo object [in] field data array to be encoded Definizione alla linea 977 del file grid_id_class.F90. ! these grib_sets are alredy done in gridinfo_export, but it seems ! that it is necessary to repeat them here, they can fail with ! unstructured grids, thus ierr #ifdef DEBUG CALL l4f_log(l4f_debug, 'grib_api, Ni,Nj:'//t2c(SIZE(field,1))//','//t2c(SIZE(field,2))) #endif CALL grib_set(gaid,'Ni',SIZE(field,1), ierr) CALL grib_set(gaid,'Nj',SIZE(field,2), ierr) ! Transfer data field changing scanning mode from 64 IF (iscansnegatively == 0) THEN x1 = 1 x2 = SIZE(field,1) xs = 1 ELSE x1 = SIZE(field,1) x2 = 1 xs = -1 ENDIF IF (jscanspositively == 0) THEN y1 = SIZE(field,2)