|
◆ 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] | this | gridinfo object |
[in] | field | data array to be encoded |
Definizione alla linea 999 del file grid_id_class.F90.
1000 call grib_set(gaid, "bitmapPresent",0) 1003 call grib_set(gaid, "bitMapIndicator",255) 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)) 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.
|