|
◆ gridinfo_import_from_file()
subroutine gridinfo_class::gridinfo_import_from_file |
( |
type(arrayof_gridinfo) |
this, |
|
|
character(len=*), intent(in) |
filename, |
|
|
character(len=*), intent(in), optional |
categoryappend |
|
) |
| |
|
private |
Import an array of gridinfo from a file.
It receives a (possibly unallocated) array of gridinfo objects which will be extended by a number of elements equal to the number of gridded messages/bands found in the file provided and it will be filled with all the data found. In case of error, the gridinfo object will not be allocated, so the success can be tested by checking thisarraysize.
- Parametri
-
| this | array of gridinfo objects which will be allocated/extended and into which data will be imported |
[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 921 del file gridinfo_class.F90.
921 CALL grib_set(gaid, 'indicatorOfUnitOfTimeRange',unit) 922 CALL grib_set(gaid, 'forecastTime',0) 923 CALL code_endoftimeinterval(reftime) 926 CALL grib_set(gaid, 'typeOfStatisticalProcessing',this%timerange) 927 CALL grib_set(gaid, 'typeOfTimeIncrement',1) 928 CALL grib_set(gaid, 'indicatorOfUnitForTimeRange',unit) 929 CALL grib_set(gaid, 'lengthOfTimeRange',p2) 932 IF (this%timerange >= 192) THEN 933 CALL l4f_log(l4f_warn, & 934 'coding in grib2 a nonstandard typeOfStatisticalProcessing '// & 938 CALL l4f_log(l4f_error, & 939 'Timerange with 0>p1>p2 cannot be exported in grib2') 940 CALL raise_fatal_error() 943 CALL l4f_log(l4f_error, & 944 'typeOfStatisticalProcessing not supported: '//trim( to_char(this%timerange))) 945 CALL raise_fatal_error() 949 CALL l4f_log(l4f_error, 'GribEditionNumber '// t2c(editionnumber)// ' not supported') 950 CALL raise_fatal_error() 957 SUBROUTINE code_endoftimeinterval(endtime) 958 TYPE(datetime), INTENT(in) :: endtime 960 INTEGER :: year, month, day, hour, minute, msec 962 CALL getval(endtime, year=year, month=month, day=day, & 963 hour=hour, minute=minute, msec=msec) 964 CALL grib_set(gaid, 'yearOfEndOfOverallTimeInterval',year) 965 CALL grib_set(gaid, 'monthOfEndOfOverallTimeInterval',month) 966 CALL grib_set(gaid, 'dayOfEndOfOverallTimeInterval',day) 967 CALL grib_set(gaid, 'hourOfEndOfOverallTimeInterval',hour) 968 CALL grib_set(gaid, 'minuteOfEndOfOverallTimeInterval',minute) 969 CALL grib_set(gaid, 'secondOfEndOfOverallTimeInterval',msec/1000) 971 END SUBROUTINE code_endoftimeinterval 973 END SUBROUTINE timerange_export_gribapi Functions that return a trimmed CHARACTER representation of the input variable.
Restituiscono il valore dell'oggetto in forma di stringa stampabile.
Restituiscono il valore dell'oggetto nella forma desiderata.
|