libsim Versione 7.2.4

◆ gridinfo_export_to_file()

subroutine 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
thisarray of gridinfo objects which will be written to file
[in]filenamename of file to open and import, in the form [driver:]pathname
[in]categoryappendappend this suffix to log4fortran namespace category

Definizione alla linea 996 del file gridinfo_class.F90.

997
998INTEGER :: year, month, day, hour, minute, msec
999
1000CALL getval(endtime, year=year, month=month, day=day, &
1001 hour=hour, minute=minute, msec=msec)
1002 CALL grib_set(gaid,'yearOfEndOfOverallTimeInterval',year)
1003 CALL grib_set(gaid,'monthOfEndOfOverallTimeInterval',month)
1004 CALL grib_set(gaid,'dayOfEndOfOverallTimeInterval',day)
1005 CALL grib_set(gaid,'hourOfEndOfOverallTimeInterval',hour)
1006 CALL grib_set(gaid,'minuteOfEndOfOverallTimeInterval',minute)
1007 CALL grib_set(gaid,'secondOfEndOfOverallTimeInterval',msec/1000)
1008
1009END SUBROUTINE code_endoftimeinterval
1010
1011END SUBROUTINE timerange_export_gribapi
1012
1013
1014SUBROUTINE var_import_gribapi(this, gaid)
1015TYPE(volgrid6d_var),INTENT(out) :: this ! volgrid6d_var object
1016INTEGER,INTENT(in) :: gaid ! grib_api id of the grib loaded in memory to import
1017
1018INTEGER :: EditionNumber, centre, discipline, category, number
1019
1020call grib_get(gaid,'GRIBEditionNumber',editionnumber)
1021
1022if (editionnumber == 1) then
1023
1024 call grib_get(gaid,'centre',centre)
1025 call grib_get(gaid,'gribTablesVersionNo',category)
1026 call grib_get(gaid,'indicatorOfParameter',number)
1027
1028 call init(this, centre, category, number)
1029
1030else if (editionnumber == 2) then
1031
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)
1036
1037 call init(this, centre, category, number, discipline)
1038
1039else
1040
1041 CALL l4f_log(l4f_error,'GribEditionNumber '//t2c(editionnumber)//' not supported')
1042 CALL raise_error()
1043
1044endif
1045
1046END SUBROUTINE var_import_gribapi
1047
1048
1049SUBROUTINE var_export_gribapi(this, gaid)
1050TYPE(volgrid6d_var),INTENT(in) :: this ! volgrid6d_var object
1051INTEGER,INTENT(in) :: gaid ! grib_api id of the grib loaded in memory to export

Generated with Doxygen.