|
◆ 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 1006 del file gridinfo_class.F90.
1007 CALL grib_set(gaid, 'secondOfEndOfOverallTimeInterval',msec/1000)
1009 END SUBROUTINE code_endoftimeinterval
1011 END SUBROUTINE timerange_export_gribapi
1014 SUBROUTINE var_import_gribapi(this, gaid)
1015 TYPE(volgrid6d_var), INTENT(out) :: this
1016 INTEGER, INTENT(in) :: gaid
1018 INTEGER :: EditionNumber, centre, discipline, category, number
1020 call grib_get(gaid, 'GRIBEditionNumber',editionnumber)
1022 if (editionnumber == 1) then
1024 call grib_get(gaid, 'centre',centre)
1025 call grib_get(gaid, 'gribTablesVersionNo',category)
1026 call grib_get(gaid, 'indicatorOfParameter',number)
1028 call init(this, centre, category, number)
1030 else if (editionnumber == 2) then
1032 call grib_get(gaid, 'centre',centre)
1033 call grib_get(gaid, 'discipline',discipline)
1034 call grib_get(gaid, 'parameterCategory',category)
1035 call grib_get(gaid, 'parameterNumber',number)
1037 call init(this, centre, category, number, discipline)
1041 CALL l4f_log(l4f_error, 'GribEditionNumber '//t2c(editionnumber)// ' not supported')
1046 END SUBROUTINE var_import_gribapi
1049 SUBROUTINE var_export_gribapi(this, gaid)
1050 TYPE(volgrid6d_var), INTENT(in) :: this
1051 INTEGER, INTENT(in) :: gaid
1053 INTEGER ::EditionNumber
1055 call grib_get(gaid, 'GRIBEditionNumber',editionnumber)
1057 if (editionnumber == 1) then
1059 IF (this%centre /= 255) &
1060 CALL grib_set(gaid, 'centre',this%centre)
1061 CALL grib_set(gaid, 'gribTablesVersionNo',this%category)
|