arrayof_gridinfo_append arrayof_gridinfo_delete arrayof_gridinfo_insert arrayof_gridinfo_insert_array arrayof_gridinfo_packarray arrayof_gridinfo_remove gridinfo_clone gridinfo_decode_data gridinfo_delete gridinfo_display gridinfo_encode_data gridinfo_export gridinfo_export_to_file gridinfo_import gridinfo_import_from_file gridinfo_init gridinfov_display

gridinfo_import_from_file() subroutine gridinfo_import_from_file ( type(arrayof_gridinfo) this, character(len=*), intent(in) filename, character(len=*), intent(in), optional categoryappend ) private Import an array of gridinfo from a file. It receives a (possibly unallocated) array of gridinfo objects which will be extended by a number of elements equal to the number of gridded messages/bands found in the file provided and it will be filled with all the data found. In case of error, the gridinfo object will not be allocated, so the success can be tested by checking thisarraysize. Parametri this array of gridinfo objects which will be allocated/extended and into which data will be imported [in] filename name of file to open and import, in the form [driver:]pathname [in] categoryappend append this suffix to log4fortran namespace category Definizione alla linea 894 del file gridinfo_class.F90. ELSE ! point in time statproc = 254 p2 = 0 ENDIF ELSE CALL l4f_log(l4f_error,'GribEditionNumber '//t2c(editionnumber)//' not supported') CALL raise_error() ENDIF CALL init(this, statproc, p1, p2) END SUBROUTINE timerange_import_gribapi SUBROUTINE timerange_export_gribapi(this, gaid, reftime) TYPE(vol7d_timerange),INTENT(in) :: this ! vol7d_timerange object INTEGER,INTENT(in) :: gaid ! grib_api id of the grib loaded in memory to export TYPE(datetime) :: reftime ! reference time of data, used for coding correct end of statistical processing period in grib2 INTEGER :: EditionNumber, centre, tri, currentunit, unit, p1_g1, p2_g1, p1, p2, pdtn CHARACTER(len=8) :: env_var LOGICAL :: g2cosmo_behavior CALL grib_get(gaid,'GRIBEditionNumber',editionnumber) IF (editionnumber == 1 ) THEN ! Convert vol7d_timerange members to grib1 with reasonable time unit CALL grib_get(gaid,'indicatorOfUnitOfTimeRange',currentunit) CALL timerange_v7d_to_g1(this%timerange, this%p1, this%p2, & tri, p1_g1, p2_g1, unit) ! Set the native keys CALL grib_set(gaid,'timeRangeIndicator',tri) CALL grib_set(gaid,'P1',p1_g1) CALL grib_set(gaid,'P2',p2_g1) CALL grib_set(gaid,'indicatorOfUnitOfTimeRange',unit) ELSE IF (editionnumber == 2) THEN CALL grib_get(gaid,'productDefinitionTemplateNumber', pdtn) IF (this%timerange == 254) THEN ! point in time -> template 4.0 IF (pdtn < 0 .OR. pdtn > 7) & CALL grib_set(gaid,'productDefinitionTemplateNumber', 0) ! Set reasonable time unit CALL timerange_v7d_to_g2(this%p1,p1,unit) ! Set the native keys CALL grib_set(gaid,'indicatorOfUnitOfTimeRange',unit) CALL grib_set(gaid,'forecastTime',p1) ELSE IF (this%timerange >= 0 .AND. this%timerange < 254) THEN ! statistically processed -> template 4.8 IF (pdtn < 8 .OR. pdtn > 14) & CALL grib_set(gaid,'productDefinitionTemplateNumber', 8) IF (this%p1 >= this%p2) THEN ! forecast-like ! Set reasonable time unit CALL timerange_v7d_to_g2(this%p1-this%p2,p1,unit) CALL grib_set(gaid,'indicatorOfUnitOfTimeRange',unit) CALL grib_set(gaid,'forecastTime',p1) CALL code_endoftimeinterval(reftime+timedelta_new(sec=this%p1))