|
◆ gridinfo_export_to_file()
subroutine gridinfo_class::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 1002 del file gridinfo_class.F90.
1003 CALL grib_set(gaid, 'dayOfEndOfOverallTimeInterval',day)
1004 CALL grib_set(gaid, 'hourOfEndOfOverallTimeInterval',hour)
1005 CALL grib_set(gaid, 'minuteOfEndOfOverallTimeInterval',minute)
1006 CALL grib_set(gaid, 'secondOfEndOfOverallTimeInterval',msec/1000)
1008 END SUBROUTINE code_endoftimeinterval
1010 END SUBROUTINE timerange_export_gribapi
1013 SUBROUTINE var_import_gribapi(this, gaid)
1014 TYPE(volgrid6d_var), INTENT(out) :: this
1015 INTEGER, INTENT(in) :: gaid
1017 INTEGER :: EditionNumber, centre, discipline, category, number
1019 call grib_get(gaid, 'GRIBEditionNumber',editionnumber)
1021 if (editionnumber == 1) then
1023 call grib_get(gaid, 'centre',centre)
1024 call grib_get(gaid, 'gribTablesVersionNo',category)
1025 call grib_get(gaid, 'indicatorOfParameter',number)
1027 call init(this, centre, category, number)
1029 else if (editionnumber == 2) then
1031 call grib_get(gaid, 'centre',centre)
1032 call grib_get(gaid, 'discipline',discipline)
1033 call grib_get(gaid, 'parameterCategory',category)
1034 call grib_get(gaid, 'parameterNumber',number)
1036 call init(this, centre, category, number, discipline)
1040 CALL l4f_log(l4f_error, 'GribEditionNumber '//t2c(editionnumber)// ' not supported')
1045 END SUBROUTINE var_import_gribapi
1048 SUBROUTINE var_export_gribapi(this, gaid)
1049 TYPE(volgrid6d_var), INTENT(in) :: this
1050 INTEGER, INTENT(in) :: gaid
1052 INTEGER ::EditionNumber
1054 call grib_get(gaid, 'GRIBEditionNumber',editionnumber)
1056 if (editionnumber == 1) then
|