gridinfo_export gridinfo_export_to_file

gridinfo_export_to_file() subroutine gridinfo_export_to_file ( type(arrayof_gridinfo)  this, character(len=*), intent(in)  filename, character(len=*), intent(in), optional  categoryappend  ) Export an arrayof_gridinfo object to a file. It receives an arrayof_gridinfo object which will be exported to the given file. The driver for writing to file is chosen according to the gaid associated to the first gridinfo element, and it must be the same for all the elements. Parametri this array of gridinfo objects which will be written to file [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 1016 del file gridinfo_class.F90. INTEGER :: year, month, day, hour, minute, msec CALL getval(endtime, year=year, month=month, day=day, & hour=hour, minute=minute, msec=msec) CALL grib_set(gaid,'yearOfEndOfOverallTimeInterval',year) CALL grib_set(gaid,'monthOfEndOfOverallTimeInterval',month) CALL grib_set(gaid,'dayOfEndOfOverallTimeInterval',day) CALL grib_set(gaid,'hourOfEndOfOverallTimeInterval',hour) CALL grib_set(gaid,'minuteOfEndOfOverallTimeInterval',minute) CALL grib_set(gaid,'secondOfEndOfOverallTimeInterval',msec/1000) END SUBROUTINE code_endoftimeinterval END SUBROUTINE timerange_export_gribapi SUBROUTINE var_import_gribapi(this, gaid) TYPE(volgrid6d_var),INTENT(out) :: this ! volgrid6d_var object INTEGER,INTENT(in) :: gaid ! grib_api id of the grib loaded in memory to import INTEGER :: EditionNumber, centre, discipline, category, number call grib_get(gaid,'GRIBEditionNumber',editionnumber) if (editionnumber == 1) then call grib_get(gaid,'centre',centre) call grib_get(gaid,'gribTablesVersionNo',category) call grib_get(gaid,'indicatorOfParameter',number) call init(this, centre, category, number) else if (editionnumber == 2) then call grib_get(gaid,'centre',centre) call grib_get(gaid,'discipline',discipline) call grib_get(gaid,'parameterCategory',category) call grib_get(gaid,'parameterNumber',number) call init(this, centre, category, number, discipline) else CALL l4f_log(l4f_error,'GribEditionNumber '//t2c(editionnumber)//' not supported') CALL raise_error() endif END SUBROUTINE var_import_gribapi SUBROUTINE var_export_gribapi(this, gaid) TYPE(volgrid6d_var),INTENT(in) :: this ! volgrid6d_var object INTEGER,INTENT(in) :: gaid ! grib_api id of the grib loaded in memory to export INTEGER ::EditionNumber call grib_get(gaid,'GRIBEditionNumber',editionnumber) if (editionnumber == 1) then IF (this%centre /= 255) & ! if centre missing (coming from bufr), keep template CALL grib_set(gaid,'centre',this%centre) CALL grib_set(gaid,'gribTablesVersionNo',this%category)