gridinfo_import gridinfo_import_from_file

gridinfo_import_from_file() subroutine gridinfo_import_from_file ( type(arrayof_gridinfo)  this, character(len=*), intent(in)  filename, character(len=*), intent(in), optional  categoryappend  ) 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 905 del file gridinfo_class.F90. 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)) ! Successive times processed have same start time of forecast, ! forecast time is incremented CALL grib_set(gaid,'typeOfStatisticalProcessing',this%timerange) ! typeOfTimeIncrement to be replaced with a check that typeOfProcessedData /= 0 CALL grib_set(gaid,'typeOfTimeIncrement',2) CALL timerange_v7d_to_g2(this%p2,p2,unit) CALL grib_set(gaid,'indicatorOfUnitForTimeRange',unit) CALL grib_set(gaid,'lengthOfTimeRange',p2) ELSE IF (this%p1 == 0) THEN ! analysis-like