libsim Versione 7.2.6

◆ arrayof_gridinfo_insert_array()

subroutine, private 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
thisarray object to extend
[in]contentobject of TYPE TYPE(gridinfo_def) to insert, if not provided, space is reserved but not initialized
[in]nelemnumber of elements to add, mutually exclusive with the previous parameter, if both are not provided, a single element is added without initialization
[in]posposition 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.

441!TYPE(gdalrasterbandh) :: gdalid
442#endif
443
444#ifdef DEBUG
445call l4f_category_log(this%category,l4f_debug,"export to gaid" )
446#endif
447
448! griddim is exported separately in grid_class
449CALL export(this%griddim, this%gaid)
450
451#ifdef HAVE_LIBGRIBAPI
452IF (grid_id_get_driver(this%gaid) == 'grib_api') THEN
453 gaid = grid_id_get_gaid(this%gaid)
454 IF (c_e(gaid)) CALL gridinfo_export_gribapi(this, gaid)
455ENDIF
456#endif
457#ifdef HAVE_LIBGDAL
458IF (grid_id_get_driver(this%gaid) == 'gdal') THEN
459!gdalid = grid_id_get_gdalid(this%gaid)
460 CALL l4f_category_log(this%category,l4f_warn,"export to gdal not implemented" )
461ENDIF
462#endif
463
464END SUBROUTINE gridinfo_export
465
466
467!> Export an arrayof_gridinfo object to a file.
468!! It receives an \a arrayof_gridinfo object which will be exported to
469!! the given file. The driver for writing to file is chosen according
470!! to the gaid associated to the first gridinfo element, and it must
471!! be the same for all the elements.
472SUBROUTINE gridinfo_export_to_file(this, filename, categoryappend)
473TYPE(arrayof_gridinfo) :: this !< array of gridinfo objects which will be written to file
474CHARACTER(len=*),INTENT(in) :: filename !< name of file to open and import, in the form [driver:]pathname

Generated with Doxygen.