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_export_to_file() subroutine gridinfo_export_to_file ( type(arrayof_gridinfo) this, character(len=*), intent(in) filename, character(len=*), intent(in), optional categoryappend ) private 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 1005 del file gridinfo_class.F90. CALL raise_fatal_error() ENDIF CONTAINS ! Explicitely compute and code in grib2 template 4.8 the end of ! overalltimeinterval which is not done automatically by grib_api SUBROUTINE code_endoftimeinterval(endtime) TYPE(datetime),INTENT(in) :: endtime 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