libsim Versione 7.1.11

◆ griddim_export_grid_id()

subroutine griddim_export_grid_id ( type(griddim_def), intent(in)  this,
type(grid_id), intent(inout)  outgrid_id 
)
private

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]thisgriddim object
[in,out]outgrid_idgrid_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)
1010 ELSE
1011 CALL l4f_category_log(this%category,l4f_error,'only datum 0 supported')
1012 CALL raise_fatal_error()
1013 ENDIF
1014
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)
1019
1020 IF (iscansnegatively == 0) THEN
1021 this%grid%grid%xmin = lofirst
1022 this%grid%grid%xmax = lolast
1023 ELSE
1024 this%grid%grid%xmax = lofirst
1025 this%grid%grid%xmin = lolast
1026 ENDIF
1027 IF (jscanspositively == 0) THEN
1028 this%grid%grid%ymax = lafirst
1029 this%grid%grid%ymin = lalast
1030 ELSE
1031 this%grid%grid%ymin = lafirst

Generated with Doxygen.