|
◆ griddim_export_grid_id()
subroutine griddim_export_grid_id |
( |
type(griddim_def), intent(in) |
this, |
|
|
type(grid_id), intent(inout) |
outgrid_id |
|
) |
| |
Export a griddim object to a grid_id object associated to a supported gridded dataset driver (typically a grib message from grib_api).
All the grid information (size, projection, etc.) contained in the griddim object is exported to the grid_id object. - Parametri
-
[in] | this | griddim object |
[in,out] | outgrid_id | grid_id object which will contain information about the grid |
Definizione alla linea 1008 del file grid_class.F90.
1009 CALL set_val(this%grid%proj, zone=zone, lov=reflon/1.0d6)
1011 CALL l4f_category_log(this%category,l4f_error, 'only datum 0 supported')
1012 CALL raise_fatal_error()
1015 CALL grib_get(gaid, 'eastingOfFirstGridPoint',lofirst)
1016 CALL grib_get(gaid, 'eastingOfLastGridPoint',lolast)
1017 CALL grib_get(gaid, 'northingOfFirstGridPoint',lafirst)
1018 CALL grib_get(gaid, 'northingOfLastGridPoint',lalast)
1020 IF (iscansnegatively == 0) THEN
1021 this%grid%grid%xmin = lofirst
1022 this%grid%grid%xmax = lolast
1024 this%grid%grid%xmax = lofirst
1025 this%grid%grid%xmin = lolast
1027 IF (jscanspositively == 0) THEN
1028 this%grid%grid%ymax = lafirst
1029 this%grid%grid%ymin = lalast
1031 this%grid%grid%ymin = lafirst
|