libsim Versione 7.2.1
|
◆ griddim_export_grid_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.
Definizione alla linea 1002 del file grid_class.F90. 1003
1004 CALL grib_get(gaid,'datum',datum)
1005 IF (datum == 0) THEN
1006 CALL grib_get(gaid,'referenceLongitude',reflon)
1007 CALL grib_get(gaid,'falseEasting',this%grid%proj%xoff)
1008 CALL grib_get(gaid,'falseNorthing',this%grid%proj%yoff)
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
|