|
◆ gridinfo_export()
subroutine gridinfo_class::gridinfo_export |
( |
type(gridinfo_def), intent(inout) |
this | ) |
|
|
private |
Export gridinfo descriptors information into a message/band on file.
This method exports the contents of the descriptors of the gridinfo object this in the grid_id object thisgaid, previously set, for the successive write to a file. The information stored in the descriptors of gridinfo object this is inserted, when possible, in the grid_id object. - Parametri
-
[in,out] | this | gridinfo object |
Definizione alla linea 976 del file gridinfo_class.F90.
977 IF (g2cosmo_behavior) THEN
978 CALL grib_set(gaid, 'typeOfProcessedData',0)
980 CALL grib_set(gaid, 'typeOfTimeIncrement',1)
982 CALL grib_set(gaid, 'indicatorOfUnitForTimeRange',unit)
983 CALL grib_set(gaid, 'lengthOfTimeRange',p2)
986 IF (this%timerange >= 192) THEN
987 CALL l4f_log(l4f_warn, &
988 'coding in grib2 a nonstandard typeOfStatisticalProcessing '//
992 CALL l4f_log(l4f_error, &
993 'Timerange with 0>p1>p2 cannot be exported in grib2')
994 CALL raise_fatal_error()
997 CALL l4f_log(l4f_error, &
998 'typeofstatisticalprocessing not supported: '//TRIM(to_char(this%timerange)))
999 CALL raise_fatal_error()
1003 CALL l4f_log(L4F_ERROR,'gribeditionnumber '//t2c(EditionNumber)//' not ')
1004 CALL raise_fatal_error()
|