libsim Versione 7.2.0

◆ grid_id_decode_data()

subroutine grid_id_decode_data ( type(grid_id), intent(in)  this,
real, dimension(:,:), intent(out)  field 
)
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.

946 call l4f_log(l4f_error, &
947 "grib_api GribEditionNumber not supported: "//t2c(editionnumber))
948 call raise_error()
949 RETURN
950
951end if
952
953CALL grib_get(gaid,'iScansNegatively',iscansnegatively,ierr)
954IF (ierr /= grib_success) iscansnegatively=0
955CALL grib_get(gaid,'jScansPositively',jscanspositively,ierr)
956IF (ierr /= grib_success) jscanspositively=1
957CALL grib_get(gaid,'jPointsAreConsecutive',jpointsareconsecutive,ierr)
958IF (ierr /= grib_success) jpointsareconsecutive=0
959
960! these grib_sets are alredy done in gridinfo_export, but it seems
961! that it is necessary to repeat them here, they can fail with
962! unstructured grids, thus ierr
963#ifdef DEBUG
964CALL l4f_log(l4f_debug, 'grib_api, Ni,Nj:'//t2c(SIZE(field,1))//','//t2c(SIZE(field,2)))
965#endif
966CALL grib_set(gaid,'Ni',SIZE(field,1), ierr)

Generated with Doxygen.