libsim Versione 7.2.1

◆ 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.

441CALL export(this%griddim, this%gaid)
442
443#ifdef HAVE_LIBGRIBAPI
444IF (grid_id_get_driver(this%gaid) == 'grib_api') THEN
445 gaid = grid_id_get_gaid(this%gaid)
446 IF (c_e(gaid)) CALL gridinfo_export_gribapi(this, gaid)
447ENDIF
448#endif
449#ifdef HAVE_LIBGDAL
450IF (grid_id_get_driver(this%gaid) == 'gdal') THEN
451!gdalid = grid_id_get_gdalid(this%gaid)
452 CALL l4f_category_log(this%category,l4f_warn,"export to gdal not implemented" )
453ENDIF
454#endif
455
456END SUBROUTINE gridinfo_export
457
458
464SUBROUTINE gridinfo_export_to_file(this, filename, categoryappend)
465TYPE(arrayof_gridinfo) :: this
466CHARACTER(len=*),INTENT(in) :: filename !< name of file to open and import, in the form [driver:]pathname
467CHARACTER(len=*),INTENT(in),OPTIONAL :: categoryappend !< append this suffix to log4fortran namespace category
468
469INTEGER :: i, category
470CHARACTER(len=512) :: a_name
471TYPE(grid_file_id) :: output_file
472TYPE(grid_id) :: valid_grid_id
473
474IF (PRESENT(categoryappend)) THEN

Generated with Doxygen.