libsim Versione 7.1.11

◆ 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]thisgridinfo object
[in]fielddata array to be encoded

Definizione alla linea 979 del file grid_id_class.F90.

980 y1 = SIZE(field,2)
981 y2 = 1
982 ys = -1
983ELSE
984 y1 = 1
985 y2 = SIZE(field,2)
986 ys = 1
987ENDIF
988
989
990IF (any(field == rmiss)) THEN
991
992 CALL grib_set(gaid,'missingValue',rmiss)
993 IF (editionnumber == 1) THEN
994! enable bitmap in grib1
995! grib_api 1.9.9 went into an infinite loop with second order packing here
996! CALL grib_set(gaid,'packingType','grid_simple')
997! now it's fixed, leaving second order if present
998 CALL grib_set(gaid,"bitmapPresent",1)
999 ELSE
1000! enable bitmap in grib2

Generated with Doxygen.