|
◆ 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 1014 del file gridinfo_class.F90.
1017 hour=hour, minute=minute, msec=msec)
1018 CALL grib_set(gaid, 'yearOfEndOfOverallTimeInterval',year)
1019 CALL grib_set(gaid, 'monthOfEndOfOverallTimeInterval',month)
1020 CALL grib_set(gaid, 'dayOfEndOfOverallTimeInterval',day)
1021 CALL grib_set(gaid, 'hourOfEndOfOverallTimeInterval',hour)
1022 CALL grib_set(gaid, 'minuteOfEndOfOverallTimeInterval',minute)
1023 CALL grib_set(gaid, 'secondOfEndOfOverallTimeInterval',msec/1000)
1025 END SUBROUTINE code_endoftimeinterval
1027 END SUBROUTINE timerange_export_gribapi
1030 SUBROUTINE var_import_gribapi(this, gaid)
1031 TYPE(volgrid6d_var), INTENT(out) :: this
1032 INTEGER, INTENT(in) :: gaid
1034 INTEGER :: EditionNumber, centre, discipline, category, number
1038 if (editionnumber == 1) then
1040 call grib_get(gaid, 'centre',centre)
1041 call grib_get(gaid, 'gribTablesVersionNo',category)
1042 call grib_get(gaid, 'indicatorOfParameter',number)
1044 call init(this, centre, category, number)
1046 else if (editionnumber == 2) then
1048 call grib_get(gaid, 'centre',centre)
1049 call grib_get(gaid, 'discipline',discipline)
1050 call grib_get(gaid, 'parameterCategory',category)
1051 call grib_get(gaid, 'parameterNumber',number)
1053 call init(this, centre, category, number, discipline)
1057 CALL l4f_log(l4f_error, 'GribEditionNumber '//t2c(editionnumber)// ' not supported'
1062 END SUBROUTINE var_import_gribapi
1065 SUBROUTINE var_export_gribapi(this, gaid)
1066 TYPE(volgrid6d_var), INTENT(in) :: this
1067 INTEGER, INTENT(in) :: gaid
1069 INTEGER ::EditionNumber
1073 if (editionnumber == 1) then
1075 IF (this%centre /= 255) &
1076 CALL grib_set(gaid, 'centre',this%centre)
1077 CALL grib_set(gaid, 'gribTablesVersionNo',this%category)
|