◆ arrayof_gridinfo_insert_array()

subroutine, private gridinfo_class::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
	)

private

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 451 del file gridinfo_class.F90.

 
 #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
 
 
 SUBROUTINE gridinfo_export_to_file(this, filename, categoryappend)
 TYPE(arrayof_gridinfo) :: this
 CHARACTER(len=*),INTENT(in) :: filename
 CHARACTER(len=*),INTENT(in),OPTIONAL :: categoryappend
 
 INTEGER :: i
 TYPE(l4f_handle) :: category
 CHARACTER(len=512) :: a_name
 TYPE(grid_file_id) :: output_file
 TYPE(grid_id) :: valid_grid_id
 
 IF (PRESENT(categoryappend)) THEN