◆ arrayof_gridinfo_insert_array()

subroutine arrayof_gridinfo_insert_array	(	type(arrayof_gridinfo)	this,
		type(gridinfo_def), dimension(:), intent(in), optional	content,
		integer, intent(in), optional	nelem,
		integer, intent(in), optional	pos )

Method for inserting a number of elements of the array at a desired position.

If necessary, the array is reallocated to accomodate the new elements.

Parametri

	this	array object to extend
[in]	content	object of TYPE TYPE(gridinfo_def) to insert, if not provided, space is reserved but not initialized
[in]	nelem	number of elements to add, mutually exclusive with the previous parameter, if both are not provided, a single element is added without initialization
[in]	pos	position where to insert, if it is out of range, it is clipped, if it is not provided, the object is appended

Definizione alla linea 440 del file gridinfo_class.F90.

#ifdef HAVE_LIBGDAL
!TYPE(gdalrasterbandh) :: gdalid
#endif
 
#ifdef DEBUG
call l4f_category_log(this%category,l4f_debug,"export to gaid" )
#endif
 
! griddim is exported separately in grid_class
CALL export(this%griddim, this%gaid)
 
#ifdef HAVE_LIBGRIBAPI
IF (grid_id_get_driver(this%gaid) == 'grib_api') THEN
  gaid = grid_id_get_gaid(this%gaid)
  IF (c_e(gaid)) CALL gridinfo_export_gribapi(this, gaid)
ENDIF
#endif
#ifdef HAVE_LIBGDAL
IF (grid_id_get_driver(this%gaid) == 'gdal') THEN
!gdalid = grid_id_get_gdalid(this%gaid)
  CALL l4f_category_log(this%category,l4f_warn,"export to gdal not implemented" )
ENDIF
#endif
 
END SUBROUTINE gridinfo_export
 
 
!> Export an arrayof_gridinfo object to a file.
!! It receives an \a arrayof_gridinfo object which will be exported to
!! the given file. The driver for writing to file is chosen according
!! to the gaid associated to the first gridinfo element, and it must
!! be the same for all the elements.
SUBROUTINE gridinfo_export_to_file(this, filename, categoryappend)
TYPE(arrayof_gridinfo) :: this !< array of gridinfo objects which will be written to file