libsim  Versione 7.2.4

◆ griddim_set_val()

subroutine grid_class::griddim_set_val ( type(griddim_def), intent(inout)  this,
integer, intent(in), optional  nx,
integer, intent(in), optional  ny,
double precision, intent(in), optional  xmin,
double precision, intent(in), optional  xmax,
double precision, intent(in), optional  ymin,
double precision, intent(in), optional  ymax,
double precision, intent(in), optional  dx,
double precision, intent(in), optional  dy,
integer, intent(in), optional  component_flag,
character(len=*), intent(in), optional  proj_type,
double precision, intent(in), optional  lov,
integer, intent(in), optional  zone,
double precision, intent(in), optional  xoff,
double precision, intent(in), optional  yoff,
double precision, intent(in), optional  longitude_south_pole,
double precision, intent(in), optional  latitude_south_pole,
double precision, intent(in), optional  angle_rotation,
double precision, intent(in), optional  longitude_stretch_pole,
double precision, intent(in), optional  latitude_stretch_pole,
double precision, intent(in), optional  stretch_factor,
double precision, intent(in), optional  latin1,
double precision, intent(in), optional  latin2,
double precision, intent(in), optional  lad,
integer, intent(in), optional  projection_center_flag,
double precision, intent(in), optional  ellips_smaj_axis,
double precision, intent(in), optional  ellips_flatt,
integer, intent(in), optional  ellips_type 
)
private

Set the object content.

Parametri
[in,out]thisobject to be queried
[in]nxnumber of points along the x axis
[in]nynumber of points along the y axis
[in]xminlongitudini e latitudini minime e massime
[in]xmaxlongitudini e latitudini minime e massime
[in]yminlongitudini e latitudini minime e massime
[in]ymaxlongitudini e latitudini minime e massime
[in]ymaxgrid extremes in projection units (degrees or meters depending on the projection type)
[in]dxgrid steps in x and y directions
[in]dygrid steps in x and y directions
[in]component_flagResolved u- and v- components of vector quantities relative to 0=the easterly and northerly directions 1=the defined grid in the direction of increasing x and y (or i and j) coordinates respectively (0=north, 128=south)
[in]proj_typetype of projection
[in]lovline of view, also known as reference longitude or orientation of the grid (polar projections)
[in]zoneEarth zone (mainly for UTM), sets lov to the correct zone central meridian
[in]xoffoffset on x axis (false easting)
[in]yoffoffset on y axis (false northing)
[in]longitude_south_polelongitude of the southern pole of projection
[in]latitude_south_polelatitude of the southern pole of projection
[in]angle_rotationangle of rotation of projection
[in]longitude_stretch_polelongitude of the pole of stretching
[in]latitude_stretch_polelatitude of the pole of stretching
[in]stretch_factorstretching factor
[in]latin1first standard latitude from main pole (Lambert)
[in]latin2second standard latitude from main pole (Lambert)
[in]ladlatitude at which dx and dy (in m) are specified (Lambert, grib2 only)
[in]projection_center_flagflag indicating which pole is represented
[in]ellips_smaj_axisEarth semi-major axis
[in]ellips_flattEarth flattening
[in]ellips_typenumber in the interval [1,nellips] indicating a predefined ellipsoid, alternative to the previous arguments

Definizione alla linea 722 del file grid_class.F90.

729 !! contained in the griddim object is exported to the grid_id object.
730 SUBROUTINE griddim_export_grid_id(this, outgrid_id)
731 #ifdef HAVE_LIBGDAL
732 USE gdal
733 #endif
734 TYPE(griddim_def),INTENT(in) :: this
735 TYPE(grid_id),INTENT(inout) :: outgrid_id
736 
737 #ifdef HAVE_LIBGRIBAPI
738 INTEGER :: gaid
739 #endif
740 #ifdef HAVE_LIBGDAL
741 TYPE(gdalrasterbandh) :: gdalid
742 #endif
743 
744 #ifdef HAVE_LIBGRIBAPI
745 gaid = grid_id_get_gaid(outgrid_id)
746 IF (c_e(gaid)) CALL griddim_export_gribapi(this, gaid)
747 #endif
748 #ifdef HAVE_LIBGDAL
749 gdalid = grid_id_get_gdalid(outgrid_id)
750 !IF (gdalassociated(gdalid)
751 ! export for gdal not implemented, log?
752 #endif
753 
754 END SUBROUTINE griddim_export_grid_id
755 
756 
757 #ifdef HAVE_LIBGRIBAPI
758 ! grib_api driver
759 SUBROUTINE griddim_import_gribapi(this, gaid)
760 USE grib_api
761 TYPE(griddim_def),INTENT(inout) :: this ! griddim object
762 INTEGER, INTENT(in) :: gaid ! grib_api id of the grib loaded in memory to import
763 
764 DOUBLE PRECISION :: loFirst, loLast, laFirst, laLast, x1, y1, orient
765 INTEGER :: EditionNumber, iScansNegatively, jScansPositively, zone, datum, &
766  reflon, ierr
767 
768 ! Generic keys
769 CALL grib_get(gaid, 'typeOfGrid', this%grid%proj%proj_type)
770 #ifdef DEBUG
771 call l4f_category_log(this%category,l4f_debug, &
772  "griddim_import_gribapi, grid type "//trim(this%grid%proj%proj_type))
773 #endif

Generated with Doxygen.