libsim  Versione 7.1.7

◆ grid_id_encode_data()

subroutine grid_id_class::grid_id_encode_data ( type(grid_id), intent(inout)  this,
real, dimension(:,:), intent(in)  field 
)

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
983 ELSE
984  y1 = 1
985  y2 = SIZE(field,2)
986  ys = 1
987 ENDIF
988 
989 
990 IF (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.