|
◆ 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 1015 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)
|