libsim Versione 7.2.4

◆ griddim_import_grid_id()

subroutine griddim_import_grid_id ( type(griddim_def), intent(inout) this,
type(grid_id), intent(in) ingrid_id )

Import a griddim object from a grid_id object associated to a supported gridded dataset driver (typically a grib message from grib_api or a raster band from gdal).

The griddim object is populated with all the grid information (size, projection, etc.) carried by the grid_id object provided.

Parametri
[in,out]thisgriddim object
[in]ingrid_idgrid_id object with information about the grid

Definizione alla linea 970 del file grid_class.F90.

971 this%grid%grid%ymax = y1 + this%grid%grid%dy*dble(this%dim%ny - 1)
972 ENDIF
973
974 IF (editionnumber == 2) THEN
975 CALL grib_get(gaid,'orientationOfTheGridInDegrees',orient)
976 IF (orient /= 0.0d0) THEN
977 CALL l4f_category_log(this%category,l4f_error, &
978 "griddim_import_gribapi, Mercator grid orientation != 0 not supported")
979 CALL raise_error()
980 ENDIF
981 ENDIF
982
983#ifdef DEBUG
984 CALL unproj(this, x1, y1, lofirst, lafirst)
985 CALL l4f_category_log(this%category,l4f_debug, &
986 "griddim_import_gribapi, unprojected first point "//t2c(lofirst)//" "// &
987 t2c(lafirst))
988
989 CALL grib_get(gaid,'longitudeOfLastGridPointInDegrees',lolast)
990 CALL grib_get(gaid,'latitudeOfLastGridPointInDegrees',lalast)
991 CALL proj(this, lolast, lalast, x1, y1)
992 CALL l4f_category_log(this%category,l4f_debug, &
993 "griddim_import_gribapi, extremes from grib "//t2c(x1)//" "//t2c(y1))
994 CALL l4f_category_log(this%category,l4f_debug, &

Generated with Doxygen.