libsim  Versione6.3.0

◆ 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 999 del file grid_id_class.F90.

999 ! disable bitmap in grib1
1000  call grib_set(gaid,"bitmapPresent",0)
1001  else
1002 ! disable bitmap in grib2
1003  call grib_set(gaid,"bitMapIndicator",255)
1004  endif
1005 
1006 end if
1007 
1008 !TODO: gestire il caso TUTTI dati mancanti
1009 
1010 #ifdef DEBUG
1011 CALL l4f_log(l4f_debug, 'grib_api, coding field in interval: '// &
1012  t2c(minval(field,mask=c_e(field)))//' '//t2c(maxval(field,mask=c_e(field))))
1013 CALL l4f_log(l4f_debug, 'grib_api, coding field with number of missing: '// &
1014  t2c(count(.NOT.c_e(field))))
1015 CALL l4f_log(l4f_debug, 'grib_api, sizex:'//t2c(x1)//','//t2c(x2)//','//t2c(xs))
1016 CALL l4f_log(l4f_debug, 'grib_api, sizey:'//t2c(y1)//','//t2c(y2)//','//t2c(ys))
1017 #endif
1018 IF ( jpointsareconsecutive == 0) THEN
1019  CALL grib_set(gaid,'values', reshape(field(x1:x2:xs,y1:y2:ys), &
Functions that return a trimmed CHARACTER representation of the input variable.

Generated with Doxygen.