libsim  Versione 7.2.1

◆ griddim_import_grid_id()

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

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 980 del file grid_class.F90.

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, &
995  "griddim_import_gribapi, extremes from proj "//t2c(this%grid%grid%xmin)// &
996  " "//t2c(this%grid%grid%ymin)//" "//t2c(this%grid%grid%xmax)//" "// &
997  t2c(this%grid%grid%ymax))
998 #endif
999 
1000 CASE ('UTM')
1001 
1002  CALL grib_get(gaid,'zone',zone)
1003 
1004  CALL grib_get(gaid,'datum',datum)

Generated with Doxygen.